(for i 0 18(pr:int:+(*(expt 7/3 i)21.785362).5))