-module a.
-export[m/0].
m()->case io:fread('',"~d~d")of{_,[A,B]}->io:format("~p
",[A*B-A-B]),m();_->0end.