getMousePosition :: IO (Int, Int)
getMousePosition = do
  m <- jsMouse
  x <- jsMouseX m 
  y <- jsMouseY m
  doc <- jsDocument
  sx <- jsPageScrollX doc
  sy <- jsPageScrollY doc 
  return (x+sx, y+sy)
getMousePosition :: IO (Int, Int)
getMousePosition = do
  m <- jsMouse
  x <- jsMouseX m 
  y <- jsMouseY m
  doc <- jsDocument
  sx <- jsPageScrollX doc
  sy <- jsPageScrollY doc 
  return (x+sx, y+sy)
getMousePosition = do
  m <- jsMouse
  x <- jsMouseX m 
  y <- jsMouseY m
  doc <- jsDocument
  sx <- jsPageScrollX doc
  sy <- jsPageScrollY doc 
  return (x+sx, y+sy)