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