let c_subroutines (out: out_channel) (proct: proc_table) (ic: intermediateCode) = (
        Hashtbl.iter (c_procedure out ic proct) proct;
)