-import "Prelude"\r
-\r
-// --- Signals ------------------------------------------------------\r
-\r
-data Signal =\r
- SigSum [Signal]\r
- | SigConst Double\r
- | SigNeg Signal\r
- | SigMul [Signal]\r
-\r
-deriving instance Show Signal\r
-\r
-instance Additive Signal where\r
- zero = SigConst 0\r
- a + b = SigSum [a,b]\r
- sum l = SigSum l\r
-\r
-instance Ring Signal where\r
- one = SigConst 1\r
- neg a = SigNeg a\r
- fromInteger i = SigConst (fromInteger i)\r
- a * b = SigMul [a,b]\r
-\r
-/*\r
-instance Real Signal where\r
- fromDouble d = SigConst d\r
-*/\r
-\r
-main :: Signal\r
-main = 1 + 2 * 3 - 4 \r
---\r
+import "Prelude"
+
+// --- Signals ------------------------------------------------------
+
+data Signal =
+ SigSum [Signal]
+ | SigConst Double
+ | SigNeg Signal
+ | SigMul [Signal]
+
+deriving instance Show Signal
+
+instance Additive Signal where
+ zero = SigConst 0
+ a + b = SigSum [a,b]
+ sum l = SigSum l
+
+instance Ring Signal where
+ one = SigConst 1
+ neg a = SigNeg a
+ fromInteger i = SigConst (fromInteger i)
+ a * b = SigMul [a,b]
+
+/*
+instance Real Signal where
+ fromDouble d = SigConst d
+*/
+
+main :: Signal
+main = 1 + 2 * 3 - 4
+--