\begin{code}
module Observe (observe
               , bkpt
	       , setBkpt
	       ) where

primitive observe :: String -> a -> a
primitive bkpt    :: String -> a -> a
primitive setBkpt :: String -> Bool -> IO ()
\end{code}
