windows<- function() .Internal(device("Win32","",c(0,0,0)))
