Mine

proc new:user {nick uhost hand chan text} {
set arg [lindex [split $text] 0];
set rank [lindex [split $text] 1]
switch -- $arg {
 "" { putserv "PRIVMSG $chan : Syntax is: .new <handle> <rank>" }
 default { adduser $arg }
}

switch -- $rank {
 A - 10 { chattr $arg +A }
 B - 09 { chattr $arg +B }
 C - 08 { chattr $arg +C }
 D - 07 { chattr $arg +D }
 E - 06 { chattr $arg +E }
 default { putserv "PRIVMSG $chan :Input didn't match any ranks !" }
}