in progress instrument.rkt