diff --git a/intel-powermon.cabal b/intel-powermon.cabal
new file mode 100644
--- /dev/null
+++ b/intel-powermon.cabal
@@ -0,0 +1,24 @@
+cabal-version:       2.2
+name:                intel-powermon
+version:             0
+synopsis:            Poll modern Intel/AMD CPU power consumption on Linux via RAPL.
+license:             AGPL-3.0-only
+author:              Sergey Alirzaev
+maintainer:          zl29ah@gmail.com
+build-type:          Simple
+
+Source-repository head
+  type:              git
+  location:          https://github.com/l29ah/intel-powermon.git
+
+common stuff
+  ghc-options:         -W -fno-warn-tabs -O2 -Werror=missing-fields -threaded -rtsopts "-with-rtsopts -N -qg"
+  build-depends:       base >= 4.9 && < 5,
+                       streaming ^>= 0.2.3.0,
+                       unix ^>= 2.7.2.2,
+                       posix-timer ^>= 0.3.0.1,
+  default-language:    Haskell2010
+
+executable intel-powermon
+  import: stuff
+  main-is:             intel-powermon.hs
diff --git a/intel-powermon.hs b/intel-powermon.hs
new file mode 100644
--- /dev/null
+++ b/intel-powermon.hs
@@ -0,0 +1,23 @@
+import Control.Concurrent
+import Foreign.C.Types
+import qualified Streaming.Prelude as S
+import System.IO
+import System.Posix.Clock
+import System.Posix.Signals
+import System.Posix.Timer
+
+toJoules :: String -> Double
+toJoules = (/ 1e6) . (read :: String -> Double)
+
+every :: CTime -> IO () -> IO ()
+every seconds action = do
+	timer <- createTimer monotonicClock $ Just (realTimeAlarm, 0)
+	installHandler realTimeAlarm (Catch action) Nothing
+	configureTimer timer False (mkTimeSpec seconds 0) (mkTimeSpec seconds 0)
+	pure ()
+
+main = do
+	hSetBuffering stdout LineBuffering
+	ujstrs <- newChan
+	every 1 $ readFile "/sys/class/powercap/intel-rapl:0/energy_uj" >>= writeChan ujstrs
+	S.print $ S.drop 2 $ S.scan (\(prev, _) new -> (new, new - prev)) (0, 0) snd $ S.map toJoules $ S.repeatM $ readChan ujstrs