Protocol.hs

data Protocol s a = Protocol { state :: s
                    , connected :: Bool
                    , transport :: Maybe Transport
                    , makeConnection :: Transport -> Protocol s a
                    , connectionMade :: Protocol s a
                    , dataReceived :: [a] -> Protocol s a -> ([a], Protocol s a)
                    , connectionLost :: Maybe Reason -> Protocol s a }

protocol.py

class Protocol:
    implements(interfaces.IProtocol, interfaces.ILoggingContext)

    connected = 0
    transport = None

    def makeConnection(self, transport):
        pass

    def connectionMade(self):
        pass

    def logPrefix(self):
        return self.__class__.__name__

    def dataReceived(self, data):
        pass

    def connectionLost(self, reason=connectionDone):
        pass

Recipe.hs

data Recipe = Recipe { matches :: Table -> Bool
                     , reduce :: Table -> Table
                     , provides :: Provision }

data Provision = Provision { slot :: Item, count :: Int }

recipe.py

class Recipe:
 def matches(self, table, stride):
  pass
 def reduce(self, table, stride):
  pass
 provides = slot, count