Artifact 6b6d7ff7af65edf2cbb5a8386dfcb7c32903db6d:
0000: 23 0a 23 20 4e 6f 74 20 61 74 20 61 6c 6c 20 61 #.# Not at all a
0010: 20 67 6f 6f 64 20 65 78 61 6d 70 6c 65 20 6f 66 good example of
0020: 20 74 68 65 20 75 73 61 67 65 20 6f 66 20 6c 61 the usage of la
0030: 79 65 72 73 2c 20 62 75 74 20 61 6e 79 77 61 79 yers, but anyway
0040: 2e 2e 2e 0a 23 0a 0a 40 40 33 28 78 29 7b 78 7d ....#..@@3(x){x}
0050: 3b 0a 40 40 35 28 78 29 7b 78 7d 3b 0a 40 40 31 ;.@@5(x){x};.@@1
0060: 35 28 78 29 7b 78 7d 3b 0a 64 65 66 20 69 6e 63 5(x){x};.def inc
0070: 72 28 78 29 20 7b 20 78 2b 31 20 7d 3b 0a 40 20 r(x) { x+1 };.@
0080: 33 20 69 6e 63 72 28 78 29 20 7b 40 76 61 6c 75 3 incr(x) {@valu
0090: 65 28 20 69 66 28 40 20 33 28 78 29 2b 31 3c 20 e( if(@ 3(x)+1<
00a0: 33 29 7b 40 20 33 28 78 29 2b 31 7d 65 6c 73 65 3){@ 3(x)+1}else
00b0: 7b 30 7d 20 29 7d 3b 0a 40 20 35 20 69 6e 63 72 {0} )};.@ 5 incr
00c0: 28 78 29 20 7b 40 76 61 6c 75 65 28 20 69 66 28 (x) {@value( if(
00d0: 40 20 35 28 78 29 2b 31 3c 20 35 29 7b 40 20 35 @ 5(x)+1< 5){@ 5
00e0: 28 78 29 2b 31 7d 65 6c 73 65 7b 30 7d 20 29 7d (x)+1}else{0} )}
00f0: 3b 0a 40 31 35 20 69 6e 63 72 28 78 29 20 7b 40 ;.@15 incr(x) {@
0100: 76 61 6c 75 65 28 20 69 66 28 40 31 35 28 78 29 value( if(@15(x)
0110: 2b 31 3c 31 35 29 7b 40 31 35 28 78 29 2b 31 7d +1<15){@15(x)+1}
0120: 65 6c 73 65 7b 30 7d 20 29 7d 3b 0a 0a 64 65 66 else{0} )};..def
0130: 20 66 62 28 6e 20 40 76 61 6c 75 65 20 40 33 20 fb(n @value @3
0140: 40 35 20 40 31 35 29 20 7b 0a 20 20 70 72 69 6e @5 @15) {. prin
0150: 74 28 0a 09 69 66 28 20 40 31 35 28 6e 29 20 29 t(..if( @15(n) )
0160: 20 7b 20 69 66 28 20 40 35 28 6e 29 20 29 20 7b { if( @5(n) ) {
0170: 20 69 66 28 20 40 33 28 6e 29 20 29 20 7b 20 6e if( @3(n) ) { n
0180: 20 7d 20 65 6c 73 65 20 7b 20 22 46 69 7a 7a 22 } else { "Fizz"
0190: 20 7d 20 7d 20 65 6c 73 65 20 7b 20 22 42 75 7a } } else { "Buz
01a0: 7a 22 20 7d 20 7d 20 65 6c 73 65 20 7b 20 22 46 z" } } else { "F
01b0: 69 7a 7a 42 75 7a 7a 22 20 7d 0a 20 20 29 3b 0a izzBuzz" }. );.
01c0: 20 20 66 62 28 69 6e 63 72 28 6e 29 29 0a 7d 3b fb(incr(n)).};
01d0: 0a 0a 66 62 28 30 29 0a ..fb(0).