let rec _Remplir_Hash_Assign nomModule liste_assign =
match liste_assign with
[] -> []
| cet_assign::liste_restante ->
match cet_assign with
|(_, sonExpr) ->
(_Remplir_Hash_Expr nomModule sonExpr)
@_Remplir_Hash_Assign nomModule liste_restante