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