(use-modules (srfi srfi-37))

(define-syntax ->
 (syntax-rules ()
  ((_ x) x)
  ((_ x (form more ...)) (form x more ...))
  ((_ x form) (form x))
  ((_ x form more ...) 
   (-> (-> x form) more ...))))

(define (string=! operand str)
 (-> str (string=? operand) not))

(display 
 (args-fold 
  (command-line)
  (list)
  (lambda (opt name arg operands) operands)
  (lambda (operand operands) 
   (when (string=! operand "print.scm")
    (begin
     (display operand)
     (newline)
     (cons operand operands))))
   '()))