Prog "GraphInductive" ["FiniteMap","Maybe","Prelude","Sort"] [TypeSyn ((Nothing,Nothing,"GraphInductive","Node")) Public [] (TCons ((Nothing,Nothing,"Prelude","Int")) []),TypeSyn ((Nothing,Nothing,"GraphInductive","LNode")) Public [0] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]),TypeSyn ((Nothing,Nothing,"GraphInductive","UNode")) Public [] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","()")) []]),TypeSyn ((Nothing,Nothing,"GraphInductive","Edge")) Public [] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]),TypeSyn ((Nothing,Nothing,"GraphInductive","LEdge")) Public [0] (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]),TypeSyn ((Nothing,Nothing,"GraphInductive","UEdge")) Public [] (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","()")) []]),TypeSyn ((Nothing,Nothing,"GraphInductive","Context")) Public [0,1] (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]),TypeSyn ((Nothing,Nothing,"GraphInductive","Adj")) Private [0] (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]),TypeSyn ((Nothing,Nothing,"GraphInductive","MContext")) Public [0,1] (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]]),TypeSyn ((Nothing,Nothing,"GraphInductive","Context'")) Public [0,1] (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]),TypeSyn ((Nothing,Nothing,"GraphInductive","UContext")) Public [] (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []],TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]]),TypeSyn ((Nothing,Nothing,"GraphInductive","GDecomp")) Public [0,1] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]],TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]]),TypeSyn ((Nothing,Nothing,"GraphInductive","Decomp")) Public [0,1] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]],TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]]),TypeSyn ((Nothing,Nothing,"GraphInductive","UDecomp")) Public [0] (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []],TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]]],TVar 0]),TypeSyn ((Nothing,Nothing,"GraphInductive","Path")) Public [] (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]),TypeSyn ((Nothing,Nothing,"GraphInductive","LPath")) Public [0] (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]]),TypeSyn ((Nothing,Nothing,"GraphInductive","UPath")) Public [] (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","()")) []]]),TypeSyn ((Nothing,Nothing,"GraphInductive","GraphRep")) Private [0,1] (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]]),TypeSyn ((Nothing,Nothing,"GraphInductive","UGr")) Public [] (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TCons ((Nothing,Nothing,"Prelude","()")) [],TCons ((Nothing,Nothing,"Prelude","()")) []]),Type ((Nothing,Nothing,"GraphInductive","Graph")) Public [0,1] [Cons ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) 1 Private [TCons ((Nothing,Nothing,"FiniteMap","FM")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]]]]] [Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]))),"GraphInductive",":&")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 1,TVar 0]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 1,TVar 0]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 65) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 67) (FuncType (TVar 68) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TVar 65),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TVar 67),5),(Just (TVar 68),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0])),"GraphInductive","Gr")) [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),7)]) (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),8),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 74,TVar 75]) (FuncType (TVar 74) (FuncType (TVar 75) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 74,TVar 75])))),"FiniteMap","addToFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),7)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Comb ConsCall ((Nothing,Just (TVar 73),"Prelude","(,,)")) [Var ((Just (TVar 65),3)),Var ((Just (TVar 67),5)),Var ((Just (TVar 68),6))]])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),9),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 80,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 81,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 80,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 80,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (FuncType (TVar 80) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 80,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 81,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 80,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 80,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 81,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 80,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 80,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 81,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 80,TCons (Nothing,Nothing,"Prelude","Int") []]]]])))),"GraphInductive","updAdj")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),8)),Var ((Just (TVar 65),3)),Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 76) (FuncType (TVar 77) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 78,TVar 79,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 77,TVar 76]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 78,TVar 79,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 77,TVar 76]]])))),"GraphInductive","addSucc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))]])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),10),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 86,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 87,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 86,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 86,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (FuncType (TVar 86) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 86,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 87,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 86,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 86,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 87,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 86,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 86,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 87,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 86,TCons (Nothing,Nothing,"Prelude","Int") []]]]])))),"GraphInductive","updAdj")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),9)),Var ((Just (TVar 68),6)),Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 82) (FuncType (TVar 83) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 83,TVar 82]],TVar 84,TVar 85]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 83,TVar 82]],TVar 84,TVar 85])))),"GraphInductive","addPred")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))]])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FiniteMap","elemFM")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),7))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0])),"Prelude","error")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'N'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'N'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TVar 67) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 67),5))]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0])),"GraphInductive","Gr")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),10))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),"Prelude","failed")) [])])]))))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]])),"GraphInductive","matchAny")) 1 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]],TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]])) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FiniteMap","isEmptyFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]])),"Prelude","error")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'M'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'm'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'y'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'G'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'r'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]]]]]]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]])),"Prelude","head")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]])),"FiniteMap","fmToListPreOrder")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2))]]) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TVar 6),4)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"GraphInductive","match")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2))]]) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 10]) (FuncType (TVar 9) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 10]),5),(Just (TVar 9),6)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 10]),5))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 10) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 10])),"Prelude","Just")) [(Just (TVar 10),7)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 10) (FuncType (TVar 9) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"Prelude","(,)")) [Var ((Just (TVar 10),7)),Var ((Just (TVar 9),6))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 10]),"Prelude","Nothing")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]),"Prelude","failed")) [])])])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]),"Prelude","failed")) [])])])])),Func ((Nothing,Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),"GraphInductive","empty")) 0 Public (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (Rule [] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]])),"FiniteMap","emptyFM")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","mkGraph")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1]]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","insEdges")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]),2))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","insNodes")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]),1))]],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),"GraphInductive","empty")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0])),"GraphInductive","buildGr")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 1,TVar 0])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0])))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]))),"GraphInductive",":&")) [],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),"GraphInductive","empty")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TCons (Nothing,Nothing,"Prelude","()") [],TCons (Nothing,Nothing,"Prelude","()") []]))),"GraphInductive","mkUGraph")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TCons ((Nothing,Nothing,"Prelude","()")) [],TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","()") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","()") []]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TCons (Nothing,Nothing,"Prelude","()") [],TCons (Nothing,Nothing,"Prelude","()") []]))),"GraphInductive","mkGraph")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","()") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","()") []]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","()") []]])),"GraphInductive","labUNodes")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","()") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","()") []]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","()") []]])),"GraphInductive","labUEdges")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","insNode")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (TVar 4) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]))),"Prelude","(,)")) [(Just (TVar 3),2),(Just (TVar 4),3)]) (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive",":&")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 8) (FuncType (TVar 3) (FuncType (TVar 4) (FuncType (TVar 9) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [Comb ConsCall ((Nothing,Just (TVar 8),"Prelude","[]")) [],Var ((Just (TVar 3),2)),Var ((Just (TVar 4),3)),Comb ConsCall ((Nothing,Just (TVar 9),"Prelude","[]")) []]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]))),"GraphInductive","insEdge")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 1,TVar 0]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 1,TVar 0]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),1),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 215) (FuncType (TVar 216) (FuncType (TVar 217) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0])))),"Prelude","(,,)")) [(Just (TVar 215),3),(Just (TVar 216),4),(Just (TVar 217),5)]) (Let [((Just (TVar 218),6),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 221,TVar 222]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 222,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 221,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 222,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 221,TVar 222]]))),"GraphInductive","match")) [Var ((Just (TVar 215),3)),Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 223,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 224,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 223,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 224,TVar 223]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 223,TCons (Nothing,Nothing,"Prelude","Int") []]])),"GraphInductive","insEdge._#selFP3#pr")) [Var ((Just (TVar 218),6))])] (Let [((Just (TVar 1),8),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 225,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 226,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 225,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 226,TVar 225]]) (TVar 226)),"GraphInductive","insEdge._#selFP4#la")) [Var ((Just (TVar 218),6))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),9),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 227,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 228,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 227,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 228,TVar 227]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 227,TCons (Nothing,Nothing,"Prelude","Int") []]])),"GraphInductive","insEdge._#selFP5#su")) [Var ((Just (TVar 218),6))])] (Let [((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),10),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 229,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 230,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 229,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 230,TVar 229]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 230,TVar 229])),"GraphInductive","insEdge._#selFP6#g'")) [Var ((Just (TVar 218),6))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]))),"GraphInductive",":&")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TVar 215) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),7)),Var ((Just (TVar 215),3)),Var ((Just (TVar 1),8)),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 217) (FuncType (TVar 216) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [Var ((Just (TVar 217),5)),Var ((Just (TVar 216),4))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),9))]],Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),10))]))))))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]])),"GraphInductive","insEdge._#selFP3#pr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 213,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 212,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 213,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]],TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 212,TVar 213]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 213,TCons ((Nothing,Nothing,"Prelude","Int")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]) (FuncType (TVar 216) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]),2),(Just (TVar 216),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 217) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217])),"Prelude","Just")) [(Just (TVar 217),4)]) (Case  Flex (Var ((Just (TVar 217),4))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TVar 220) (FuncType (TVar 221) (FuncType (TVar 222) (TVar 217))))),"Prelude","(,,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]),5),(Just (TVar 220),6),(Just (TVar 221),7),(Just (TVar 222),8)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]),5)))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]) (TVar 212)),"GraphInductive","insEdge._#selFP4#la")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 213,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 212,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 213,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]],TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 212,TVar 213]]) (TVar 212)) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]) (FuncType (TVar 216) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]),2),(Just (TVar 216),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 217) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217])),"Prelude","Just")) [(Just (TVar 217),4)]) (Case  Flex (Var ((Just (TVar 217),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 219) (FuncType (TVar 220) (FuncType (TVar 212) (FuncType (TVar 222) (TVar 217))))),"Prelude","(,,,)")) [(Just (TVar 219),5),(Just (TVar 220),6),(Just (TVar 212),7),(Just (TVar 222),8)]) (Var ((Just (TVar 212),7)))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]])),"GraphInductive","insEdge._#selFP5#su")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 213,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 212,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 213,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]],TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 212,TVar 213]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 213,TCons ((Nothing,Nothing,"Prelude","Int")) []]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]) (FuncType (TVar 216) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]),2),(Just (TVar 216),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 217) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217])),"Prelude","Just")) [(Just (TVar 217),4)]) (Case  Flex (Var ((Just (TVar 217),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 219) (FuncType (TVar 220) (FuncType (TVar 221) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TVar 217))))),"Prelude","(,,,)")) [(Just (TVar 219),5),(Just (TVar 220),6),(Just (TVar 221),7),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]),8)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]),8)))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213])),"GraphInductive","insEdge._#selFP6#g'")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 213,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 212,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 213,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]],TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 212,TVar 213]]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 212,TVar 213])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 212,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 213,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]),2),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 217) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 217])),"Prelude","Just")) [(Just (TVar 217),4)]) (Case  Flex (Var ((Just (TVar 217),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 219) (FuncType (TVar 220) (FuncType (TVar 221) (FuncType (TVar 222) (TVar 217))))),"Prelude","(,,,)")) [(Just (TVar 219),5),(Just (TVar 220),6),(Just (TVar 221),7),(Just (TVar 222),8)]) (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 212,TVar 213]),3)))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","delNode")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","delNodes")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude",":")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","[]")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","delEdge")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]),1),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TVar 5),4)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"GraphInductive","match")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2))]) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 9]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 9]),5),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),6)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 9]),5))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 9]),"Prelude","Nothing")) []) (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2))),Branch (Pattern ((Nothing,Just (FuncType (TVar 9) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 9])),"Prelude","Just")) [(Just (TVar 9),7)]) (Case  Rigid (Var ((Just (TVar 9),7))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 11) (FuncType (TVar 12) (FuncType (TVar 13) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 22,TVar 5]]) (TVar 9))))),"Prelude","(,,,)")) [(Just (TVar 11),8),(Just (TVar 12),9),(Just (TVar 13),10),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 22,TVar 5]]),11)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive",":&")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 11) (FuncType (TVar 12) (FuncType (TVar 13) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 22,TVar 5]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [Var ((Just (TVar 11),8)),Var ((Just (TVar 12),9)),Var ((Just (TVar 13),10)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 22,TVar 5]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 22,TVar 5]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 22,TVar 5]]))),"Prelude","filter")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 22,TVar 5]) (TVar 5)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 22,TVar 5]) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 5) (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 5) (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 5) (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [],Var ((Just (TVar 5),4))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 22,TVar 5]) (TVar 5)),"Prelude","snd")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 22,TVar 5]]),11))]],Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),6))])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","insNodes")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]]) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]),1),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])))),"Prelude","foldr")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","insNode")) [],Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]))),"GraphInductive","insEdges")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]]) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 1,TVar 0]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 1,TVar 0]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]),1),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0])))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]))),"GraphInductive","insEdge")) [],Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","delNodes")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),1),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","[]")) []) (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","delNodes")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]),4)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"Prelude","snd")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"GraphInductive","match")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)),Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2))]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","delEdges")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]]) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]),1),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])))),"Prelude","foldr")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]))),"GraphInductive","delEdge")) [],Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]),1))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"GraphInductive","isEmpty")) 1 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FiniteMap","isEmptyFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"GraphInductive","match")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]],TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]])))),"Prelude","maybe")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 151]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 151]),"Prelude","Nothing")) [],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),3))]],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"GraphInductive","match._#lambda5")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]]))),"FiniteMap","splitFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 148,TVar 146]]))),"GraphInductive","match._#lambda5")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 146,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TVar 148,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 146,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]],TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 146,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TVar 148,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 146,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 146,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 148,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 146,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]],TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 148,TVar 146]]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 150) (FuncType (TVar 151) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]))),"Prelude","(,)")) [(Just (TVar 150),3),(Just (TVar 151),4)]) (Case  Flex (Var ((Just (TVar 151),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 153) (FuncType (TVar 154) (TVar 151))),"Prelude","(,)")) [(Just (TVar 153),5),(Just (TVar 154),6)]) (Case  Flex (Var ((Just (TVar 154),6))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 156) (FuncType (TVar 157) (FuncType (TVar 158) (TVar 154)))),"Prelude","(,,)")) [(Just (TVar 156),7),(Just (TVar 157),8),(Just (TVar 158),9)]) (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]),10),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 170) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 170]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 170]))),"Prelude","filter")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 167) (TVar 168)) (FuncType (FuncType (TVar 169) (TVar 167)) (FuncType (TVar 169) (TVar 168)))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 162) (FuncType (TVar 163) (TVar 164))) (FuncType (TVar 163) (FuncType (TVar 162) (TVar 164)))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 161) (FuncType (TVar 161) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 165,TVar 166]) (TVar 166)),"Prelude","snd")) []],Var ((Just (TVar 158),9))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]),11),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 180) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 180]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 180]))),"Prelude","filter")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 177) (TVar 178)) (FuncType (FuncType (TVar 179) (TVar 177)) (FuncType (TVar 179) (TVar 178)))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 172) (FuncType (TVar 173) (TVar 174))) (FuncType (TVar 173) (FuncType (TVar 172) (TVar 174)))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 171) (FuncType (TVar 171) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 175,TVar 176]) (TVar 176)),"Prelude","snd")) []],Var ((Just (TVar 156),7))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),12),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 186,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 187,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 186,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 186,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (FuncType (TVar 186) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 186,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 187,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 186,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 186,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 187,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 186,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 186,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 187,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 186,TCons (Nothing,Nothing,"Prelude","Int") []]]]])))),"GraphInductive","updAdj")) [Var ((Just (TVar 150),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]),10)),Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 181) (FuncType (TVar 182) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 183,TVar 181]],TVar 184,TVar 185]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 183,TVar 181]],TVar 184,TVar 185])))),"GraphInductive","clearPred")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),13),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 193,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 194,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 193,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 193,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (FuncType (TVar 193) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 193,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 194,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 193,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 193,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 194,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 193,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 193,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 194,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 193,TCons (Nothing,Nothing,"Prelude","Int") []]]]])))),"GraphInductive","updAdj")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),12)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]),11)),Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 188) (FuncType (TVar 189) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 190,TVar 191,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 192,TVar 188]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 190,TVar 191,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 192,TVar 188]]])))),"GraphInductive","clearSucc")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]])] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 196]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 148,TVar 146]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 148,TVar 146]]))),"Prelude","(,)")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 196) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 196])),"Prelude","Just")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 157) (FuncType (TVar 158) (TVar 196))))),"Prelude","(,,,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]),11)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Var ((Just (TVar 157),8)),Var ((Just (TVar 158),9))]],Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 148,TVar 146])),"GraphInductive","Gr")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 148,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 146,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),13))]])))))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","noNodes")) 1 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []])),"GraphInductive","nodeRange")) 1 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2)]) (Let [((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),3),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 339) (TVar 340)) (FuncType (FuncType (TVar 341) (TVar 339)) (FuncType (TVar 341) (TVar 340)))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 336,TVar 337]) (TVar 336)),"Prelude","fst")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 338]) (TVar 338)),"Maybe","fromJust")) []])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FiniteMap","isEmptyFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [Lit (Intc  0),Lit (Intc  0)]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]])) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]])),"FiniteMap","minFM")) [],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]])) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]])),"FiniteMap","maxFM")) [],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]),"Prelude","failed")) [])])]))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"GraphInductive","context")) 2 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]))) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"GraphInductive","match")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))]) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (FuncType (TVar 4) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),3),(Just (TVar 4),4)]) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),"Prelude","Nothing")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]])),"Prelude","error")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'M'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'a'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'h'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'N'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]]]),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]])),"Prelude","Just")) [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]),5)))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]))),"GraphInductive","lab")) 2 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TVar 0]))) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0])) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0]))),"Maybe",">>-")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]])),"Prelude","fst")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"GraphInductive","match")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)),Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))]],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0])))),"Prelude",".")) [Comb (ConsPartCall 1) ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 0])),"Prelude","Just")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TVar 0)),"GraphInductive","lab'")) []]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"GraphInductive","neighbors")) 0 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"GraphInductive",".:")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"GraphInductive","neighbors._#lambda7")) []],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"GraphInductive","context")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 416,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 415,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 416,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"GraphInductive","neighbors._#lambda7")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 416,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 415,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 416,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 416,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 415,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 416,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 416,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 415,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 416,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TVar 419) (FuncType (TVar 420) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 416,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 415,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 416,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]]),2),(Just (TVar 419),3),(Just (TVar 420),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","snd")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"Prelude","++")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 422,TCons (Nothing,Nothing,"Prelude","Int") []]]),5))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"GraphInductive","suc")) 0 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"GraphInductive",".:")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","snd")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"GraphInductive","context4")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"GraphInductive","pre")) 0 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))))),"GraphInductive",".:")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","snd")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"GraphInductive","context1")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"GraphInductive","lsuc")) 0 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1]]))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])))) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))))),"GraphInductive",".:")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1])),"GraphInductive","flip2")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"GraphInductive","context4")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"GraphInductive","lpre")) 0 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1]]))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])))) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))))),"GraphInductive",".:")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1])),"GraphInductive","flip2")) []]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"GraphInductive","context1")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"GraphInductive","out")) 2 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1]]))) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]))),"GraphInductive","out._#lambda8")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"GraphInductive","context4")) [],Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 511,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 511]))),"GraphInductive","out._#lambda8")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 511,TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 511]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 511,TCons (Nothing,Nothing,"Prelude","Int") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 511,TCons (Nothing,Nothing,"Prelude","Int") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 513) (FuncType (TVar 514) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 511,TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [(Just (TVar 513),3),(Just (TVar 514),4)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 514) (FuncType (TVar 513) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 511])))),"Prelude","(,,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Var ((Just (TVar 514),4)),Var ((Just (TVar 513),3))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"GraphInductive","inn")) 2 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1]]))) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]))),"GraphInductive","inn._#lambda9")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"GraphInductive","context1")) [],Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 521,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 521]))),"GraphInductive","inn._#lambda9")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 521,TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 521]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 521,TCons (Nothing,Nothing,"Prelude","Int") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 521,TCons (Nothing,Nothing,"Prelude","Int") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 523) (FuncType (TVar 524) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 521,TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [(Just (TVar 523),3),(Just (TVar 524),4)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 524) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 523) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 521])))),"Prelude","(,,)")) [Var ((Just (TVar 524),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Var ((Just (TVar 523),3))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"GraphInductive","outdeg")) 0 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) []))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))))),"GraphInductive",".:")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"GraphInductive","context4")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"GraphInductive","indeg")) 0 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) []))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))))),"GraphInductive",".:")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"GraphInductive","context1")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"GraphInductive","deg")) 0 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) []))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))))),"GraphInductive",".:")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","deg._#lambda10")) []],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"GraphInductive","context")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 553,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 552,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 553,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","deg._#lambda10")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 553,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 552,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 553,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 553,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 552,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 553,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 553,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 552,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 553,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 559]) (FuncType (TVar 556) (FuncType (TVar 557) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 560]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 553,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 552,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 553,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 559]),2),(Just (TVar 556),3),(Just (TVar 557),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 560]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 559]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 559]),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 560]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 560]),5))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"GraphInductive","gelem")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Maybe","isJust")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]])),"Prelude","fst")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]]))),"GraphInductive","match")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"GraphInductive","equal")) 2 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","&&")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])),"GraphInductive","slabNodes")) [],Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])),"GraphInductive","slabNodes")) [],Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])),"GraphInductive","slabEdges")) [],Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])),"GraphInductive","slabEdges")) [],Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (TCons (Nothing,Nothing,"Prelude","Ordering") []))),"GraphInductive","nodeComp")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]) (TCons ((Nothing,Nothing,"Prelude","Ordering")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),2)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","EQ")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","fst")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),1))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","fst")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),2))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","LT")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","GT")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","failed")) [])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])),"GraphInductive","slabNodes")) 0 Private (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (TCons (Nothing,Nothing,"Prelude","Ordering") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]))),"GraphInductive","sortBy")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (TCons (Nothing,Nothing,"Prelude","Ordering") []))),"GraphInductive","nodeComp")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])),"GraphInductive","labNodes")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (TCons (Nothing,Nothing,"Prelude","Ordering") []))),"GraphInductive","edgeComp")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]) (TCons ((Nothing,Nothing,"Prelude","Ordering")) []))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),1),(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),2)] (Let [((Just (TVar 614),3),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),1)))] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 616]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","edgeComp._#selFP11#v")) [Var ((Just (TVar 614),3))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),5),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 617]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","edgeComp._#selFP12#w")) [Var ((Just (TVar 614),3))])] (Let [((Just (TVar 615),6),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),2)))] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 618]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","edgeComp._#selFP9#x")) [Var ((Just (TVar 615),6))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),8),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 619]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","edgeComp._#selFP10#y")) [Var ((Just (TVar 615),6))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","EQ")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","||")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","&&")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),8))]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","LT")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","GT")) []),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","failed")) [])])])])))))))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","edgeComp._#selFP11#v")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 613]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 616) (FuncType (TVar 617) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613])))),"Prelude","(,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TVar 616),3),(Just (TVar 617),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","edgeComp._#selFP12#w")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 613]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 615) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 617) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613])))),"Prelude","(,,)")) [(Just (TVar 615),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TVar 617),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","edgeComp._#selFP9#x")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 613]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 616) (FuncType (TVar 617) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613])))),"Prelude","(,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TVar 616),3),(Just (TVar 617),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","edgeComp._#selFP10#y")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 613]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 615) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 617) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 613])))),"Prelude","(,,)")) [(Just (TVar 615),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TVar 617),4)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])),"GraphInductive","slabEdges")) 0 Private (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1]])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])))),"Prelude",".")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]) (TCons (Nothing,Nothing,"Prelude","Ordering") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"GraphInductive","sortBy")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]) (TCons (Nothing,Nothing,"Prelude","Ordering") []))),"GraphInductive","edgeComp")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])),"GraphInductive","labEdges")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","node'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 5) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TVar 3),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TVar 5),4),(Just (TVar 6),5)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TVar 1)),"GraphInductive","lab'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TVar 1)) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (TVar 4) (FuncType (TVar 1) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TVar 3),2),(Just (TVar 4),3),(Just (TVar 1),4),(Just (TVar 6),5)]) (Var ((Just (TVar 1),4)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1])),"GraphInductive","labNode'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (TVar 4) (FuncType (TVar 5) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TVar 3),2),(Just (TVar 4),3),(Just (TVar 5),4),(Just (TVar 6),5)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 4) (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]))),"Prelude","(,)")) [Var ((Just (TVar 4),3)),Var ((Just (TVar 5),4))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"GraphInductive","neighbors'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TVar 4) (FuncType (TVar 5) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 11,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]),2),(Just (TVar 4),3),(Just (TVar 5),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 11,TCons (Nothing,Nothing,"Prelude","Int") []]]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","snd")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]),2))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 11,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 11,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 11,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","snd")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 11,TCons (Nothing,Nothing,"Prelude","Int") []]]),5))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"GraphInductive","suc'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (TVar 4) (FuncType (TVar 5) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TVar 3),2),(Just (TVar 4),3),(Just (TVar 5),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","snd")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]),5))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"GraphInductive","pre'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TVar 4) (FuncType (TVar 5) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]),2),(Just (TVar 4),3),(Just (TVar 5),4),(Just (TVar 6),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","snd")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 7,TCons (Nothing,Nothing,"Prelude","Int") []]]),2))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])),"GraphInductive","lpre'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TVar 4) (FuncType (TVar 5) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),2),(Just (TVar 4),3),(Just (TVar 5),4),(Just (TVar 6),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0])),"GraphInductive","flip2")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),2))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])),"GraphInductive","lsuc'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (TVar 4) (FuncType (TVar 5) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TVar 3),2),(Just (TVar 4),3),(Just (TVar 5),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0])),"GraphInductive","flip2")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),5))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])),"GraphInductive","out'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 734) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 736) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TVar 734),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TVar 736),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]))),"GraphInductive","out'._#lambda11")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),5))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 732,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 732]))),"GraphInductive","out'._#lambda11")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 732,TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 732]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 732,TCons (Nothing,Nothing,"Prelude","Int") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 732,TCons (Nothing,Nothing,"Prelude","Int") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 734) (FuncType (TVar 735) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 732,TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [(Just (TVar 734),3),(Just (TVar 735),4)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 735) (FuncType (TVar 734) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 732])))),"Prelude","(,,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Var ((Just (TVar 735),4)),Var ((Just (TVar 734),3))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])),"GraphInductive","inn'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 746) (FuncType (TVar 747) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3),(Just (TVar 746),4),(Just (TVar 747),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]))),"GraphInductive","inn'._#lambda12")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),2))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 742,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 742]))),"GraphInductive","inn'._#lambda12")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 742,TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 742]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 742,TCons (Nothing,Nothing,"Prelude","Int") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 742,TCons (Nothing,Nothing,"Prelude","Int") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 744) (FuncType (TVar 745) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 742,TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [(Just (TVar 744),3),(Just (TVar 745),4)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 745) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 744) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 742])))),"Prelude","(,,)")) [Var ((Just (TVar 745),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Var ((Just (TVar 744),3))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","outdeg'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (TVar 4) (FuncType (TVar 5) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TVar 3),2),(Just (TVar 4),3),(Just (TVar 5),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]),5))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","indeg'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]) (FuncType (TVar 4) (FuncType (TVar 5) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]),2),(Just (TVar 4),3),(Just (TVar 5),4),(Just (TVar 6),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]),2))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","deg'")) 1 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]) (FuncType (TVar 4) (FuncType (TVar 5) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]),2),(Just (TVar 4),3),(Just (TVar 5),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 7]),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","length")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 8]),5))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])),"GraphInductive","labNodes")) 1 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 0]])) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0])),"GraphInductive","labNodes._#lambda13")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]])),"FiniteMap","fmToList")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 574,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 573,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 574,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 573])),"GraphInductive","labNodes._#lambda13")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 574,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TVar 573,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 574,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 573])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 574,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 573,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 574,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 574,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 573,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 574,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 576) (FuncType (TVar 577) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 574,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 573,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 574,TCons (Nothing,Nothing,"Prelude","Int") []]]]]))),"Prelude","(,)")) [(Just (TVar 576),2),(Just (TVar 577),3)]) (Case  Flex (Var ((Just (TVar 577),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 579) (FuncType (TVar 580) (FuncType (TVar 581) (TVar 577)))),"Prelude","(,,)")) [(Just (TVar 579),4),(Just (TVar 580),5),(Just (TVar 581),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 576) (FuncType (TVar 580) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 573]))),"Prelude","(,)")) [Var ((Just (TVar 576),2)),Var ((Just (TVar 580),5))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])),"GraphInductive","labEdges")) 1 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1]])) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]))),"Prelude","concatMap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])),"GraphInductive","labEdges._#lambda14")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]])),"FiniteMap","fmToList")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 619,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 620]])),"GraphInductive","labEdges._#lambda14")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 620,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TVar 619,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 620,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 620]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 619,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 619,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 623) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 619,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]]]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),2),(Just (TVar 623),3)]) (Case  Flex (Var ((Just (TVar 623),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 625) (FuncType (TVar 626) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TVar 623)))),"Prelude","(,,)")) [(Just (TVar 625),4),(Just (TVar 626),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]]),6)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 620])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 620]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 620]))),"GraphInductive","labEdges._#lambda14._#lambda15")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),2))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]]),6))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 620]))),"GraphInductive","labEdges._#lambda14._#lambda15")) 2 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 620,TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 620]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 622) (FuncType (TVar 623) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 620,TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [(Just (TVar 622),3),(Just (TVar 623),4)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 623) (FuncType (TVar 622) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 620])))),"Prelude","(,,)")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)),Var ((Just (TVar 623),4)),Var ((Just (TVar 622),3))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])),"GraphInductive","nodes")) 0 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (TCons (Nothing,Nothing,"Prelude","Int") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"Prelude","fst")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0]])),"GraphInductive","labNodes")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]])),"GraphInductive","edges")) 0 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []])),"GraphInductive","edges._#lambda16")) []],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1]])),"GraphInductive","labEdges")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 788]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []])),"GraphInductive","edges._#lambda16")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 788]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 788]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 788]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 790) (FuncType (TVar 791) (FuncType (TVar 792) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 788])))),"Prelude","(,,)")) [(Just (TVar 790),2),(Just (TVar 791),3),(Just (TVar 792),4)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 790) (FuncType (TVar 791) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [Var ((Just (TVar 790),2)),Var ((Just (TVar 791),3))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"GraphInductive","newNodes")) 2 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Int")) []]))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2)] (Let [((Just (TVar 2),3),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 3,TVar 4]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []])),"GraphInductive","nodeRange")) [Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","newNodes._#selFP14#n")) [Var ((Just (TVar 2),3))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","enumFromTo")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Lit (Intc  1)],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1))]])))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"GraphInductive","newNodes._#selFP14#n")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","Int")) []]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),3)))])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TVar 2) (TVar 2))) (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TVar 2)))),"GraphInductive","ufold")) 3 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (FuncType (TVar 2) (TVar 2))) (FuncType (TVar 2) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 1,TVar 0]) (TVar 2)))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TVar 2) (TVar 2))),1),(Just (TVar 2),2),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),3)] (Let [((Just (TVar 808),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 809,TVar 810]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 810,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 809,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 810,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 809,TVar 810]])),"GraphInductive","matchAny")) [Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),3))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),5),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 811,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 812,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 811,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 812,TVar 811]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 811,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 812,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 811,TCons (Nothing,Nothing,"Prelude","Int") []]]])),"GraphInductive","ufold._#selFP16#c")) [Var ((Just (TVar 808),4))])] (Let [((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),6),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 813,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 814,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 813,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 814,TVar 813]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 814,TVar 813])),"GraphInductive","ufold._#selFP17#g'")) [Var ((Just (TVar 808),4))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"GraphInductive","isEmpty")) [Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),3))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TVar 2),2))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 2) (TVar 2)) (FuncType (TVar 2) (TVar 2))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TVar 2) (TVar 2))) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TVar 2) (TVar 2)))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TVar 2) (TVar 2))),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]),5))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TVar 2) (TVar 2))) (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TVar 2)))),"GraphInductive","ufold")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TVar 2) (TVar 2))),1)),Var ((Just (TVar 2),2)),Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]),6))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TVar 2),"Prelude","failed")) [])])]))))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]])),"GraphInductive","ufold._#selFP16#c")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 807,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 806,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 807,TCons ((Nothing,Nothing,"Prelude","Int")) []]]],TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 806,TVar 807]]) (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 807,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 806,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 807,TCons ((Nothing,Nothing,"Prelude","Int")) []]]])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TVar 810) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807]]))),"Prelude","(,)")) [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]]),2),(Just (TVar 810),3)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]]),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807])),"GraphInductive","ufold._#selFP17#g'")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 807,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 806,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 807,TCons ((Nothing,Nothing,"Prelude","Int")) []]]],TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 806,TVar 807]]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 806,TVar 807])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 809) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 806,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 807,TCons (Nothing,Nothing,"Prelude","Int") []]]],TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807]]))),"Prelude","(,)")) [(Just (TVar 809),2),(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807]),3)]) (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 806,TVar 807]),3)))])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]]])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 3,TVar 2]))),"GraphInductive","gmap")) 1 Public (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 2,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 3,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 2,TCons ((Nothing,Nothing,"Prelude","Int")) []]]])) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 1,TVar 0]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 3,TVar 2]))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]]])),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 3,TVar 2]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 3,TVar 2]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 3,TVar 2]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 3,TVar 2])))),"GraphInductive","ufold")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 3,TVar 2]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 3,TVar 2])))),"GraphInductive","gmap._#lambda17")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]]])),1))],Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 3,TVar 2]),"GraphInductive","empty")) []])),Func ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 822,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 829,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 822,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 829,TVar 830]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 829,TVar 830])))),"GraphInductive","gmap._#lambda17")) 2 Private (FuncType (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 821,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 822,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 821,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 830,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 829,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 830,TCons ((Nothing,Nothing,"Prelude","Int")) []]]])) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 821,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 822,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 821,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 829,TVar 830]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 829,TVar 830])))) (Rule [(Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 822,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 829,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]]])),1),(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 822,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]]]),2)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 829,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 829,TVar 830]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 829,TVar 830]))),"GraphInductive",":&")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 822,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 829,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]]])) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 822,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 829,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"Prelude","apply")) [Var ((Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 822,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 829,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 830,TCons (Nothing,Nothing,"Prelude","Int") []]]])),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 822,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 821,TCons (Nothing,Nothing,"Prelude","Int") []]]]),2))]])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 2]))),"GraphInductive","nmap")) 1 Public (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 2]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 1,TVar 2]))) (Rule [(Just (FuncType (TVar 0) (TVar 1)),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]]])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 2]))),"GraphInductive","gmap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"GraphInductive","nmap._#lambda18")) [Var ((Just (FuncType (TVar 0) (TVar 1)),1))]])),Func ((Nothing,Just (FuncType (FuncType (TVar 841) (TVar 844)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 841,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 844,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"GraphInductive","nmap._#lambda18")) 2 Private (FuncType (FuncType (TVar 841) (TVar 844)) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 837,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 841,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 837,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 837,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 844,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 837,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]))) (Rule [(Just (FuncType (TVar 841) (TVar 844)),1),(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 841,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]]]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 841,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]]]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 846) (FuncType (TVar 847) (FuncType (TVar 841) (FuncType (TVar 849) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 841,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TVar 846),3),(Just (TVar 847),4),(Just (TVar 841),5),(Just (TVar 849),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 846) (FuncType (TVar 847) (FuncType (TVar 844) (FuncType (TVar 849) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 844,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 837,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [Var ((Just (TVar 846),3)),Var ((Just (TVar 847),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 841) (TVar 844)) (FuncType (TVar 841) (TVar 844))),"Prelude","apply")) [Var ((Just (FuncType (TVar 841) (TVar 844)),1)),Var ((Just (TVar 841),5))],Var ((Just (TVar 849),6))])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 2,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 2,TVar 1]))),"GraphInductive","emap")) 1 Public (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 2,TVar 0]) (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 2,TVar 1]))) (Rule [(Just (FuncType (TVar 0) (TVar 1)),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 2,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 2,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]])) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 2,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 2,TVar 1]))),"GraphInductive","gmap")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 2,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 2,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"GraphInductive","emap._#lambda20")) [Var ((Just (FuncType (TVar 0) (TVar 1)),1))]])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 2]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 2]]))),"GraphInductive","emap.map1.213")) 1 Private (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 2]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TVar 2]]))) (Rule [(Just (FuncType (TVar 0) (TVar 1)),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 2])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 2]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 2]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 2]))),"GraphInductive","emap.map1.213._#lambda19")) [Var ((Just (FuncType (TVar 0) (TVar 1)),1))]])),Func ((Nothing,Just (FuncType (FuncType (TVar 853) (TVar 856)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 853,TVar 854]) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 856,TVar 854]))),"GraphInductive","emap.map1.213._#lambda19")) 2 Private (FuncType (FuncType (TVar 853) (TVar 856)) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 853,TVar 854]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 856,TVar 854]))) (Rule [(Just (FuncType (TVar 853) (TVar 856)),1),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 853,TVar 854]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 853,TVar 854]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 853) (FuncType (TVar 859) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 853,TVar 854]))),"Prelude","(,)")) [(Just (TVar 853),3),(Just (TVar 859),4)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 856) (FuncType (TVar 859) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 856,TVar 854]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 853) (TVar 856)) (FuncType (TVar 853) (TVar 856))),"Prelude","apply")) [Var ((Just (FuncType (TVar 853) (TVar 856)),1)),Var ((Just (TVar 853),3))],Var ((Just (TVar 859),4))])])),Func ((Nothing,Just (FuncType (FuncType (TVar 865) (TVar 866)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 863,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 863,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"GraphInductive","emap._#lambda20")) 2 Private (FuncType (FuncType (TVar 865) (TVar 866)) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 865,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 863,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 865,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 866,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TCons ((Nothing,Nothing,"Prelude","Int")) [],TVar 863,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 866,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]))) (Rule [(Just (FuncType (TVar 865) (TVar 866)),1),(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 863,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TCons (Nothing,Nothing,"Prelude","Int") []]]]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 863,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TCons (Nothing,Nothing,"Prelude","Int") []]]]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 875]]) (FuncType (TVar 869) (FuncType (TVar 870) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 880]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 863,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 875]]),3),(Just (TVar 869),4),(Just (TVar 870),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 880]]),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TVar 875]]) (FuncType (TVar 869) (FuncType (TVar 870) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TVar 880]]) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 863,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TCons (Nothing,Nothing,"Prelude","Int") []]]]))))),"Prelude","(,,,)")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 875]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TVar 875]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 875]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TVar 875]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 865) (TVar 866)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 875]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TVar 875]]))),"GraphInductive","emap.map1.213")) [Var ((Just (FuncType (TVar 865) (TVar 866)),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 875]]),3))],Var ((Just (TVar 869),4)),Var ((Just (TVar 870),5)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 880]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TVar 880]])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 880]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TVar 880]]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 865) (TVar 866)) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 880]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 866,TVar 880]]))),"GraphInductive","emap.map1.213")) [Var ((Just (FuncType (TVar 865) (TVar 866)),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 865,TVar 880]]),6))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 0,TVar 1,TCons (Nothing,Nothing,"Prelude","()") []]])),"GraphInductive","labUEdges")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,,)")) [TVar 0,TVar 1,TCons ((Nothing,Nothing,"Prelude","()")) []]])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 0,TVar 1,TCons (Nothing,Nothing,"Prelude","()") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 0,TVar 1,TCons (Nothing,Nothing,"Prelude","()") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 0,TVar 1,TCons (Nothing,Nothing,"Prelude","()") []])),"GraphInductive","labUEdges._#lambda21")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 249,TVar 250]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 249,TVar 250,TCons (Nothing,Nothing,"Prelude","()") []])),"GraphInductive","labUEdges._#lambda21")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 249,TVar 250]) (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TVar 249,TVar 250,TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 249,TVar 250]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 249,TVar 250]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 252) (FuncType (TVar 253) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 249,TVar 250]))),"Prelude","(,)")) [(Just (TVar 252),2),(Just (TVar 253),3)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 252) (FuncType (TVar 253) (FuncType (TVar 256) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 249,TVar 250,TCons (Nothing,Nothing,"Prelude","()") []])))),"Prelude","(,,)")) [Var ((Just (TVar 252),2)),Var ((Just (TVar 253),3)),Comb ConsCall ((Nothing,Just (TVar 256),"Prelude","()")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]])),"GraphInductive","labUNodes")) 0 Public (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []])),"GraphInductive","labUNodes._#lambda22")) []])),Func ((Nothing,Just (FuncType (TVar 254) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 254,TCons (Nothing,Nothing,"Prelude","()") []])),"GraphInductive","labUNodes._#lambda22")) 1 Private (FuncType (TVar 254) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 254,TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [(Just (TVar 254),1)] (Comb ConsCall ((Nothing,Just (FuncType (TVar 254) (FuncType (TVar 257) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 254,TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","(,)")) [Var ((Just (TVar 254),1)),Comb ConsCall ((Nothing,Just (TVar 257),"Prelude","()")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"GraphInductive","showGraph")) 1 Public (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1])),"GraphInductive","Gr")) [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","unlines")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"GraphInductive","showNode")) [],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]])),"FiniteMap","fmToList")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),2))]]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 1,TVar 2,TVar 3]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"GraphInductive","showNode")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","(,,)")) [TVar 1,TVar 2,TVar 3]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","Char")) []])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 1,TVar 2,TVar 3]]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 1,TVar 2,TVar 3]]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 5) (FuncType (TVar 6) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 1,TVar 2,TVar 3]]))),"Prelude","(,)")) [(Just (TVar 5),2),(Just (TVar 6),3)]) (Case  Flex (Var ((Just (TVar 6),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 8) (FuncType (TVar 9) (FuncType (TVar 10) (TVar 6)))),"Prelude","(,,)")) [(Just (TVar 8),4),(Just (TVar 9),5),(Just (TVar 10),6)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 5) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 5),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb FuncCall ((Nothing,Just (FuncType (TVar 9) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 9),5))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '-'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  '>'),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]],Comb FuncCall ((Nothing,Just (FuncType (TVar 10) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TVar 10),6))]]]]])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (FuncType (TVar 2) (FuncType (TVar 3) (TVar 0))) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 1))))),"GraphInductive",".:")) 0 Private (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (FuncType (TVar 2) (FuncType (TVar 3) (TVar 0))) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 1))))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (FuncType (TVar 3) (TVar 0)) (FuncType (TVar 3) (TVar 1))) (FuncType (FuncType (TVar 2) (FuncType (TVar 3) (TVar 0))) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 1))))) (FuncType (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (FuncType (TVar 3) (TVar 0)) (FuncType (TVar 3) (TVar 1)))) (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (FuncType (TVar 2) (FuncType (TVar 3) (TVar 0))) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 1))))))),"Prelude",".")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (FuncType (TVar 3) (TVar 0)) (FuncType (TVar 3) (TVar 1))) (FuncType (FuncType (TVar 2) (FuncType (TVar 3) (TVar 0))) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 1))))),"Prelude",".")) [],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (FuncType (TVar 3) (TVar 0)) (FuncType (TVar 3) (TVar 1)))),"Prelude",".")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]) (TVar 0)),"GraphInductive","fst4")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TVar 0,TVar 1,TVar 2,TVar 3]) (TVar 0)) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 6) (FuncType (TVar 7) (FuncType (TVar 8) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]))))),"Prelude","(,,,)")) [(Just (TVar 0),2),(Just (TVar 6),3),(Just (TVar 7),4),(Just (TVar 8),5)]) (Var ((Just (TVar 0),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]) (TVar 3)),"GraphInductive","fth4")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,,)")) [TVar 0,TVar 1,TVar 2,TVar 3]) (TVar 3)) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 5) (FuncType (TVar 6) (FuncType (TVar 7) (FuncType (TVar 3) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TVar 0,TVar 1,TVar 2,TVar 3]))))),"Prelude","(,,,)")) [(Just (TVar 5),2),(Just (TVar 6),3),(Just (TVar 7),4),(Just (TVar 3),5)]) (Var ((Just (TVar 3),5)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0])),"GraphInductive","flip2")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TVar 0])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 3) (FuncType (TVar 4) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]))),"Prelude","(,)")) [(Just (TVar 3),2),(Just (TVar 4),3)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 4) (FuncType (TVar 3) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]))),"Prelude","(,)")) [Var ((Just (TVar 4),3)),Var ((Just (TVar 3),2))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"GraphInductive","context1")) 0 Private (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])))) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))))),"GraphInductive",".:")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])),"GraphInductive","fst4")) []],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"GraphInductive","context")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"GraphInductive","context4")) 0 Private (FuncType (TCons ((Nothing,Nothing,"GraphInductive","Graph")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) []]]))) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])))) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))))) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])))))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])) (FuncType (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]))))),"GraphInductive",".:")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]])),"GraphInductive","fth4")) []],Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 0,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),"GraphInductive","context")) []])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]]])))),"GraphInductive","addSucc")) 3 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TVar 2,TVar 3,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TVar 0]]]) (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TVar 2,TVar 3,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TVar 0]]])))) (Rule [(Just (TVar 0),1),(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]]]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]]]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 5) (FuncType (TVar 6) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]]])))),"Prelude","(,,)")) [(Just (TVar 5),4),(Just (TVar 6),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 5) (FuncType (TVar 6) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]]])))),"Prelude","(,,)")) [Var ((Just (TVar 5),4)),Var ((Just (TVar 6),5)),Comb ConsCall ((Nothing,Just (FuncType (TVar 11) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 0) (TVar 11))),"Prelude","(,)")) [Var ((Just (TVar 1),2)),Var ((Just (TVar 0),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]),6))]])])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]],TVar 2,TVar 3]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]],TVar 2,TVar 3])))),"GraphInductive","addPred")) 3 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TVar 0]],TVar 2,TVar 3]) (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TVar 0]],TVar 2,TVar 3])))) (Rule [(Just (TVar 0),1),(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]],TVar 2,TVar 3]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]],TVar 2,TVar 3]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]) (FuncType (TVar 6) (FuncType (TVar 7) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]],TVar 2,TVar 3])))),"Prelude","(,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]),4),(Just (TVar 6),5),(Just (TVar 7),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]) (FuncType (TVar 6) (FuncType (TVar 7) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]],TVar 2,TVar 3])))),"Prelude","(,,)")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 11) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 0) (TVar 11))),"Prelude","(,)")) [Var ((Just (TVar 1),2)),Var ((Just (TVar 0),1))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 11]),4))],Var ((Just (TVar 6),5)),Var ((Just (TVar 7),6))])])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 4,TVar 0]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 4,TVar 0]]])))),"GraphInductive","clearSucc")) 3 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TVar 2,TVar 3,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 4,TVar 0]]]) (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TVar 2,TVar 3,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 4,TVar 0]]])))) (Rule [(Just (TVar 0),1),(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 4,TVar 0]]]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 4,TVar 0]]]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 6) (FuncType (TVar 7) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 4,TVar 0]]])))),"Prelude","(,,)")) [(Just (TVar 6),4),(Just (TVar 7),5),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 6) (FuncType (TVar 7) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TVar 2,TVar 3,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 4,TVar 0]]])))),"Prelude","(,,)")) [Var ((Just (TVar 6),4)),Var ((Just (TVar 7),5)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]))),"Prelude","filter")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [],Var ((Just (TVar 0),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]) (TVar 0)),"Prelude","snd")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]),6))]])])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TVar 0]],TVar 3,TVar 4]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TVar 0]],TVar 3,TVar 4])))),"GraphInductive","clearPred")) 3 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 2,TVar 0]],TVar 3,TVar 4]) (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 2,TVar 0]],TVar 3,TVar 4])))) (Rule [(Just (TVar 0),1),(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TVar 0]],TVar 3,TVar 4]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TVar 0]],TVar 3,TVar 4]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]) (FuncType (TVar 7) (FuncType (TVar 8) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TVar 0]],TVar 3,TVar 4])))),"Prelude","(,,)")) [(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]),4),(Just (TVar 7),5),(Just (TVar 8),6)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]) (FuncType (TVar 7) (FuncType (TVar 8) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 2,TVar 0]],TVar 3,TVar 4])))),"Prelude","(,,)")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]))),"Prelude","filter")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]) (TVar 0)) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","flip")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [],Var ((Just (TVar 0),1))],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]) (TVar 0)),"Prelude","snd")) []],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 14,TVar 0]]),4))],Var ((Just (TVar 7),5)),Var ((Just (TVar 8),6))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]])))),"GraphInductive","updAdj")) 3 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]) (FuncType (FuncType (TVar 0) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]) (TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]))) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"Prelude","(,,)")) [TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]],TVar 1,TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","Int")) []]]]])))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),2),(Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),"Prelude","[]")) []) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),1))),Branch (Pattern ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]))),"Prelude",":")) [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]),4),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]))),"Prelude","(,)")) [(Just (TVar 0),6),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FiniteMap","elemFM")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),1))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]) (FuncType (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]])))),"GraphInductive","updAdj")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]])) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]])))),"FiniteMap","updFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]])))),"Prelude","apply")) [Var ((Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),3)),Var ((Just (TVar 0),6))]],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]),5)),Var ((Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]))),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]])),"Prelude","error")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude","++")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'g'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'E'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'x'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'c'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'p'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  't'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'i'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'n'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ','),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'N'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'o'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'd'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  'e'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ':'),Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Char") []) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]))),"Prelude",":")) [Lit (Charc  ' '),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []]),"Prelude","[]")) []]]]]]]]]]]]]]]]]]]]]]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","Char") []])),"Prelude","show")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7))]]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TCons (Nothing,Nothing,"Prelude","Int") [],TCons (Nothing,Nothing,"Prelude","(,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]]),"Prelude","failed")) [])])])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Ordering") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"GraphInductive","sortBy")) 1 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Ordering")) []))) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Ordering") []))),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"Sort","mergeSort")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Ordering") []))) (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"GraphInductive","sortBy._#lambda23")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Ordering") []))),1))]])),Func ((Nothing,Just (FuncType (FuncType (TVar 587) (FuncType (TVar 587) (TCons (Nothing,Nothing,"Prelude","Ordering") []))) (FuncType (TVar 587) (FuncType (TVar 587) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"GraphInductive","sortBy._#lambda23")) 3 Private (FuncType (FuncType (TVar 587) (FuncType (TVar 587) (TCons ((Nothing,Nothing,"Prelude","Ordering")) []))) (FuncType (TVar 587) (FuncType (TVar 587) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])))) (Rule [(Just (FuncType (TVar 587) (FuncType (TVar 587) (TCons (Nothing,Nothing,"Prelude","Ordering") []))),1),(Just (TVar 587),2),(Just (TVar 587),3)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),4),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 590) (TVar 591)) (FuncType (TVar 590) (TVar 591))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 588) (TVar 589)) (FuncType (TVar 588) (TVar 589))),"Prelude","apply")) [Var ((Just (FuncType (TVar 587) (FuncType (TVar 587) (TCons (Nothing,Nothing,"Prelude","Ordering") []))),1)),Var ((Just (TVar 587),2))],Var ((Just (TVar 587),3))])] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","||")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Ordering") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Ordering") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),4)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","EQ")) []],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Ordering") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Ordering") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),4)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Ordering") []),"Prelude","LT")) []]])))] [Op ((Nothing,Just (FuncType (FuncType (TVar 0) (TVar 1)) (FuncType (FuncType (TVar 2) (FuncType (TVar 3) (TVar 0))) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 1))))),"GraphInductive",".:")) InfixrOp 5,Op ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,,,)") [TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]],TCons (Nothing,Nothing,"Prelude","Int") [],TVar 1,TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","Int") []]]]) (FuncType (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"GraphInductive","Graph") [TVar 1,TVar 0]))),"GraphInductive",":&")) InfixrOp 5]