let
shift_field a f = shift a (xoffset_of_field f)