test_outer = ->
  run_test [
    "outer(a,b)",
    "a*b",

    "outer(a,[b1,b2])",
    "[a*b1,a*b2]",

    "outer([a1,a2],b)",
    "[a1*b,a2*b]",

    "H33=hilbert(3)",
    "",

    "H44=hilbert(4)",
    "",

    "H55=hilbert(5)",
    "",

    "H3344=outer(H33,H44)",
    "",

    "H4455=outer(H44,H55)",
    "",

    "H33444455=outer(H33,H44,H44,H55)",
    "",

    "simplify(inner(H3344,H4455)-contract(H33444455,4,5))",
    "0",
  ]