main :: Int
main = 
    case [2,2] of
        (1:y:ys) -> y + 3
        (x:xs) -> 32
main :: Int
main = 
    case [2,2] of
        (1:y:ys) -> y + 3
        (x:xs) -> 32
main = 
    case [2,2] of
        (1:y:ys) -> y + 3
        (x:xs) -> 32