% $Id: Agriculture.oz,v 1.1 2007/11/26 21:12:52 leavens Exp leavens $ declare proc {Agriculture ?State ?Product} choice State=florida Product=oranges [] State=iowa Product=pork [] State=kansas Product=sunflowers [] State=virginia Product=ham [] State=michigan Product=cherries [] State=newYork Product=dairy [] State=california Product=wine end end