type Point a = (a, a)
b :: [(a,a)] -> [(a,a)]
b (x:xs) = xs ++ [x]
c
:: (Floating a
) => [Point a
] -> [Point a
]c (x:xs) = xs ++ [x]
main = do
dHlwZSBQb2ludCBhID0gKGEsIGEpCgpiIDo6IFsoYSxhKV0gLT4gWyhhLGEpXQpiICh4OnhzKSA9IHhzICsrIFt4XQoKYyA6OiAoRmxvYXRpbmcgYSkgPT4gW1BvaW50IGFdIC0+IFtQb2ludCBhXQpjICh4OnhzKSA9IHhzICsrIFt4XQoKCm1haW4gPSBkbwoJcHJpbnQgJCBiIFsoMSwyKSwoMyw0KV0KCXByaW50ICQgYyBbKDEsMiksKDMsNCld