getDocumentSize :: IO (Int, Int)
getDocumentSize = do 
  x <- jsDocumentWidth
  y <- jsDocumentHeight
  return (x, y)
getDocumentSize :: IO (Int, Int)
getDocumentSize = do 
  x <- jsDocumentWidth
  y <- jsDocumentHeight
  return (x, y)
getDocumentSize = do 
  x <- jsDocumentWidth
  y <- jsDocumentHeight
  return (x, y)