method
forward_line =
let
(l,c) = my_location
in
self
#
set_location (l+1,c)