object ĠX Ġ{ ĊĠĠĠ Ġfun Ġaccept 1 ( handler : ĠString . () Ġ-> ĠUnit ){} ĊĠĠĠ Ġfun Ġaccept 2 ( handler : ĠInt . () Ġ-> ĠUnit ){} Ċ } Ċ Ċ fun Ġfoo (){ ĊĠĠĠ ĠX . accept 1 ({ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠX . accept 2 ({ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġs : ĠString Ġ= Ġ< caret > ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ}) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ}) Ċ } Ċ Ċ // ĠEX IST : Ġthis @ accept 1 Ċ