A simple nonogram solver written in tcl