m:- \I,\J,format("~|~`0t~d~2+",[I*J]),\+(J<9->put(32);nl);nl,write(2025).
\I:-between(1,9,I).