Progressing, slowly. Haskell so complicated with monads ;-;