#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)))))