main = case [1] of xs@(x:_) -> print (x, xs) xs@[] -> print xs