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, DInttrue)))
      | Dec(id,Basic(Float))    ->  Hashtbl.add pdect id (1, 1, (Off(-n, DFloattrue)))
      | _                       ->  raise (SYNTAX_ERROR "Parameters must be Int or Float")
    ) done; pdect