program speedrun implicit none character::op integer::N,M integer(16),allocatable,dimension(:)::B integer(16)::A integer::i,j read*,N,M allocate(B(M)) read*,op,B do i=1,N read*,A write(*,"(i0)",advance="no")merge(A*B(1),A+B(1),op=="*") do j=2,M write(*,"(A,i0)",advance="no")" ",merge(A*B(j),A+B(j),op=="*") end do write(*,*) end do end program speedrun