Write a Haskell program vecSqDist that takes as input two integer lists (vectors) [21, ..., In] and [y1,..., Yn] and that outputs the following sum: (ti Y:)? i=1 If the input lists are not of equal length, the result should be (-1). Do not use any variant of the Haskell function zipWith. Write a Haskell program vecSqDist that takes as input two integer lists (vectors) [21, ..., In] and [y1,..., Yn] and that outputs the following sum: (ti Y:)? i=1 If the input lists are not of equal length, the result should be (-1). Do not use any variant of the Haskell function zipWith