scsh ported to Racket