%begin

  %include "inc:mouse.imp"

  %integer last = 0,current

  %cycle
    current = mouse buttons
    write (current,0) %and new line %if current # last
    last = current
  %repeat

%end %of %program
