#!/usr/bin/env -S guile
!#

(use-modules (ice-9 pretty-print)
             (ice-9 match))

(pretty-print
  (match (command-line)
   [(_) (read)]
   [(_ str) (with-input-from-string str read)]))