\A:-format("~d
~d
",[A,A+2]),A<400,format("~d
",A+A+2),\(A+3).
m:- \1.