// 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)
}