addCrasis :: Crasis -> Capital -> WithCrasis
addCrasis c = Lens.set crasisLens' (c, ())
addCrasis :: Crasis -> Capital -> WithCrasis
addCrasis c = Lens.set crasisLens' (c, ())
addCrasis c = Lens.set crasisLens' (c, ())