LOLCODE in Tcl r2 (See the current copy)

Implementing the LOLCODE Language in Tcl

Example LOLCODE [1] 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}} {
    exit $ret
 }