;; -*- Scheme -*-
;;
;; $Id: mawkt01.scm,v 1.1 1998/03/16 07:58:46 foner Exp $

;; When loaded this should immediately display the contents of the file
;; on the (CURRENT-OUTPUT-PORT) with each line split into its constituent
;; words and displayed as a list.

(require 'string:split)
(require 'mawk:file)

(define words
  (lambda (l ln)
    (display (string:split l)) (newline)))

(mawk:file "mawkt01.scm" words)

;; eof
