20 lines
499 B
Scheme
20 lines
499 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(scheme process-context)
|
|
(foo bar)
|
|
(hello world)
|
|
(other hellolib))
|
|
(baz)
|
|
(hello-world)
|
|
|
|
(define l (list "1" "2" "3"))
|
|
|
|
;; Implementations are allowed to give diffrent amout of args
|
|
(cond-expand
|
|
(meevax (when (> (length (command-line)) 3) (write l)))
|
|
(mit (when (> (length (command-line)) 3) (write l)))
|
|
(tr7 (when (> (length (command-line)) 3) (write l)))
|
|
(else (write (list-tail (command-line) 1))))
|
|
|
|
(over-9000)
|