/** Time to Finish

Extrapolate time taken for bouncing and conserved motion bouncing balls to reach a particular position and speed (-1, 0 or 1) given initial position and speed.

timetofinish(Time) :-

Time=5.

ball number, speed
**/

timetofinish(Time) :-