text initiale(text prenom)
  if prenom = "" return ""
return prenom[0]

text i
int a,b,c

tbl.sort()

text prenom = tbl.begin().toText()

do
  case i = "a":
          a + 1
  case i = "b":
         b + 1
  case i = "c":
         c + 1
  case i = "d":
         break
  always
        i = initiale(prenom)
        prenom = tbl.inc().toText()
        print prenom
/do while forever

print a, b, c

(listing ex_docase.sol)