diff --git a/d12golf.hs b/d12golf.hs
new file mode 100644
index 0000000..2994e14
--- /dev/null
+++ b/d12golf.hs
@@ -0,0 +1,8 @@
+import Data.List
+z=filter
+s="start"
+w(a,b)=(b,a)
+i%m=map snd$z((==i).fst)(m++map w m)
+g c v f m|c=="end"=[[]]|let=map(c:)$(\x->g x(z(>"Z")$c:v)f m++[q|f,q<-g x v(2<1)m])=<<c%m\\v
+v t=length.group.sort.g s[s]t
+main=interact$show.((,).v(2>1)<*>v(2<1)).map(fmap tail.span(/='-')).lines
\ No newline at end of file