1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE UnboxedSums #-} module Main where import T14051a main :: IO () main = print $ case func () of (# True | #) -> 123 _ -> 321