to_s p x =
  let d = concat $ map (to_s' p) $ take 9 x
      r = drop 9 x
  in
    d ++ "\n" ++ (to_s p r)
to_s p x =
  let d = concat $ map (to_s' p) $ take 9 x
      r = drop 9 x
  in
    d ++ "\n" ++ (to_s p r)
to_s p x =
  let d = concat $ map (to_s' p) $ take 9 x
      r = drop 9 x
  in
    d ++ "\n" ++ (to_s p r)