let
map_slow l ~f = rev (rev_map ~f l)