dimension UN(4), UA(4), S(4), T(4)
C
        read(10,*) UA(1), UA(2), UA(3), UA(4)
        read(10,*) S(1), S(2), S(3), S(4)
        read(10,*) T(1), T(2), T(3), T(4)
C
	do I=1,100000000
	call xmat_mult(UA,S,T,UN)
	enddo
	write(*,*) UN
C
	stop
	end