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