enum Ġclass ĠSe ason Ġ{ ĊĠĠĠ ĠW INTER , ĊĠĠĠ ĠSPR ING , ĊĠĠĠ ĠSUM MER , ĊĠĠĠ ĠA UT UMN Ċ } Ċ Ċ fun Ġfoo ( x Ġ: ĠSe ason , Ġblock Ġ: Ġ( Season ) Ġ-> ĠString ) Ġ= Ġblock ( x ) Ċ Ċ fun Ġbox () Ġ: ĠString Ġ{ ĊĠĠĠ Ġreturn Ġfoo ( Season . SPR ING ) Ġ{ ĊĠĠĠĠĠĠĠ Ġx Ġ-> Ġwhen Ġ( x ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠSe ason . SPR ING Ġ-> Ġ" OK " ĊĠĠĠĠĠĠĠĠĠĠĠ Ġelse Ġ-> Ġ" fail " ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ } Ċ