Ported assemble-perform-statement.rkt to #lang whalesong