program main implicit none integer::T,A,B,AA,BB integer::i,tmp read *,T,A,B if(MAX(A,B).gt.T) then print '(a)', "NO" return end if AA = A-1 BB = B-1 do i=1,MIN(AA,BB) print '(a)',"^>" end do if(AA.gt.BB) then do i=BB+1,AA print '(a)',"^" end do else do i=AA+1,BB print '(a)',">" end do end if tmp = T-MAX(AA,BB)-1 do i=1,tmp/2 print '(a)',"^" print '(a)',"v" end do if(MOD(tmp,2).eq.1) then print '(a)',"^" print '(a)',">" return else print '(a)',">^" return end if end program main