prettyInstruction _ _ (Move mty dst src) =
  M.mconcat
  [ moveTypeString mty
  , moveSizeString dst, " "
  , regStr dst, ", ", regStr src
  ]
prettyInstruction _ _ (Move mty dst src) =
  M.mconcat
  [ moveTypeString mty
  , moveSizeString dst, " "
  , regStr dst, ", ", regStr src
  ]
prettyInstruction _ _ (Move mty dst src) =
  M.mconcat
  [ moveTypeString mty
  , moveSizeString dst, " "
  , regStr dst, ", ", regStr src
  ]