1024:?n & whl'(!n:>0 & out$!n & div$(!n.2):?n)