Family Day update

Task/Object-serialization/Ol/object-serialization.ol

@@ -10,19 +10,25 @@ type ',help' to help, ',quit' to end session.
       (1 . 123456)
       (2 . second)
       (3 . "-th-")))
+   {(4 . 'sym) ; alternatively declared..
+    (5 . +)}   ; ..associative array
    #false      ; value
    -123        ; short number
    123456789012345678901234567890123456789  ; long number
 )
 ;; Defined Object
-#[(1 2 3 4) #u8(4 3 2 1) hello こんにちは #((1 . 123456) (2 . second) (3 . -th-)) #false -123 123456789012345678901234567890123456789]
+#((1 2 3 4) #(4 3 2 1) hello こんにちは #ff((1 . 123456) (2 . second) (3 . -th-))
+#ff((4 . sym) (5 . #<function>)) #false -123
+123456789012345678901234567890123456789)
 
 > (fasl-save Object "/tmp/object.bin")
 #true
 
 > (define New (fasl-load "/tmp/object.bin" #false))
 ;; Defined New
-#[(1 2 3 4) #u8(4 3 2 1) hello こんにちは #((1 . 123456) (2 . second) (3 . -th-)) #false -123 123456789012345678901234567890123456789]
+#((1 2 3 4) #(4 3 2 1) hello こんにちは #ff((1 . 123456) (2 . second) (3 . -th-))
+#ff((4 . sym) (5 . #<function>)) #false -123
+123456789012345678901234567890123456789)
 
 > (equal? Object New)
 #true