/* a class to get started with, containing the main procedure */
owner = new_type_class (id_from_str ("MEMORY_EXAMPLE", 14));
method = new_type_method (id_from_str("main", 4), 0, 1);
set_method_res_type(method, 0, prim_t_int);
ent = new_entity (owner, id_from_str ("main", 4), method);
/* a class to get started with, containing the main procedure */
owner = new_type_class (id_from_str ("MEMORY_EXAMPLE", 14));
method = new_type_method (id_from_str("main", 4), 0, 1);
set_method_res_type(method, 0, prim_t_int);
ent = new_entity (owner, id_from_str ("main", 4), method);