assembler in scheme