--- /dev/null
+import "Prelude"\r
+\r
+data CP = CP Integer String\r
+\r
+//cpName :: CP -> String\r
+cpName CP cp name = name\r
+\r
+connectionPoints :: Integer -> [(CP, CP)]\r
+connectionPoints n = []\r
+\r
+hasTerminalProblems :: Integer -> Boolean\r
+hasTerminalProblems uc =\r
+ let cps = connectionPoints uc\r
+ cpCount = length cps\r
+ dcps = map snd cps\r
+ dnames = map cpName dcps\r
+ dcpNameCount = length $ unique $ sort dnames\r
+ in cpCount != dcpNameCount\r
+\r
+main = "Not OK"\r
+--\r
+6:8-6:10: ???
\ No newline at end of file