m:-between(9,17,I),\+format("~t~d~*+
",[(10^(I-8)div 9)^2,I]).