Food Chain - Haskell | SlaveCode