let str_int_pmap = BatIO.to_f_printer (BatMap.print BatString.print BatInt.print)