declare CAppend3 = fun {$ LS1} fun {$ LS2} fun {$ LS3} {Append LS1 {Append LS2 LS3}} end end end %Use of it: {Browse {{{CAppend3 [1 2]} [3 4]} [5 6]} }