Environment ; Win2K Advanced Server SP1 on PII 233 MHz. Is the output of 'Calendar' correct ? __ __ __ __ ____ ___ _______________________________________________ || || || || || || ||__ Hugs 98: Based on the Haskell 98 standard ||___|| ||__|| ||__|| __|| Copyright (c) 1994-2001 ||---|| ___|| World Wide Web: http://haskell.org/hugs || || Report bugs to: hugs-bugs@haskell.org || || Version: February 2001 _______________________________________________ Haskell 98 mode: Restart with command line option -98 to enable extensions Reading file "F:\hugs98\lib\Prelude.hs": Hugs session for: F:\hugs98\lib\Prelude.hs Type :? for help Prelude> Prelude> :l "F:\\hugs98\\demos\\Calendar.hs" Reading file "F:\hugs98\demos\Calendar.hs": Reading file "F:\hugs98\demos\Gofer.hs": Reading file "F:\hugs98\lib\List.hs": Reading file "F:\hugs98\lib\Maybe.hs": Reading file "F:\hugs98\lib\List.hs": Reading file "F:\hugs98\lib\IO.hs": Reading file "F:\hugs98\lib\Ix.hs": Reading file "F:\hugs98\lib\IO.hs": Reading file "F:\hugs98\lib\System.hs": Reading file "F:\hugs98\demos\Calendar.hs": Hugs session for: F:\hugs98\lib\Prelude.hs F:\hugs98\demos\Gofer.hs F:\hugs98\lib\Maybe.hs F:\hugs98\lib\List.hs F:\hugs98\lib\Ix.hs F:\hugs98\lib\IO.hs F:\hugs98\lib\System.hs F:\hugs98\demos\Calendar.hs Calendar> cal 2000 " 2000 \n \n January February March \n Su Mo Tu We Th Fr Sa Su M o Tu We Th Fr Sa Su Mo Tu We Th Fr Sa \n 1 1 2 3 4 5 1 2 3 4 \n 2 3 4 5 6 7 8 6 7 8 9 10 11 12 5 6 7 8 9 10 11 \n 9 10 11 12 13 14 15 13 14 15 16 17 18 19 12 13 14 15 16 17 18 \n 16 17 18 19 20 21 22 20 21 22 23 24 25 26 19 20 21 22 23 24 25 \ n 23 24 25 26 27 28 29 27 28 29 26 27 28 29 30 31 \n 30 31 \n \n April May June \n Su Mo Tu We Th Fr Sa Su Mo Tu We Th Fr Sa Su Mo Tu We Th Fr Sa \n 1 1 2 3 4 5 6 1 2 3 \n 2 3 4 5 6 7 8 7 8 9 10 11 12 13 4 5 6 7 8 9 10 \n 9 10 11 12 13 14 15 14 15 16 17 18 19 20 11 12 13 14 15 16 17 \ n 16 17 18 19 20 21 22 21 22 23 24 25 26 27 18 19 20 21 22 23 24 \n 23 24 2 5 26 27 28 29 28 29 30 31 25 26 27 28 29 30 \n 30 \n \n July August September \n Su Mo Tu We Th Fr Sa Su Mo Tu We Th Fr Sa S u Mo Tu We Th Fr Sa \n 1 1 2 3 4 5 1 2 \n 2 3 4 5 6 7 8 6 7 8 9 10 11 12 3 4 5 6 7 8 9 \ n 9 10 11 12 13 14 15 13 14 15 16 17 18 19 10 11 12 13 14 15 16 \n 16 17 1 8 19 20 21 22 20 21 22 23 24 25 26 17 18 19 20 21 22 23 \n 23 24 25 26 27 28 29 27 28 29 30 31 24 25 26 27 28 29 30 \n 30 31 \n \n October November December \n Su Mo Tu We Th Fr Sa Su Mo Tu We Th Fr Sa Su Mo Tu We Th Fr Sa \n 1 2 3 4 5 6 7 1 2 3 4 1 2 \ n 8 9 10 11 12 13 14 5 6 7 8 9 10 11 3 4 5 6 7 8 9 \n 15 16 1 7 18 19 20 21 12 13 14 15 16 17 18 10 11 12 13 14 15 16 \n 22 23 24 25 26 27 28 19 20 21 22 23 24 25 17 18 19 20 21 22 23 \n 29 30 31 26 2 7 28 29 30 24 25 26 27 28 29 30 \n 31 \n \n" Calendar>