[project @ 1997-05-26 05:47:45 by sof]
[ghc-hetmet.git] / ghc / compiler / tests / stranal / fact.stderr
1
2
3 --================================================================================
4 Simplified:
5 Rec {
6 `s1BQ'  :: 
7     `GHC.Int# -> PrelBase.Int'
8 `s1BQ' =
9     \ `ww'  :: 
10           `GHC.Int#'
11       `ww' ->
12         case# `ww' of {
13           0 ->
14               `PrelBase.I#'
15                   {2};
16           `s' ->
17               case
18                   `s1BQ'
19                       `ww'
20               of {
21               `PrelBase.I#' `s1tCY'  ->
22               case# *#! `s1tCY' `ww' of { `s1tDv' ->
23               `PrelBase.I#'
24                   {`s1tDv'};};};
25         }
26 end Rec }
27 `fact'  :: 
28     `PrelBase.Int -> PrelBase.Int'
29 `fact' =
30     \ `n'  :: 
31           `PrelBase.Int'
32       `n' ->
33         case `n' of { `PrelBase.I#' `ww'  ->
34         `s1BQ'
35             `ww';}