import List
my_list = ["one", "one", "one", "one", "two", "three", "three", "one", "one", "four", "five", "five", "five", "five"]
main = print [head xs | xs <- group my_list]

["one","two","three","one","four","five"]