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