__   __ __  __  ____   ___      _______________________________________________
||   || ||  || ||  || ||__      Hugs 98: Based on the Haskell 98 standard
||___|| ||__|| ||__||  __||     Copyright (c) 1994-2005
||---||         ___||           World Wide Web: http://haskell.org/hugs
||   ||                         Bugs: http://hackage.haskell.org/trac/hugs
||   || Version: Sep 2006       _______________________________________________

Haskell 98 mode: Restart with command line option -98 to enable extensions

Type :? for help
Main> :edit
Main> sin 5
-0.958924274663138
Main> sin pi
1.22460635382238e-016
Main> sin 90
0.893996663600558
Main> let pi = 3.14 in pi * 2
6.28
Main> let pi = 3 in pi * 2
6
Main> let pi = 3.14; r = 5.5 in pi*r*r
94.985
Main> r
ERROR - Undefined variable "r"
Main> let pi = 3.14; r = 55 in pi*r*r
9498.5
Main> let pi = 3.14; r = sin 90 in pi*r*r
2.50958230842084
Main> let pi = 3.14; r = sin pi in pi*r*r
7.96474600091716e-006
Main> let x = 1; r = sin x in pi*r*r
2.22447824905046
Main> let r = sin x; x = 1 in pi*r*r
2.22447824905046
Main> let r = sin x; x = sin r in pi*r*r
ERROR - C stack overflow
Main> (let pi = 3 in pi*10) + 1
31
Main> pi*r where pi=3; r=10
30
Main> 100 where pi=3; r=10
100
Main> sin 90 where pi=3; r=10
0.893996663600558
Main> let r = sin x; x = sin r in pi
3.14159265358979
Main> :r
Main> evens 10
[0,2,4,6,8,10]
Main> :r
Main> qsort [3,1,4,6,2,5]
[1,2,3,4,5,6]
Main> qsort [1..10]
[1,2,3,4,5,6,7,8,9,10]
Main>