howPtr :: Pointer -> (Value -> IM String) -> IM String
showPtr ptr showValue' = evalPtr ptr >>= showValue'

showPtr :: Pointer -> (Value -> IM String) -> IM String
showPtr ptr showValue' = evalPtr ptr >>= showValue'
showPtr ptr showValue' = evalPtr ptr >>= showValue'