#! /usr/bin/toka

#! --------------------------------
#! A simple demo using case
#! --------------------------------

needs case

[ switch
  1 [ ." One!\n"   break ] case
  2 [ ." Two!\n"   break ] case
  3 [ ." Three!\n" break ] case
  4 [ ." Four!\n"  break ] case
  5 [ ." Five!\n"  break ] case
    [ ." Unknown\n"      ] default
] is try

." Inputs are: 1 3 5 2 5 4 981\n"
1 try
3 try
5 try
2 try
5 try
4 try
981 try
bye
