# HG changeset patch
# User HackBot
# Date 1390895345 0
# Node ID 8dacc37c840144885b764e41e4c3db3d8658ceb5
# Parent  e600f1f94cde7b02ab7dbe555ac3f4d0151cab68
<oerjan> echo \'main = let p = 1 : zipWith (+) (map (*4) p) (map (sum . zipWith (*) p . reverse) (inits p)) in \' >Test.hs

diff -r e600f1f94cde -r 8dacc37c8401 Test.hs
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Test.hs	Tue Jan 28 07:49:05 2014 +0000
@@ -0,0 +1,1 @@
+main = let p = 1 : zipWith (+) (map (*4) p) (map (sum . zipWith (*) p . reverse) (inits p)) in