scheme_wish , by Sven Hartrumpf , is a portable interface between Scheme and Tcl/Tk . Chicken/Tk is based on it .