#!/bin/sh
: ; exec klone $0 "$@"
; The above line finds the klone executable in the $PATH

(setq lines (list))

(setq print-margin:width 78)

(setq fdi *standard-input*)
(setq fdo *standard-output*)

(while (setq line (read-line fdi ()))
  (if (>= (length line) print-margin:width) (progn
      (print-margin-words line)
      (write-line "")
    )
    (progn
      (write-line line)
    )
)))
;;; EMACS MODES
;;; Local Variables: ***
;;; mode:lisp ***
;;; End: ***
