Nendo sample for Enumerable::Lazy of Ruby 2.0

lazy_sample.scm

#!/bin/sh
:; #-*- mode: nendo; syntax: scheme -*-;;
:; exec /usr/local/bin/nendo $0 $*

(define (grep-and-take5 in)
  (let1 arr
      (. 
       (. (map (lambda (x) x.chomp) in)   grep #/ruby/)
       take 5)
    (for-each print arr)))

(define (main argv)
  (with-open "test.txt"
             (lambda (f)
               (cond
                ((< 0  (length argv))
                 (print "[with    Lazy]")
                 (grep-and-take5 f.lazy))
                (else
                 (print "[without Lazy]")
                 (grep-and-take5 f)))))

  ;; print the peek memory usage of this process.
  (with-open "|cat /proc/#{Process.pid}/status"
             (lambda (f)
               (print (+ "=> " (car (to-list (f.readlines.grep #/vmpeak/i))))))))