Comment by dmbaturin

This would work:

   let _ = 
     let this_integer = read_int () in
     print_int (this_integer * this_integer); print_newline ()

I agree part 1 should explain more of the basic syntax. The whole thing is a work in progress so I keep improving it as I get feedback.