7-grep$þ%$_?0:$þ%$_**3,2..$þor print$þ,$/while$þ++<763