Features

• Familiar C-like Syntax
• Structs, lists, arrays, hashes
• Perl regexp: buf =~ /.*foo/, I/O: while (buf = <>)
• No memory management (reference counted)
• Compiles to Tcl byte codes, Little can call Tcl, Tcl can call Little
• Full access to Tcl runtime and libraries
• Full access to Tk graphical toolkits

/* trivial grep implementation */
int
main(string argv[])
{
    string buf, regexp;
    int    ret = 1;	// not found is default
    
    unless (regexp = argv[1]) die("usage: grep regexp [files]");
    undef(argv[1]);	// left shift down the args

    /*
     * Example perl goodness, the iterate through files and regexp
     */
    while (buf = <>) {
	if (buf =~ /${regexp}/) {
		puts(buf);
		ret = 0;
	}
    }
    return (ret);
}