forth example half done