global a, b
a = "one"
b = "two"
print a, b
call swap(a, b)
end
subroutine swap(a, b)
temp = a : a = b : b = temp
end subroutine