let genParamTable (p: dec list) (pdect: dec_table) = for n=0 to ((List.length p) - 1) do (
match (List.nth p n) with
Dec(id,Basic(Int)) -> Hashtbl.add pdect id (1, 1, (Off(-n, DInt, true)))
| Dec(id,Basic(Float)) -> Hashtbl.add pdect id (1, 1, (Off(-n, DFloat, true)))
| _ -> raise (SYNTAX_ERROR "Parameters must be Int or Float")
) done; pdect