#lang racket/base
(module+ main
(require racket/fasl racket/pretty racket/cmdline)
(command-line
#:program "capybara-fasl"
#:args (file)
(pretty-write
(fasl->s-exp (open-input-file file)))))