initialization(

  PM.next = true
  PM.ToDO = true
  PM.menu = true

  while true (
      
          if GM.Concept.level <= 2 then (
	    PM.GM.Concept.show = true
	  ) else (
            PM.GM.Concept.show = false
          )
  ) 

UM.GM.level = 2


)

implementation (

// if you visited ALL the parents you should be able to visit the children

 if enough ( GM.Concept.level <= 2 
	     GM.Concept.type == title
             UM.GM.Concept.access == True, 3)
 then ( UM.GM.level += 1 )

 if GM.Concept.level <= UM.GM.level
 then ( PM.GM.Concept.show = true ) else ( PM.GM.Concept.show = false )

)