#!perl -p
$_=/[~-ÿ]/?"(bin)
":/^(\w|\d| )*$/i?"(alnum)
":/[a-z]|\d| /i?"normal
":"(sym)
";