samer@0: (load "sockets.scm")
samer@0: 
samer@0: ;;; get a random vector
samer@1: (define v (samer.maths.VVector. "v" 8))
samer@0: (.next (samer.maths.random.NormalisedGaussian.) (.array v))
samer@0: 
samer@0: ;;; write object to a file
samer@0: (define o (oostream (ofstream "obj")))
samer@1: (.writeObject o (.getVec v))
samer@0: (.close o)
samer@0: 
samer@0: ;;; read object back
samer@0: (define i (iostream (ifstream "obj")))
samer@0: (define w (.readObject i))
samer@0: (.close i)
samer@0: