do a <- as bs a
>>> Just [ 1 :: Int ] & chainedTo (viaNonEmpty head) Just 1 >>> Nothing & chainedTo (viaNonEmpty head) Nothing