#!/usr/bin/perl

use strict;

my $ln = <STDIN>;
chomp $ln;

my ( $n, $m ) = split( ' ', $ln );

print $n * $m - 1;