added example in Red language