arrayLenFixed :: String -> String -> String
arrayLenFixed sname fname = map toUpper sname ++ "_" ++ map toUpper fname ++ "_LENGTH"
arrayLenFixed :: String -> String -> String
arrayLenFixed sname fname = map toUpper sname ++ "_" ++ map toUpper fname ++ "_LENGTH"
arrayLenFixed sname fname = map toUpper sname ++ "_" ++ map toUpper fname ++ "_LENGTH"