Q1 = move_ball (\(x,y)-> x==P && y==F2)
Q2 = move_ball (\(x,y)-> x==P)
Q3 = move_ball (\(x,y)-> y==F2)
Q4 = move_ball (\_-> True)