(defn pm-chunk [data chsize]
  (apply str
         (interleave (map #(apply str (interpose " " %))
                          (partition chsize chsize nil data))
                     (repeat \newline))))