module BOMB
//%set debug_print_ccode = true

declare
    print_array 	is packed array[1..?n] of char
    print_name 		is pointer print_array
    name		: static print_name 
enddeclare

function new_atom (size: integer)
    returns new_atom: integer

    Name := allocate print_name (size) 

endfunction {new_atom}
endmodule