A Freenet clone written in Haskell