let (/*) k x = (k*fst x,k*snd x)