Help for this page
compress x = case x of
 -> 
[a] -> [a] -- singleton list
(x:y:xs) -> (if x == y then  else [x]) ++ compress (y:xs)
There is no Extraterrestrial life
There aren't any suitably capable Extraterrestrials
Interstellar travel is too difficult
We're too uncool / not worth the trouble
What do you mean they haven't visited?
Results (526 votes). Check out past polls.