Li-Fan Chen says to YSITD
但是不一定要是字 我們可以把他變成這樣 lps :: Eq a => [a] -> [a]