The task is to create a new file called "TAPE.FILE" of any size on Magnetic Tape.

 
#lang racket
(with-output-to-file "/dev/tape" #:exists 'append
  (λ() (displayln "I am a cheap imitation of the Perl code for a boring problem")))
 