our(@j,$a,$p,$h,$J);print do{@j=split//,"233322333333223332322333";$a="";$p=0;
foreach$h(split//,"JussJsstssPerlJssjsssssPsjusjsssuerpjsjsssusjpersjulJllsjJ".
"sjsssu"){$J=0;foreach(split//,"jsreutPJpl"){if($_ eq $h){last}$J++}$p++;$a.=$J
;if($p==$j[0]&&$#j!=0){$a.=".";shift@j;$p=0}}eval$a}.$/;