aboutsummaryrefslogtreecommitdiffstats
path: root/projects/Stacker/samples/goof.st
blob: 8c1ff72ba484ac7227dad3fe4e88922f931549c0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#
# goof
#
: print_one
    --
    SWAP
    >s
    DROP
;
: print_it
    WHILE 
        print_one
    END
;
    
: MAIN
    "MICKEY: I said she was f'in goofy!"
    "MICKEY: I didn't say she was insane." 
    "JUDGE: Yet you provide no evidence of this and I do not concur."
    "JUDGE: In your pleadings you claim that Mini Mouse is insane."
    "MICKEY: Well, what do you mean, your honor?"
    "JUDGE: Mr. Mouse, I find your grounds for divorce insufficient. "
    6
    print_it
;