>>> fmap (+1) (Identity 0) Identity 1
>>> Identity [1, 2, 3] <> Identity [4, 5, 6] Identity [1,2,3,4,5,6]
>>> do x <- Identity 10 y <- Identity (x + 5) pure (x + y) Identity 25
>>> identity :: M44 Int V4 (V4 1 0 0 0) (V4 0 1 0 0) (V4 0 0 1 0) (V4 0 0 0 1) >>> identity :: V3 (V3 Int) V3 (V3 1 0 0) (V3 0 1 0) (V3 0 0 1)