將所有程式碼用 haskell 改寫。