$_=$_[0]**2;$==y///c/2;/.{$=}/;$&+$'==pop