(while((^'f(print f" = "'f))(rec'f((^e(if(< e f)#`",e + ,'(- f e)"f))(/(ceiling(/ f)))))(read)))