#lang racket/base (require "main.rkt" (planet gcr/libvorbisfile) (planet clements/rsound)) (define filename (vector-ref (current-command-line-arguments) 0)) (displayln "Loading sound...") (define o (open-vorbis-file filename)) (define s (vorbis->rsound o)) (displayln "Playing 30s of sound...") (play s) (sleep 30)