--- /dev/null
+import "Prelude"\r
+\r
+dists l = sum [sqrt (dx*dx + dy*dy) \r
+ | i <- [0..length l-2]\r
+ , (x1,y1) = l!i\r
+ , (x2,y2) = l!(i+1)\r
+ , dx = x1-x2\r
+ , dy = y1-y2 ]\r
+ \r
+main = dists [(0,0),(1,1),(2,0)]\r
+-- \r
+2.8284271247461903
\ No newline at end of file