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