while(n:?read(?-,?-,~))#~do(sum(printf(?t,"|~a\\
",smake(i,if n>i then" "else"_")),i,0,n),dispterms(smake(32,"*")));