scheme1.rkt