ans' x y =
    let p = Prelude.map (\xx -> Prelude.map (\yy-> yy*xx) y) x
        d = concat $ Prelude.map dec $ concat p
        s = pack empty d
        a = depack 0 s
    in
        a
ans' x y =
    let p = Prelude.map (\xx -> Prelude.map (\yy-> yy*xx) y) x
        d = concat $ Prelude.map dec $ concat p
        s = pack empty d
        a = depack 0 s
    in
        a
ans' x y =
    let p = Prelude.map (\xx -> Prelude.map (\yy-> yy*xx) y) x
        d = concat $ Prelude.map dec $ concat p
        s = pack empty d
        a = depack 0 s
    in
        a