Split out morphs.rkt