(do'(i 22(floor i 3/7))((>(princ i)9e7)))