program sample
	integer ::a,b,c,d
    
    read(*,*) a,b,c,d
    
    if (a+b==c+d) then
    	write(*,*) 'Balanced'
    else if (a+b<c+d) then
    	write(*,*) 'Right'
    else
    	write(*,*) 'Left'
    end if
    stop
end program sample