pat 1028 haskell last case MLE