// make a line that responds to the mouse
Paper ((<Mouse 1>*2)/4) Forever { Set H <Mouse 1> Set V <Mouse 2> Set Q <Mouse 3> Line H V 0 <time 4> Paper (H-V) }