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