aaa x = case x of [] -> [1] [x] -> [x] (x:xs) -> xs