functor Make (M : Conference.INPUT) : Conference.OUTPUT where con paper = M.paper
                                                        where con userId = M.userId
                                                        where con paperId = M.paperId