Lr FP (Haskell)