whiteSpace=[' ','\n']
getWord s
|s==[] = s
|elem (head s) whiteSpace = []
|otherwise = (head s) : (getWord (tail s))
dropWord s
|s==[] =s
|elem (head s) whiteSpace = s
|otherwise =dropWord (tail s)
dropSpaces s
| s==[] =s
|elem (head s) whiteSpace = dropSpaces (tail s)
|otherwise = s
splitWords s
|s == [] = []
|otherwise =(getWord s) : (splitWords (dropSpaces (dropWord s)))
znaci=['.',',','!','?']
clearWord s
|s==[] =[]
|elem (head s) znaci = clearWord(tail s)
|otherwise = (head s) :(clearWord (tail s))
uniqueWord