#!/usr/bin/picolisp /usr/lib/picolisp/lib.l

(load "@lib/misc.l")

(let Input
   (chop
      (wrap 17
         (conc (need 4 " ")
            (chop
               "Folding and splicing is the work of an editor, \
               not a mere collection of silicon \
               and \
               mobile electrons!" ) ) ) )
   (prinl (replace Input "^J" "^J  ")) )

(bye)