(loop(princ(if(>(+(setq a(read)b(read)c(read))a)b(- a c)(- b))1 0))(terpri))