Li-Fan Chen says to YSITD
作為一個函數 他的類型是這樣的 lps :: [Char] -> [Char]