batman.csbl

@<counter> 1 [set]
^{loop-begin}^
    "" [print]
    @<counter> [get] (generate-batman-repeated) [call]
    @<counter> @<counter> [get] 1 [+] [set]
    ^(loop-begin)^ @<counter> [get] 4 [<=] [call-if]


[exit]


#import "a.csbl"
#import "b.csbl"


//
// Generate a single Batman string.
// p1(gb-na-count) - The number of "Na"s to generate.
//
{generate-batman}
    @<gb-na-count> [set]
    'Na' @<gb-na-count> [get] [*] ' Batman!' [+]
    @<gb-na-count> [del]
    [ret]


//
// Generate a repeated amount of Batman strings.
// p1(gbr-counter-end) - The number of Batman strings to generate.
//
{generate-batman-repeated}
    @<gbr-counter-end> [set]
    @<gbr-counter> 1 [set]

    ^{gbr-loop-begin}^
        @<gbr-counter> [get] (generate-batman) [call] [print]
        @<gbr-counter> @<gbr-counter> [get] 1 [+] [set]
        ^(gbr-loop-begin)^ @<gbr-counter> [get] @<gbr-counter-end> [get] [<=] [call-if] 

    @<gbr-counter-end> [del]
    @<gbr-counter> [del]
    [ret]