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

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

;; When loaded this should immediately display the first word on each line
;; of this file on (CURRENT-OUTPUT-PORT).  If the line is empty, nothing
;; is output.

(define first
  (lambda (l ln)
    (let ((f (mawk:$0 (string:split l))))
      (if (not (zero? (string-length f)))
	  (begin (display f) (newline))))))

(mawk:file "mawkt00.scm" first)

;; eof
