ibase:8;s:ssubst;while(a:?read\-line(?-,?-,~))#~do dispterms(eval_string(s("7","8",s("6","7",s("5","6",s("4","5",a))))));