#!/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)