addTickHsCmd (HsCmdCast co cmd)
  = liftM2 HsCmdCast (return co) (addTickHsCmd cmd)
addTickHsCmd (HsCmdCast co cmd)
  = liftM2 HsCmdCast (return co) (addTickHsCmd cmd)
addTickHsCmd (HsCmdCast co cmd)
  = liftM2 HsCmdCast (return co) (addTickHsCmd cmd)