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