[Haskell-cafe] defining last using foldr