-- -*- M2-comint -*- hash: 7147271487190406179

i1 : myunion = foreignUnionType("myunion",
         {"foo" => 4 * char', "bar" => charstar})

o1 = myunion

o1 : ForeignUnionType

i2 : x = myunion (4 * char') append(ascii "hi!", 0)

o2 = HashTable{"bar" => hi!              }
               "foo" => {104, 105, 33, 0}

o2 : ForeignObject of type myunion

i3 : x_"foo"

o3 = {104, 105, 33, 0}

o3 : ForeignObject of type int8[4]

i4 : x_"bar"

o4 = hi!

o4 : ForeignObject of type char*

i5 : x_"bar" = "ho!"

o5 = ho!

o5 : ForeignObject of type char*

i6 : x

o6 = HashTable{"bar" => ho!              }
               "foo" => {104, 111, 33, 0}

o6 : ForeignObject of type myunion

i7 : 
