foreach a\ b [read stdin] {puts [expr ~-$a*$b-$a]}