1 files changed, 5 insertions, 0 deletions

diff --git a/p7.hs b/p7.hs
new file mode 100644
index 0000000..c67b5c5
--- /dev/null
+++ b/p7.hs
@@ -0,0 +1,5 @@
+data NestedList a = Elem a | List [NestedList a]
+
+myFlatten :: NestedList a -> [a]
+myFlatten (Elem x) = [x]
+myFlatten (List x) = concatMap myFlatten x