while(n:?read(?-,?-,~))#~do dispterms(if(b:next_prime(n))-n<n-a:prev_prime(n+1)then b else a);