push a bit more functionality into Melchior/Mouse.hs