Changes to LOLCODE in Tcl between r0 and r4

(blank line)
Example LOLCODE program:
'''Implementing the LOLCODE Language in Tcl'''
(blank line)
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. --> 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 r0
     Only in r4
     -->      Modified slightly between r0 and r4