Module M
	Sub Main()
		Dim c@	
		c=34.56R
		
	End Sub
End Module