lf2-survival-stage-generator/main.scm

(import
  (except (rnrs base) let-values)
  (only (guile)
        lambda* λ
        error
        eof-object?
        simple-format
        current-output-port
        )
  (prefix (logging) log:)
  (ice-9 binary-ports)
  (ice-9 textual-ports)
  (file-reader)
  (decrypt))


(define main
  (λ ()
    (let ([loc "data/stage.dat"])
      (simple-format (current-output-port)
                     "~a\n"
                     (process-file loc decrypt-file)))))


(main)