Ported assemble-open-coded.rkt to #lang whalesong