let str_str_pmap = BatIO.to_f_printer (BatMap.print BatString.print BatString.print)