call-with-output-file "/dev/lp0"
  λ : printer
      write "Hello World!" printer