diff options
Diffstat (limited to 'password-philosophy/main.scm')
| -rw-r--r-- | password-philosophy/main.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/password-philosophy/main.scm b/password-philosophy/main.scm index fd62ba8..fa142a3 100644 --- a/password-philosophy/main.scm +++ b/password-philosophy/main.scm @@ -12,5 +12,9 @@ (loop (string-append result line "\n")))))) (define (main args) - (display (pp (stdin-to-str))) + (let ((result + (if (null? (cdr args)) + (pp (stdin-to-str) #t) + (pp (stdin-to-str) #f)))) + (display result)) (newline)) |