~/Documents/SWIG/plist-chicken$ csi
 ______ __     __        __                
|      |  |--.|__|.----.|  |--.-----.-----.
|   ---|     ||  ||  __||    <|  -__|     |
|______|__|__||__||____||__|__|_____|__|__|
Version 2, Build 0 - macosx-unix-gnu-ppc - [ dload ]
(c)2000-2005 Felix L. Winkelmann
#;1> (load-library 'example "simple.bundle")
; loading library example ...
#t
#;2> (show 12345)
<CFNumber 0x1100d90 [0xa0728150]>{value = +12345, type = kCFNumberSInt32Type}
#;3> (show -67.89)
<CFNumber 0x1100d90 [0xa0728150]>{value = -67.89000000000000056843, type = kCFNumberFloat64Type}
#;4> (show "abcdefgj")
abcdefgj
#;5> (noop '#(12345 67.89 "abcdefgh"))
#(12345 67.89 "abcdefgh")
#;6> (define x '(("a" . 42) ("b" . -16.77) ("c" . "Scheme is fun")))
#;7> x
(("a" . 42) ("b" . -16.77) ("c" . "Scheme is fun"))
#;8> (noop x)
(("c" . "Scheme is fun") ("a" . 42) ("b" . -16.77))
#;9> (show x)
<CFDictionary 0x1100f10 [0xa0728150]>{type = immutable, count = 3, capacity = 3, pairs = (
        0 : <CFString 0x1100ec0 [0xa0728150]>{contents = "b"} = <CFNumber 0x1100ed0 [0xa0728150]>{value = -16.76999999999999957367, type = kCFNumberFloat64Type}
        2 : <CFString 0x11007c0 [0xa0728150]>{contents = "a"} = <CFNumber 0x11007d0 [0xa0728150]>{value = +42, type = kCFNumberSInt32Type}
        3 : <CFString 0x1100ee0 [0xa0728150]>{contents = "c"} = <CFString 0x1100ef0 [0xa0728150]>{contents = "Scheme is fun"}
)}
#;10> (xml x)
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<!DOCTYPE plist PUBLIC \"-//Apple Computer//DTD PLIST 1.0//EN\" \"http://www.apple.com/DTDs/PropertyList-1.0.dtd\">\n<plist version=\"1.0\">\n<dict>\n\t<key>a</key>\n\t<integer>42</integer>\n\t<key>b</key>\n\t<real>-16.77</real>\n\t<key>c</key>\n\t<string>Scheme is fun</string>\n</dict>\n</plist>\n"
#;11> (print (xml x))
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
        <key>a</key>
        <integer>42</integer>
        <key>b</key>
        <real>-16.77</real>
        <key>c</key>
        <string>Scheme is fun</string>
</dict>
</plist>

"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<!DOCTYPE plist PUBLIC \"-//Apple Computer//DTD PLIST 1.0//EN\" \"http://www.apple.com/DTDs/PropertyList-1.0.dtd\">\n<plist version=\"1.0\">\n<dict>\n\t<key>a</key>\n\t<integer>42</integer>\n\t<key>b</key>\n\t<real>-16.77</real>\n\t<key>c</key>\n\t<string>Scheme is fun</string>\n</dict>\n</plist>\n"
#;12> ^D
~/Documents/SWIG/plist-chicken$