translateNullary :: VirtualSegmentAlgebra a
                 => VSL.NullOp
                 -> B.Build a (Res (VSLDVec a) (VSLRVec a))
translateNullary (VSL.Lit (tys, segs))      = fromDVec <$> vecLit tys segs
translateNullary :: VirtualSegmentAlgebra a
                 => VSL.NullOp
                 -> B.Build a (Res (VSLDVec a) (VSLRVec a))
translateNullary (VSL.Lit (tys, segs))      = fromDVec <$> vecLit tys segs
translateNullary (VSL.Lit (tys, segs))      = fromDVec <$> vecLit tys segs