method
backward_line =
let
(l,c) = my_location
in
self
#
set_location (l-1,c)