program yukicoder_2400 use, intrinsic :: iso_fortran_env implicit none integer(int64) :: a_re, a_im, b_re, b_im read(input_unit, *) a_re, a_im read(input_unit, *) b_re, b_im write(output_unit, '(*(i0, 1x))') a_re * b_re - a_im * b_im, a_re * b_im + a_im * b_re end program yukicoder_2400