rel_prime.rb

print "x = "
x = gets.chomp.to_i
print "y = "
y = gets.chomp.to_i

# repeat until y = 0
until y == 0
	# Assign x <- x mod y
	puts "x = #{x} % #{y} = #{x%y} "
	x = x % y
	# exchange x and y
	puts "exchange x (#{x}) and y % (#{y}) "
	x,y = y,x
end

# If the result is 1, accept. Otherwise reject.
puts x == 1 ? "Accept!" : "Reject"