let print_strings = List.print String.print