途中で送っちゃった
abct t = do
r <- abc t
return (r, t)