adamc@1030: con fields :: Type -> Type -> {Type}
adamc@1030: 
adamc@1023: functor Make (M : Conference.INPUT) : Conference.OUTPUT where con paper = M.paper
adamc@1023:                                                         where con userId = M.userId
adamc@1022:                                                         where con paperId = M.paperId
adamc@1030:                                                         where con yourPaperTables = [Assignment
adamc@1030:                                                                                      = fields M.userId M.paperId]