let
asm_of_prog prog =
let
name, block = prog
in
asm_of_proc
"main"
([], block) []