let
move s chars x = map (move_pos chars) s x