{define-proc {read-stuff
                 in:SerializeInputStream
             }:(String, int)
    let s:String = ""
    let i:int
    {deserialize-vars in, s, i}
    {return s, i}
}

{define-proc {read-stuff
                 in:SerializeInputStream
             }:(String, int)
    let s:String = ""{in.read-one-compact} asa String
    let i:int
    set s = {in.read-one-compact String} asa String
    set i = {in.read-one-compact int} asa int
    {return s, i}
}