Forth interpreter by awk