added example in Oberon programming language