case "charlie"
of "alfa":
echo "A"
of "bravo":
echo "B"
of "charlie":
echo "C"
else:
echo "Unrecognized letter"
case 'h':
of 'a', 'e', 'i', 'o', 'u':
echo "Vowel"
of '\127'..'\255':
echo "Unknown"
else:
echo "Consonant"
proc positiveOrNegative(num: int): string =
result = case num:
of low(int)..-1:
"negative"
of 0:
"zero"
of 1..high(int):
"positive"
else:
"impossible"
echo positiveOrNegative(-1)
Y2FzZSAiY2hhcmxpZSIKb2YgImFsZmEiOgogIGVjaG8gIkEiCm9mICJicmF2byI6CiAgZWNobyAiQiIKb2YgImNoYXJsaWUiOgogIGVjaG8gIkMiCmVsc2U6CiAgZWNobyAiVW5yZWNvZ25pemVkIGxldHRlciIKCmNhc2UgJ2gnOgpvZiAnYScsICdlJywgJ2knLCAnbycsICd1JzoKICBlY2hvICJWb3dlbCIKb2YgJ1wxMjcnLi4nXDI1NSc6CiAgZWNobyAiVW5rbm93biIKZWxzZToKICBlY2hvICJDb25zb25hbnQiCgpwcm9jIHBvc2l0aXZlT3JOZWdhdGl2ZShudW06IGludCk6IHN0cmluZyA9CiAgcmVzdWx0ID0gY2FzZSBudW06CiAgICBvZiBsb3coaW50KS4uLTE6CiAgICAgICJuZWdhdGl2ZSIKICAgIG9mIDA6CiAgICAgICJ6ZXJvIgogICAgb2YgMS4uaGlnaChpbnQpOgogICAgICAicG9zaXRpdmUiCiAgICBlbHNlOgogICAgICAiaW1wb3NzaWJsZSIKCmVjaG8gcG9zaXRpdmVPck5lZ2F0aXZlKC0xKQ==