let int_entry = ((fromIntegral $ ptrToIntPtr entry) :: Word32)
let mmap = M.insert ("fib" :: String) int_entry M.empty
mapM_ (\(x,y) -> printf "%s at 0x%08x\n" x y) $ M.toList mmap
let int_entry = ((fromIntegral $ ptrToIntPtr entry) :: Word32)
let mmap = M.insert ("fib" :: String) int_entry M.empty
mapM_ (\(x,y) -> printf "%s at 0x%08x\n" x y) $ M.toList mmap