{@a=split'','just another perl hacker'unless@a; $#==18,local@[[sin($-/2)*9+9,cos($-/2)*9+9]=(shift @a)x2,s]]@{[}$/]x,print;$-++;$_=$;;1for(1..10**5);redo}