procedure main()
	every write( hex() )
end

procedure hex()
	suspend 0 to 9
	suspend	!"ABCDEF"
end