% $Id: FourLetter.oz,v 1.1 2007/10/14 17:56:08 leavens Exp leavens $ declare % Example of the use of the choice expression fun {Keyword} choice "java" [] "modeling" [] "language" [] "verification" [] "environment" [] "tool" [] "system" [] "project" [] "extensible" [] "advanced" end end fun {Acronym N} if N =< 0 then nil else {Keyword}.1 | {Acronym N-1} end end fun {FourLetter} {Acronym 4} end