myAction :: Capstone.Csh -> Capstone.CsInsn -> IO ()
myAction handle insn = putStrLn ("0x" ++ a ++ ":\t" ++ m ++ "\t" ++ o)
    where m = mnemonic insn
          o = opStr insn
          a = (showHex $ address insn) ""
myAction :: Capstone.Csh -> Capstone.CsInsn -> IO ()
myAction handle insn = putStrLn ("0x" ++ a ++ ":\t" ++ m ++ "\t" ++ o)
    where m = mnemonic insn
          o = opStr insn
          a = (showHex $ address insn) ""
myAction handle insn = putStrLn ("0x" ++ a ++ ":\t" ++ m ++ "\t" ++ o)
    where m = mnemonic insn
          o = opStr insn
          a = (showHex $ address insn) ""