use integer;for(sort(v53.25409.181.1312,
v1440.250043.137.7,v100109.56431.449.8032,
v1433.8177297.6997.57504)){$==1;$=*=ord$_
for(split//);print unpack"a*",pack"l!",$=;}
