Re: [Haskell-cafe] A functor for two Peano systems