git @ Cat's Eye Technologies Bhuna / master eg / fun6.bhu
master

Tree @master (Download .tar.gz)

fun6.bhu @master — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
Q = ^{}
P = ^ Level {
  if (Level > 0) {
    Print "Calling Q at level ", Level, EoL
    Q Level - 1
    Print "Called Q, Exiting P at level ", Level, EoL
  }
}
Q = ^ Level {
  if (Level > 0) {
    Print "Calling P at level ", Level, EoL
    P Level - 1
    Print "Called P, Exiting Q at level ", Level, EoL
  }
}

P 10