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

;; When loaded this should immediately display the contents of the file
;; on the (CURRENT-OUTPUT-PORT) with each line preceded by the line
;; number.

(require 'mawk:file)

(define nl/cat-n:display-line
  (lambda (l ln)
    (display ln) (display " ") (display l) (newline)))

(mawk:file "mawkt03.scm" nl/cat-n:display-line)

;; eof
