pub fn tensor1<A>(xs: &[A]) -> Tensor where
    A: Datum