% $Id: FunPatMatch.oz,v 1.1 2007/10/15 06:08:42 leavens Exp leavens $ declare fun {First A#_} A end fun {Match2 A#_ B#_} A#B end