\_=~/..(.)/;$^=$_=$+;y/+-~/:-~/;$^++for($$/$$<<$#+..ord$/);
vec($@=$^,$%,$#**$@+$#+)=$!;die$^.$+.$_.$@.$/