while(a:?read\-line(?-,?-,~))#~do dispterms(strim("h",a));