#!perl -ap
@A=map[map-105+ord,/./g],"�!�c","
�1t","�9�c","eoej";$_="@{[map{$a=$b=!//;$a+=$_*(@F>4?$A[$'-1][$b++]:24*$'**++$b)for@F;$a/24}1..9]}";s/( 0)*$/
/