>>145
 f k l = zipWith k l (tail l)
なので zipTailWith とでも名づけるかな