1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
__ __ __ __ ____ ___ _________________________________________
|| || || || || || ||__ Hugs 98: Based on the Haskell 98 standard
||___|| ||__|| ||__|| __|| Copyright (c) 1994-2005
||---|| ___|| World Wide Web: http://haskell.org/hugs
|| || Report bugs to: hugs-bugs@haskell.org
|| || Version: March 2005 _________________________________________
Hugs mode: Restart with command line option +98 for Haskell 98 mode
Type :? for help
Let4> Bin (Bin (Const 4) Times (Bin (Const 7) Plus (Const 1))) Minus (Const 1)
Let4> Let ("a" :=: Bin (Bin (Const 4) Times (Bin (Const 7) Plus (Const 1))) Minus (Const 1)) (Bin (Var "a") Times (Var "a"))
Let4>
Program error: user error (
*** syntax error:
a * a
<end of input>
)
Let4> [Leaving Hugs]
|
