function compilethird, y {
    compilethird = 3000 + compilesecond(y)
}

procedure compilefourth, &a {
    a = 2000
}

function compilefifth, z {
    aga = 2
    compilefourth aga
    compilefifth = z - aga
}

procedure compilesixth, &z {
    z = pi()
}

