cstructArguments' :: [((String,Bool),String)] -> [String]
cstructArguments' types_names = map (\(t,n) -> concat [type_str t, " ", n]) types_names
    where type_str (tn, False) = concat [tn, "*"] 
          type_str (tn, True)= tn
cstructArguments' :: [((String,Bool),String)] -> [String]
cstructArguments' types_names = map (\(t,n) -> concat [type_str t, " ", n]) types_names
    where type_str (tn, False) = concat [tn, "*"] 
          type_str (tn, True)= tn
cstructArguments' types_names = map (\(t,n) -> concat [type_str t, " ", n]) types_names
    where type_str (tn, False) = concat [tn, "*"] 
          type_str (tn, True)= tn