いろんな書き方が出来て楽しいのう

do { x <- xs; y <- ys; return $ x + y }

[x + y | x <- xs, y <- ys]

(+) <$> xs <*> ys