<>;$b=1,$a=!print$b*eval'$a=($b+=$a)-$a;'x$_,$/for<>