unit okrbor1;

fn read(r: &i32) -> i32 { return r.^; }

fn test() -> i32 {
    var x: i32 = 1;
    let r = &mut x;
    let v = read(r);
    r.^ = v + 1;
    return r.^;
}