Added Arrows.lhs

Was working through
https://en.wikibooks.org/wiki/Haskell/Understanding_arrows