Changes to LOLCODE in Tcl between r1 and r4

'''Implementing the LOLCODE Language in Tcl'''

Example LOLCODE program:
Example LOLCODE [http://lolcode.com/home] program:
HAI
CAN HAS STDIO?
VISIBLE "HAI WORLD!"
KTHXBYE

It should be obvious that this is syntactically valid [Tcl].  Thus we just need to implement the grammar.

proc HAI {} {
    # No initialization required
}

proc CAN args {
    # XXX: Incomplete implementation
}

proc VISIBLE {str} {
    puts stdout $str
}

proc KTHXBYE {{ret 0}} {
    if {$::tcl_version eq "8.5"} {
       return -level 2 $ret
    } else {
       # Best approximation available in Tcl earlier than 8.5
    exit $ret -->        exit $ret
} -->     }
}

Legend

     Only in r1
     Only in r4
     -->      Modified slightly between r1 and r4