arrayLenMax :: String -> String -> String
arrayLenMax sname fname = map toUpper sname ++ "_" ++ map toUpper fname ++ "_MAX_LENGTH"
arrayLenMax :: String -> String -> String
arrayLenMax sname fname = map toUpper sname ++ "_" ++ map toUpper fname ++ "_MAX_LENGTH"
arrayLenMax sname fname = map toUpper sname ++ "_" ++ map toUpper fname ++ "_MAX_LENGTH"