Index: /lang/haskell/misc/shutin.hs
===================================================================
--- /lang/haskell/misc/shutin.hs (revision 5)
+++ /lang/haskell/misc/shutin.hs (revision 5)
@@ -0,0 +1,5 @@
+main = (print . shutin) [1..20]
+
+shutin :: [a] -> [a]
+shutin []     = []
+shutin (i:is) = i : reverse is