module HCheat where
  
import Prelude hiding ((.))
import MPS

-- google analytics
analytics x = 
  [ "<script type=\"text/javascript\">                                                                                                  "
  , "var gaJsHost = ((\"https:\" == document.location.protocol) ? \"https://ssl.\" : \"http://www.\");                                  "
  , "document.write(unescape(\"%3Cscript src='\" + gaJsHost + \"google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E\")); "
  , "</script>                                                                                                                          "
  , "<script type=\"text/javascript\">                                                                                                  "
  , "var pageTracker = _gat._getTracker(\"" ++ x ++ "\");                                                                               "
  , "pageTracker._trackPageview();                                                                                                      "
  , "</script>                                                                                                                          "
  ]
  .map strip
  .join "\n"