([n-of(_)(prn:reduce(rfn f(a(o b a))([if(> _ 0)(f b _)b](mod a b)))(n-of(_)(_)))]read)