{-# LANGUAGE BangPatterns #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE Strict #-} {-# LANGUAGE StrictData #-} {-# LANGUAGE ViewPatterns #-} module Backend.TStar where import Control.Monad.Except import Control.Parallel import Environment import Core.Primitives as Primitives import Backend.Utils import Core.Types import Core.Utils import Wrap import Backend.Toplevel import Backend.Core import Backend.Sys import Backend.Sequent import Backend.Yacc import Backend.Reader import Backend.Prolog import Backend.Track import Backend.Load import Backend.Writer import Backend.Macros import Backend.Declarations import Backend.Types {- Copyright (c) 2015, Mark Tarver All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. The name of Mark Tarver may not be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY Mark Tarver ''AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL Mark Tarver BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -} kl_shen_typecheck :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_typecheck (!kl_V3509) (!kl_V3510) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Curry) -> do let !appl_1 = ApplC (Func "lambda" (Context (\(!kl_ProcessN) -> do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_Type) -> do let !appl_3 = ApplC (Func "lambda" (Context (\(!kl_Continuation) -> do let !appl_4 = Atom Nil !appl_5 <- kl_Type `pseq` (appl_4 `pseq` klCons kl_Type appl_4) !appl_6 <- appl_5 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_5 !appl_7 <- kl_Curry `pseq` (appl_6 `pseq` klCons kl_Curry appl_6) let !appl_8 = Atom Nil appl_7 `pseq` (appl_8 `pseq` (kl_ProcessN `pseq` (kl_Continuation `pseq` kl_shen_tMult appl_7 appl_8 kl_ProcessN kl_Continuation)))))) let !appl_9 = ApplC (PL "thunk" (do kl_Type `pseq` (kl_ProcessN `pseq` kl_return kl_Type kl_ProcessN (Core.Types.Atom (Core.Types.UnboundSym "shen.void"))))) appl_9 `pseq` applyWrapper appl_3 [appl_9]))) !appl_10 <- kl_V3510 `pseq` kl_shen_curry_type kl_V3510 !appl_11 <- appl_10 `pseq` kl_shen_demodulate appl_10 !appl_12 <- appl_11 `pseq` (kl_ProcessN `pseq` kl_shen_insert_prolog_variables appl_11 kl_ProcessN) appl_12 `pseq` applyWrapper appl_2 [appl_12]))) !appl_13 <- kl_shen_start_new_prolog_process appl_13 `pseq` applyWrapper appl_1 [appl_13]))) !appl_14 <- kl_V3509 `pseq` kl_shen_curry kl_V3509 appl_14 `pseq` applyWrapper appl_0 [appl_14] kl_shen_curry :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_curry (!kl_V3512) = do !kl_if_0 <- let pat_cond_1 kl_V3512 kl_V3512h kl_V3512t = do !kl_if_2 <- kl_V3512h `pseq` kl_shen_specialP kl_V3512h case kl_if_2 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_3 = do do return (Atom (B False)) in case kl_V3512 of !(kl_V3512@(Cons (!kl_V3512h) (!kl_V3512t))) -> pat_cond_1 kl_V3512 kl_V3512h kl_V3512t _ -> pat_cond_3 case kl_if_0 of Atom (B (True)) -> do !appl_4 <- kl_V3512 `pseq` hd kl_V3512 let !appl_5 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do kl_Y `pseq` kl_shen_curry kl_Y))) !appl_6 <- kl_V3512 `pseq` tl kl_V3512 !appl_7 <- appl_5 `pseq` (appl_6 `pseq` kl_map appl_5 appl_6) appl_4 `pseq` (appl_7 `pseq` klCons appl_4 appl_7) Atom (B (False)) -> do !kl_if_8 <- let pat_cond_9 kl_V3512 kl_V3512h kl_V3512t = do !kl_if_10 <- let pat_cond_11 kl_V3512t kl_V3512th kl_V3512tt = do !kl_if_12 <- kl_V3512h `pseq` kl_shen_extraspecialP kl_V3512h case kl_if_12 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_13 = do do return (Atom (B False)) in case kl_V3512t of !(kl_V3512t@(Cons (!kl_V3512th) (!kl_V3512tt))) -> pat_cond_11 kl_V3512t kl_V3512th kl_V3512tt _ -> pat_cond_13 case kl_if_10 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_14 = do do return (Atom (B False)) in case kl_V3512 of !(kl_V3512@(Cons (!kl_V3512h) (!kl_V3512t))) -> pat_cond_9 kl_V3512 kl_V3512h kl_V3512t _ -> pat_cond_14 case kl_if_8 of Atom (B (True)) -> do return kl_V3512 Atom (B (False)) -> do !kl_if_15 <- let pat_cond_16 kl_V3512 kl_V3512h kl_V3512t = do !kl_if_17 <- let pat_cond_18 = do !kl_if_19 <- let pat_cond_20 kl_V3512t kl_V3512th kl_V3512tt = do !kl_if_21 <- let pat_cond_22 kl_V3512tt kl_V3512tth kl_V3512ttt = do let !appl_23 = Atom Nil !kl_if_24 <- appl_23 `pseq` (kl_V3512ttt `pseq` eq appl_23 kl_V3512ttt) case kl_if_24 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_25 = do do return (Atom (B False)) in case kl_V3512tt of !(kl_V3512tt@(Cons (!kl_V3512tth) (!kl_V3512ttt))) -> pat_cond_22 kl_V3512tt kl_V3512tth kl_V3512ttt _ -> pat_cond_25 case kl_if_21 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_26 = do do return (Atom (B False)) in case kl_V3512t of !(kl_V3512t@(Cons (!kl_V3512th) (!kl_V3512tt))) -> pat_cond_20 kl_V3512t kl_V3512th kl_V3512tt _ -> pat_cond_26 case kl_if_19 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_27 = do do return (Atom (B False)) in case kl_V3512h of kl_V3512h@(Atom (UnboundSym "type")) -> pat_cond_18 kl_V3512h@(ApplC (PL "type" _)) -> pat_cond_18 kl_V3512h@(ApplC (Func "type" _)) -> pat_cond_18 _ -> pat_cond_27 case kl_if_17 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_28 = do do return (Atom (B False)) in case kl_V3512 of !(kl_V3512@(Cons (!kl_V3512h) (!kl_V3512t))) -> pat_cond_16 kl_V3512 kl_V3512h kl_V3512t _ -> pat_cond_28 case kl_if_15 of Atom (B (True)) -> do !appl_29 <- kl_V3512 `pseq` tl kl_V3512 !appl_30 <- appl_29 `pseq` hd appl_29 !appl_31 <- appl_30 `pseq` kl_shen_curry appl_30 !appl_32 <- kl_V3512 `pseq` tl kl_V3512 !appl_33 <- appl_32 `pseq` tl appl_32 !appl_34 <- appl_31 `pseq` (appl_33 `pseq` klCons appl_31 appl_33) appl_34 `pseq` klCons (ApplC (wrapNamed "type" typeA)) appl_34 Atom (B (False)) -> do let pat_cond_35 kl_V3512 kl_V3512h kl_V3512t kl_V3512th kl_V3512tt kl_V3512tth kl_V3512ttt = do let !appl_36 = Atom Nil !appl_37 <- kl_V3512th `pseq` (appl_36 `pseq` klCons kl_V3512th appl_36) !appl_38 <- kl_V3512h `pseq` (appl_37 `pseq` klCons kl_V3512h appl_37) !appl_39 <- appl_38 `pseq` (kl_V3512tt `pseq` klCons appl_38 kl_V3512tt) appl_39 `pseq` kl_shen_curry appl_39 pat_cond_40 = do !kl_if_41 <- let pat_cond_42 kl_V3512 kl_V3512h kl_V3512t = do !kl_if_43 <- let pat_cond_44 kl_V3512t kl_V3512th kl_V3512tt = do let !appl_45 = Atom Nil !kl_if_46 <- appl_45 `pseq` (kl_V3512tt `pseq` eq appl_45 kl_V3512tt) case kl_if_46 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_47 = do do return (Atom (B False)) in case kl_V3512t of !(kl_V3512t@(Cons (!kl_V3512th) (!kl_V3512tt))) -> pat_cond_44 kl_V3512t kl_V3512th kl_V3512tt _ -> pat_cond_47 case kl_if_43 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_48 = do do return (Atom (B False)) in case kl_V3512 of !(kl_V3512@(Cons (!kl_V3512h) (!kl_V3512t))) -> pat_cond_42 kl_V3512 kl_V3512h kl_V3512t _ -> pat_cond_48 case kl_if_41 of Atom (B (True)) -> do !appl_49 <- kl_V3512 `pseq` hd kl_V3512 !appl_50 <- appl_49 `pseq` kl_shen_curry appl_49 !appl_51 <- kl_V3512 `pseq` tl kl_V3512 !appl_52 <- appl_51 `pseq` hd appl_51 !appl_53 <- appl_52 `pseq` kl_shen_curry appl_52 let !appl_54 = Atom Nil !appl_55 <- appl_53 `pseq` (appl_54 `pseq` klCons appl_53 appl_54) appl_50 `pseq` (appl_55 `pseq` klCons appl_50 appl_55) Atom (B (False)) -> do do return kl_V3512 _ -> throwError "if: expected boolean" in case kl_V3512 of !(kl_V3512@(Cons (!kl_V3512h) (!(kl_V3512t@(Cons (!kl_V3512th) (!(kl_V3512tt@(Cons (!kl_V3512tth) (!kl_V3512ttt))))))))) -> pat_cond_35 kl_V3512 kl_V3512h kl_V3512t kl_V3512th kl_V3512tt kl_V3512tth kl_V3512ttt _ -> pat_cond_40 _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean" kl_shen_specialP :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_specialP (!kl_V3514) = do !appl_0 <- value (Core.Types.Atom (Core.Types.UnboundSym "shen.*special*")) kl_V3514 `pseq` (appl_0 `pseq` kl_elementP kl_V3514 appl_0) kl_shen_extraspecialP :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_extraspecialP (!kl_V3516) = do !appl_0 <- value (Core.Types.Atom (Core.Types.UnboundSym "shen.*extraspecial*")) kl_V3516 `pseq` (appl_0 `pseq` kl_elementP kl_V3516 appl_0) kl_shen_tMult :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_tMult (!kl_V3521) (!kl_V3522) (!kl_V3523) (!kl_V3524) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Throwcontrol) -> do let !appl_1 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_2 = do let !appl_3 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_4 = do let !appl_5 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_6 = do let !appl_7 = ApplC (Func "lambda" (Context (\(!kl_Datatypes) -> do !appl_8 <- kl_shen_incinfs let !appl_9 = ApplC (PL "thunk" (do !appl_10 <- value (Core.Types.Atom (Core.Types.UnboundSym "shen.*datatypes*")) let !appl_11 = ApplC (PL "thunk" (do kl_V3521 `pseq` (kl_V3522 `pseq` (kl_Datatypes `pseq` (kl_V3523 `pseq` (kl_V3524 `pseq` kl_shen_udefsMult kl_V3521 kl_V3522 kl_Datatypes kl_V3523 kl_V3524)))))) kl_Datatypes `pseq` (appl_10 `pseq` (kl_V3523 `pseq` (appl_11 `pseq` kl_bind kl_Datatypes appl_10 kl_V3523 appl_11))))) !appl_12 <- kl_V3521 `pseq` (kl_V3522 `pseq` (kl_V3523 `pseq` (appl_9 `pseq` kl_shen_show kl_V3521 kl_V3522 kl_V3523 appl_9))) appl_8 `pseq` (appl_12 `pseq` kl_do appl_8 appl_12)))) !appl_13 <- kl_V3523 `pseq` kl_shen_newpv kl_V3523 appl_13 `pseq` applyWrapper appl_7 [appl_13] pat_cond_14 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_6 kl_Case@(Atom (B (False))) -> pat_cond_6 _ -> pat_cond_14))) let !appl_15 = ApplC (Func "lambda" (Context (\(!kl_V3502) -> do let pat_cond_16 kl_V3502 kl_V3502h kl_V3502t = do let !appl_17 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_18 = ApplC (Func "lambda" (Context (\(!kl_V3503) -> do let pat_cond_19 kl_V3503 kl_V3503h kl_V3503t = do let !appl_20 = ApplC (Func "lambda" (Context (\(!kl_V3504) -> do let pat_cond_21 = do let !appl_22 = ApplC (Func "lambda" (Context (\(!kl_V3505) -> do let pat_cond_23 kl_V3505 kl_V3505h kl_V3505t = do let !appl_24 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_25 = ApplC (Func "lambda" (Context (\(!kl_V3506) -> do let !appl_26 = Atom Nil !kl_if_27 <- appl_26 `pseq` (kl_V3506 `pseq` eq appl_26 kl_V3506) case kl_if_27 of Atom (B (True)) -> do !appl_28 <- kl_shen_incinfs !appl_29 <- kl_shen_type_theory_enabledP let !appl_30 = ApplC (PL "thunk" (do let !appl_31 = ApplC (PL "thunk" (do kl_X `pseq` (kl_A `pseq` (kl_V3522 `pseq` (kl_V3523 `pseq` (kl_V3524 `pseq` kl_shen_thMult kl_X kl_A kl_V3522 kl_V3523 kl_V3524)))))) kl_Throwcontrol `pseq` (kl_V3523 `pseq` (appl_31 `pseq` kl_cut kl_Throwcontrol kl_V3523 appl_31)))) !appl_32 <- appl_29 `pseq` (kl_V3523 `pseq` (appl_30 `pseq` kl_fwhen appl_29 kl_V3523 appl_30)) appl_28 `pseq` (appl_32 `pseq` kl_do appl_28 appl_32) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_33 <- kl_V3505t `pseq` (kl_V3523 `pseq` kl_shen_lazyderef kl_V3505t kl_V3523) appl_33 `pseq` applyWrapper appl_25 [appl_33]))) kl_V3505h `pseq` applyWrapper appl_24 [kl_V3505h] pat_cond_34 = do do return (Atom (B False)) in case kl_V3505 of !(kl_V3505@(Cons (!kl_V3505h) (!kl_V3505t))) -> pat_cond_23 kl_V3505 kl_V3505h kl_V3505t _ -> pat_cond_34))) !appl_35 <- kl_V3503t `pseq` (kl_V3523 `pseq` kl_shen_lazyderef kl_V3503t kl_V3523) appl_35 `pseq` applyWrapper appl_22 [appl_35] pat_cond_36 = do do return (Atom (B False)) in case kl_V3504 of kl_V3504@(Atom (UnboundSym ":")) -> pat_cond_21 kl_V3504@(ApplC (PL ":" _)) -> pat_cond_21 kl_V3504@(ApplC (Func ":" _)) -> pat_cond_21 _ -> pat_cond_36))) !appl_37 <- kl_V3503h `pseq` (kl_V3523 `pseq` kl_shen_lazyderef kl_V3503h kl_V3523) appl_37 `pseq` applyWrapper appl_20 [appl_37] pat_cond_38 = do do return (Atom (B False)) in case kl_V3503 of !(kl_V3503@(Cons (!kl_V3503h) (!kl_V3503t))) -> pat_cond_19 kl_V3503 kl_V3503h kl_V3503t _ -> pat_cond_38))) !appl_39 <- kl_V3502t `pseq` (kl_V3523 `pseq` kl_shen_lazyderef kl_V3502t kl_V3523) appl_39 `pseq` applyWrapper appl_18 [appl_39]))) kl_V3502h `pseq` applyWrapper appl_17 [kl_V3502h] pat_cond_40 = do do return (Atom (B False)) in case kl_V3502 of !(kl_V3502@(Cons (!kl_V3502h) (!kl_V3502t))) -> pat_cond_16 kl_V3502 kl_V3502h kl_V3502t _ -> pat_cond_40))) !appl_41 <- kl_V3521 `pseq` (kl_V3523 `pseq` kl_shen_lazyderef kl_V3521 kl_V3523) !appl_42 <- appl_41 `pseq` applyWrapper appl_15 [appl_41] appl_42 `pseq` applyWrapper appl_5 [appl_42] pat_cond_43 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_4 kl_Case@(Atom (B (False))) -> pat_cond_4 _ -> pat_cond_43))) let !appl_44 = ApplC (Func "lambda" (Context (\(!kl_V3501) -> do let pat_cond_45 = do !appl_46 <- kl_shen_incinfs let !appl_47 = ApplC (PL "thunk" (do kl_V3523 `pseq` (kl_V3524 `pseq` kl_shen_prolog_failure kl_V3523 kl_V3524))) !appl_48 <- kl_Throwcontrol `pseq` (kl_V3523 `pseq` (appl_47 `pseq` kl_cut kl_Throwcontrol kl_V3523 appl_47)) appl_46 `pseq` (appl_48 `pseq` kl_do appl_46 appl_48) pat_cond_49 = do do return (Atom (B False)) in case kl_V3501 of kl_V3501@(Atom (UnboundSym "fail")) -> pat_cond_45 kl_V3501@(ApplC (PL "fail" _)) -> pat_cond_45 kl_V3501@(ApplC (Func "fail" _)) -> pat_cond_45 _ -> pat_cond_49))) !appl_50 <- kl_V3521 `pseq` (kl_V3523 `pseq` kl_shen_lazyderef kl_V3521 kl_V3523) !appl_51 <- appl_50 `pseq` applyWrapper appl_44 [appl_50] appl_51 `pseq` applyWrapper appl_3 [appl_51] pat_cond_52 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_2 kl_Case@(Atom (B (False))) -> pat_cond_2 _ -> pat_cond_52))) let !appl_53 = ApplC (Func "lambda" (Context (\(!kl_Error) -> do !appl_54 <- kl_shen_incinfs !appl_55 <- kl_shen_maxinfexceededP let !appl_56 = ApplC (PL "thunk" (do !appl_57 <- kl_shen_errormaxinfs kl_Error `pseq` (appl_57 `pseq` (kl_V3523 `pseq` (kl_V3524 `pseq` kl_bind kl_Error appl_57 kl_V3523 kl_V3524))))) !appl_58 <- appl_55 `pseq` (kl_V3523 `pseq` (appl_56 `pseq` kl_fwhen appl_55 kl_V3523 appl_56)) appl_54 `pseq` (appl_58 `pseq` kl_do appl_54 appl_58)))) !appl_59 <- kl_V3523 `pseq` kl_shen_newpv kl_V3523 !appl_60 <- appl_59 `pseq` applyWrapper appl_53 [appl_59] !appl_61 <- appl_60 `pseq` applyWrapper appl_1 [appl_60] kl_Throwcontrol `pseq` (appl_61 `pseq` kl_shen_cutpoint kl_Throwcontrol appl_61)))) !appl_62 <- kl_shen_catchpoint appl_62 `pseq` applyWrapper appl_0 [appl_62] kl_shen_type_theory_enabledP :: Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_type_theory_enabledP = do value (Core.Types.Atom (Core.Types.UnboundSym "shen.*shen-type-theory-enabled?*")) kl_enable_type_theory :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_enable_type_theory (!kl_V3530) = do let pat_cond_0 = do klSet (Core.Types.Atom (Core.Types.UnboundSym "shen.*shen-type-theory-enabled?*")) (Atom (B True)) pat_cond_1 = do klSet (Core.Types.Atom (Core.Types.UnboundSym "shen.*shen-type-theory-enabled?*")) (Atom (B False)) pat_cond_2 = do do simpleError (Core.Types.Atom (Core.Types.Str "enable-type-theory expects a + or a -\n")) in case kl_V3530 of kl_V3530@(Atom (UnboundSym "+")) -> pat_cond_0 kl_V3530@(ApplC (PL "+" _)) -> pat_cond_0 kl_V3530@(ApplC (Func "+" _)) -> pat_cond_0 kl_V3530@(Atom (UnboundSym "-")) -> pat_cond_1 kl_V3530@(ApplC (PL "-" _)) -> pat_cond_1 kl_V3530@(ApplC (Func "-" _)) -> pat_cond_1 _ -> pat_cond_2 kl_shen_prolog_failure :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_prolog_failure (!kl_V3541) (!kl_V3542) = do return (Atom (B False)) kl_shen_maxinfexceededP :: Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_maxinfexceededP = do !appl_0 <- kl_inferences !appl_1 <- value (Core.Types.Atom (Core.Types.UnboundSym "shen.*maxinferences*")) appl_0 `pseq` (appl_1 `pseq` greaterThan appl_0 appl_1) kl_shen_errormaxinfs :: Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_errormaxinfs = do simpleError (Core.Types.Atom (Core.Types.Str "maximum inferences exceeded~%")) kl_shen_udefsMult :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_udefsMult (!kl_V3548) (!kl_V3549) (!kl_V3550) (!kl_V3551) (!kl_V3552) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_V3498) -> do let pat_cond_3 kl_V3498 kl_V3498h kl_V3498t = do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_Ds) -> do !appl_5 <- kl_shen_incinfs !appl_6 <- kl_V3548 `pseq` (kl_V3549 `pseq` (kl_Ds `pseq` (kl_V3551 `pseq` (kl_V3552 `pseq` kl_shen_udefsMult kl_V3548 kl_V3549 kl_Ds kl_V3551 kl_V3552)))) appl_5 `pseq` (appl_6 `pseq` kl_do appl_5 appl_6)))) kl_V3498t `pseq` applyWrapper appl_4 [kl_V3498t] pat_cond_7 = do do return (Atom (B False)) in case kl_V3498 of !(kl_V3498@(Cons (!kl_V3498h) (!kl_V3498t))) -> pat_cond_3 kl_V3498 kl_V3498h kl_V3498t _ -> pat_cond_7))) !appl_8 <- kl_V3550 `pseq` (kl_V3551 `pseq` kl_shen_lazyderef kl_V3550 kl_V3551) appl_8 `pseq` applyWrapper appl_2 [appl_8] pat_cond_9 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_1 kl_Case@(Atom (B (False))) -> pat_cond_1 _ -> pat_cond_9))) let !appl_10 = ApplC (Func "lambda" (Context (\(!kl_V3497) -> do let pat_cond_11 kl_V3497 kl_V3497h kl_V3497t = do let !appl_12 = ApplC (Func "lambda" (Context (\(!kl_D) -> do !appl_13 <- kl_shen_incinfs let !appl_14 = Atom Nil !appl_15 <- kl_V3549 `pseq` (appl_14 `pseq` klCons kl_V3549 appl_14) !appl_16 <- kl_V3548 `pseq` (appl_15 `pseq` klCons kl_V3548 appl_15) !appl_17 <- kl_D `pseq` (appl_16 `pseq` klCons kl_D appl_16) !appl_18 <- appl_17 `pseq` (kl_V3551 `pseq` (kl_V3552 `pseq` kl_call appl_17 kl_V3551 kl_V3552)) appl_13 `pseq` (appl_18 `pseq` kl_do appl_13 appl_18)))) kl_V3497h `pseq` applyWrapper appl_12 [kl_V3497h] pat_cond_19 = do do return (Atom (B False)) in case kl_V3497 of !(kl_V3497@(Cons (!kl_V3497h) (!kl_V3497t))) -> pat_cond_11 kl_V3497 kl_V3497h kl_V3497t _ -> pat_cond_19))) !appl_20 <- kl_V3550 `pseq` (kl_V3551 `pseq` kl_shen_lazyderef kl_V3550 kl_V3551) !appl_21 <- appl_20 `pseq` applyWrapper appl_10 [appl_20] appl_21 `pseq` applyWrapper appl_0 [appl_21] kl_shen_thMult :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_thMult (!kl_V3558) (!kl_V3559) (!kl_V3560) (!kl_V3561) (!kl_V3562) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Throwcontrol) -> do let !appl_1 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_2 = do let !appl_3 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_4 = do let !appl_5 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_6 = do let !appl_7 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_8 = do let !appl_9 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_10 = do let !appl_11 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_12 = do let !appl_13 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_14 = do let !appl_15 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_16 = do let !appl_17 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_18 = do let !appl_19 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_20 = do let !appl_21 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_22 = do let !appl_23 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_24 = do let !appl_25 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_26 = do let !appl_27 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_28 = do let !appl_29 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_30 = do let !appl_31 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_32 = do let !appl_33 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_34 = do let !appl_35 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_36 = do let !appl_37 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_38 = do let !appl_39 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_40 = do let !appl_41 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_42 = do let !appl_43 = ApplC (Func "lambda" (Context (\(!kl_Datatypes) -> do !appl_44 <- kl_shen_incinfs !appl_45 <- value (Core.Types.Atom (Core.Types.UnboundSym "shen.*datatypes*")) let !appl_46 = ApplC (PL "thunk" (do let !appl_47 = Atom Nil !appl_48 <- kl_V3559 `pseq` (appl_47 `pseq` klCons kl_V3559 appl_47) !appl_49 <- appl_48 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_48 !appl_50 <- kl_V3558 `pseq` (appl_49 `pseq` klCons kl_V3558 appl_49) appl_50 `pseq` (kl_V3560 `pseq` (kl_Datatypes `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_udefsMult appl_50 kl_V3560 kl_Datatypes kl_V3561 kl_V3562)))))) !appl_51 <- kl_Datatypes `pseq` (appl_45 `pseq` (kl_V3561 `pseq` (appl_46 `pseq` kl_bind kl_Datatypes appl_45 kl_V3561 appl_46))) appl_44 `pseq` (appl_51 `pseq` kl_do appl_44 appl_51)))) !appl_52 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_52 `pseq` applyWrapper appl_43 [appl_52] pat_cond_53 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_42 kl_Case@(Atom (B (False))) -> pat_cond_42 _ -> pat_cond_53))) let !appl_54 = ApplC (Func "lambda" (Context (\(!kl_V3491) -> do let pat_cond_55 kl_V3491 kl_V3491h kl_V3491t = do let !appl_56 = ApplC (Func "lambda" (Context (\(!kl_V3492) -> do let pat_cond_57 = do let !appl_58 = ApplC (Func "lambda" (Context (\(!kl_V3493) -> do let pat_cond_59 = do !appl_60 <- kl_shen_incinfs !appl_61 <- kl_V3562 `pseq` kl_thaw kl_V3562 appl_60 `pseq` (appl_61 `pseq` kl_do appl_60 appl_61) pat_cond_62 = do do !kl_if_63 <- kl_V3493 `pseq` kl_shen_pvarP kl_V3493 case kl_if_63 of Atom (B (True)) -> do !appl_64 <- kl_V3493 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3493 (Core.Types.Atom (Core.Types.UnboundSym "symbol")) kl_V3561) let !appl_65 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_66 <- kl_V3493 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3493 kl_V3561) appl_66 `pseq` (kl_Result `pseq` kl_do appl_66 kl_Result)))) !appl_67 <- kl_shen_incinfs !appl_68 <- kl_V3562 `pseq` kl_thaw kl_V3562 !appl_69 <- appl_67 `pseq` (appl_68 `pseq` kl_do appl_67 appl_68) !appl_70 <- appl_69 `pseq` applyWrapper appl_65 [appl_69] appl_64 `pseq` (appl_70 `pseq` kl_do appl_64 appl_70) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3493 of kl_V3493@(Atom (UnboundSym "symbol")) -> pat_cond_59 kl_V3493@(ApplC (PL "symbol" _)) -> pat_cond_59 kl_V3493@(ApplC (Func "symbol" _)) -> pat_cond_59 _ -> pat_cond_62))) !appl_71 <- kl_V3559 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3559 kl_V3561) appl_71 `pseq` applyWrapper appl_58 [appl_71] pat_cond_72 = do do return (Atom (B False)) in case kl_V3492 of kl_V3492@(Atom (UnboundSym "shen.synonyms-help")) -> pat_cond_57 kl_V3492@(ApplC (PL "shen.synonyms-help" _)) -> pat_cond_57 kl_V3492@(ApplC (Func "shen.synonyms-help" _)) -> pat_cond_57 _ -> pat_cond_72))) !appl_73 <- kl_V3491h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3491h kl_V3561) appl_73 `pseq` applyWrapper appl_56 [appl_73] pat_cond_74 = do do return (Atom (B False)) in case kl_V3491 of !(kl_V3491@(Cons (!kl_V3491h) (!kl_V3491t))) -> pat_cond_55 kl_V3491 kl_V3491h kl_V3491t _ -> pat_cond_74))) !appl_75 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_76 <- appl_75 `pseq` applyWrapper appl_54 [appl_75] appl_76 `pseq` applyWrapper appl_41 [appl_76] pat_cond_77 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_40 kl_Case@(Atom (B (False))) -> pat_cond_40 _ -> pat_cond_77))) let !appl_78 = ApplC (Func "lambda" (Context (\(!kl_V3488) -> do let pat_cond_79 kl_V3488 kl_V3488h kl_V3488t = do let !appl_80 = ApplC (Func "lambda" (Context (\(!kl_V3489) -> do let pat_cond_81 = do let !appl_82 = ApplC (Func "lambda" (Context (\(!kl_V3490) -> do let pat_cond_83 = do !appl_84 <- kl_shen_incinfs !appl_85 <- kl_V3562 `pseq` kl_thaw kl_V3562 appl_84 `pseq` (appl_85 `pseq` kl_do appl_84 appl_85) pat_cond_86 = do do !kl_if_87 <- kl_V3490 `pseq` kl_shen_pvarP kl_V3490 case kl_if_87 of Atom (B (True)) -> do !appl_88 <- kl_V3490 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3490 (Core.Types.Atom (Core.Types.UnboundSym "symbol")) kl_V3561) let !appl_89 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_90 <- kl_V3490 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3490 kl_V3561) appl_90 `pseq` (kl_Result `pseq` kl_do appl_90 kl_Result)))) !appl_91 <- kl_shen_incinfs !appl_92 <- kl_V3562 `pseq` kl_thaw kl_V3562 !appl_93 <- appl_91 `pseq` (appl_92 `pseq` kl_do appl_91 appl_92) !appl_94 <- appl_93 `pseq` applyWrapper appl_89 [appl_93] appl_88 `pseq` (appl_94 `pseq` kl_do appl_88 appl_94) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3490 of kl_V3490@(Atom (UnboundSym "symbol")) -> pat_cond_83 kl_V3490@(ApplC (PL "symbol" _)) -> pat_cond_83 kl_V3490@(ApplC (Func "symbol" _)) -> pat_cond_83 _ -> pat_cond_86))) !appl_95 <- kl_V3559 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3559 kl_V3561) appl_95 `pseq` applyWrapper appl_82 [appl_95] pat_cond_96 = do do return (Atom (B False)) in case kl_V3489 of kl_V3489@(Atom (UnboundSym "shen.process-datatype")) -> pat_cond_81 kl_V3489@(ApplC (PL "shen.process-datatype" _)) -> pat_cond_81 kl_V3489@(ApplC (Func "shen.process-datatype" _)) -> pat_cond_81 _ -> pat_cond_96))) !appl_97 <- kl_V3488h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3488h kl_V3561) appl_97 `pseq` applyWrapper appl_80 [appl_97] pat_cond_98 = do do return (Atom (B False)) in case kl_V3488 of !(kl_V3488@(Cons (!kl_V3488h) (!kl_V3488t))) -> pat_cond_79 kl_V3488 kl_V3488h kl_V3488t _ -> pat_cond_98))) !appl_99 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_100 <- appl_99 `pseq` applyWrapper appl_78 [appl_99] appl_100 `pseq` applyWrapper appl_39 [appl_100] pat_cond_101 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_38 kl_Case@(Atom (B (False))) -> pat_cond_38 _ -> pat_cond_101))) let !appl_102 = ApplC (Func "lambda" (Context (\(!kl_V3485) -> do let pat_cond_103 kl_V3485 kl_V3485h kl_V3485t = do let !appl_104 = ApplC (Func "lambda" (Context (\(!kl_V3486) -> do let pat_cond_105 = do let !appl_106 = ApplC (Func "lambda" (Context (\(!kl_V3487) -> do let pat_cond_107 = do !appl_108 <- kl_shen_incinfs !appl_109 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_cut kl_Throwcontrol kl_V3561 kl_V3562)) appl_108 `pseq` (appl_109 `pseq` kl_do appl_108 appl_109) pat_cond_110 = do do !kl_if_111 <- kl_V3487 `pseq` kl_shen_pvarP kl_V3487 case kl_if_111 of Atom (B (True)) -> do !appl_112 <- kl_V3487 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3487 (Core.Types.Atom (Core.Types.UnboundSym "unit")) kl_V3561) let !appl_113 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_114 <- kl_V3487 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3487 kl_V3561) appl_114 `pseq` (kl_Result `pseq` kl_do appl_114 kl_Result)))) !appl_115 <- kl_shen_incinfs !appl_116 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_cut kl_Throwcontrol kl_V3561 kl_V3562)) !appl_117 <- appl_115 `pseq` (appl_116 `pseq` kl_do appl_115 appl_116) !appl_118 <- appl_117 `pseq` applyWrapper appl_113 [appl_117] appl_112 `pseq` (appl_118 `pseq` kl_do appl_112 appl_118) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3487 of kl_V3487@(Atom (UnboundSym "unit")) -> pat_cond_107 kl_V3487@(ApplC (PL "unit" _)) -> pat_cond_107 kl_V3487@(ApplC (Func "unit" _)) -> pat_cond_107 _ -> pat_cond_110))) !appl_119 <- kl_V3559 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3559 kl_V3561) appl_119 `pseq` applyWrapper appl_106 [appl_119] pat_cond_120 = do do return (Atom (B False)) in case kl_V3486 of kl_V3486@(Atom (UnboundSym "defmacro")) -> pat_cond_105 kl_V3486@(ApplC (PL "defmacro" _)) -> pat_cond_105 kl_V3486@(ApplC (Func "defmacro" _)) -> pat_cond_105 _ -> pat_cond_120))) !appl_121 <- kl_V3485h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3485h kl_V3561) appl_121 `pseq` applyWrapper appl_104 [appl_121] pat_cond_122 = do do return (Atom (B False)) in case kl_V3485 of !(kl_V3485@(Cons (!kl_V3485h) (!kl_V3485t))) -> pat_cond_103 kl_V3485 kl_V3485h kl_V3485t _ -> pat_cond_122))) !appl_123 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_124 <- appl_123 `pseq` applyWrapper appl_102 [appl_123] appl_124 `pseq` applyWrapper appl_37 [appl_124] pat_cond_125 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_36 kl_Case@(Atom (B (False))) -> pat_cond_36 _ -> pat_cond_125))) let !appl_126 = ApplC (Func "lambda" (Context (\(!kl_V3482) -> do let pat_cond_127 kl_V3482 kl_V3482h kl_V3482t = do let !appl_128 = ApplC (Func "lambda" (Context (\(!kl_V3483) -> do let pat_cond_129 = do let !appl_130 = ApplC (Func "lambda" (Context (\(!kl_V3484) -> do let pat_cond_131 kl_V3484 kl_V3484h kl_V3484t = do let !appl_132 = ApplC (Func "lambda" (Context (\(!kl_F) -> do let !appl_133 = ApplC (Func "lambda" (Context (\(!kl_X) -> do !appl_134 <- kl_shen_incinfs let !appl_135 = ApplC (PL "thunk" (do !appl_136 <- kl_F `pseq` (kl_X `pseq` klCons kl_F kl_X) !appl_137 <- appl_136 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "define")) appl_136 appl_137 `pseq` (kl_V3559 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_tMult_def appl_137 kl_V3559 kl_V3560 kl_V3561 kl_V3562)))))) !appl_138 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_135 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_135)) appl_134 `pseq` (appl_138 `pseq` kl_do appl_134 appl_138)))) kl_V3484t `pseq` applyWrapper appl_133 [kl_V3484t]))) kl_V3484h `pseq` applyWrapper appl_132 [kl_V3484h] pat_cond_139 = do do return (Atom (B False)) in case kl_V3484 of !(kl_V3484@(Cons (!kl_V3484h) (!kl_V3484t))) -> pat_cond_131 kl_V3484 kl_V3484h kl_V3484t _ -> pat_cond_139))) !appl_140 <- kl_V3482t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3482t kl_V3561) appl_140 `pseq` applyWrapper appl_130 [appl_140] pat_cond_141 = do do return (Atom (B False)) in case kl_V3483 of kl_V3483@(Atom (UnboundSym "define")) -> pat_cond_129 kl_V3483@(ApplC (PL "define" _)) -> pat_cond_129 kl_V3483@(ApplC (Func "define" _)) -> pat_cond_129 _ -> pat_cond_141))) !appl_142 <- kl_V3482h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3482h kl_V3561) appl_142 `pseq` applyWrapper appl_128 [appl_142] pat_cond_143 = do do return (Atom (B False)) in case kl_V3482 of !(kl_V3482@(Cons (!kl_V3482h) (!kl_V3482t))) -> pat_cond_127 kl_V3482 kl_V3482h kl_V3482t _ -> pat_cond_143))) !appl_144 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_145 <- appl_144 `pseq` applyWrapper appl_126 [appl_144] appl_145 `pseq` applyWrapper appl_35 [appl_145] pat_cond_146 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_34 kl_Case@(Atom (B (False))) -> pat_cond_34 _ -> pat_cond_146))) let !appl_147 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_148 <- kl_shen_incinfs let !appl_149 = ApplC (PL "thunk" (do kl_V3558 `pseq` (kl_V3559 `pseq` (kl_NewHyp `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_V3558 kl_V3559 kl_NewHyp kl_V3561 kl_V3562)))))) !appl_150 <- kl_V3560 `pseq` (kl_NewHyp `pseq` (kl_V3561 `pseq` (appl_149 `pseq` kl_shen_tMult_hyps kl_V3560 kl_NewHyp kl_V3561 appl_149))) appl_148 `pseq` (appl_150 `pseq` kl_do appl_148 appl_150)))) !appl_151 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 !appl_152 <- appl_151 `pseq` applyWrapper appl_147 [appl_151] appl_152 `pseq` applyWrapper appl_33 [appl_152] pat_cond_153 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_32 kl_Case@(Atom (B (False))) -> pat_cond_32 _ -> pat_cond_153))) let !appl_154 = ApplC (Func "lambda" (Context (\(!kl_V3477) -> do let pat_cond_155 kl_V3477 kl_V3477h kl_V3477t = do let !appl_156 = ApplC (Func "lambda" (Context (\(!kl_V3478) -> do let pat_cond_157 = do let !appl_158 = ApplC (Func "lambda" (Context (\(!kl_V3479) -> do let pat_cond_159 kl_V3479 kl_V3479h kl_V3479t = do let !appl_160 = ApplC (Func "lambda" (Context (\(!kl_Var) -> do let !appl_161 = ApplC (Func "lambda" (Context (\(!kl_V3480) -> do let pat_cond_162 kl_V3480 kl_V3480h kl_V3480t = do let !appl_163 = ApplC (Func "lambda" (Context (\(!kl_Val) -> do let !appl_164 = ApplC (Func "lambda" (Context (\(!kl_V3481) -> do let !appl_165 = Atom Nil !kl_if_166 <- appl_165 `pseq` (kl_V3481 `pseq` eq appl_165 kl_V3481) case kl_if_166 of Atom (B (True)) -> do !appl_167 <- kl_shen_incinfs let !appl_168 = ApplC (PL "thunk" (do let !appl_169 = ApplC (PL "thunk" (do let !appl_170 = ApplC (PL "thunk" (do let !appl_171 = Atom Nil !appl_172 <- kl_Var `pseq` (appl_171 `pseq` klCons kl_Var appl_171) !appl_173 <- appl_172 `pseq` klCons (ApplC (wrapNamed "value" value)) appl_172 let !appl_174 = ApplC (PL "thunk" (do kl_Val `pseq` (kl_V3559 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Val kl_V3559 kl_V3560 kl_V3561 kl_V3562)))))) appl_173 `pseq` (kl_V3559 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_174 `pseq` kl_shen_thMult appl_173 kl_V3559 kl_V3560 kl_V3561 appl_174)))))) kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_170 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_170)))) kl_Var `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_169 `pseq` kl_shen_thMult kl_Var (Core.Types.Atom (Core.Types.UnboundSym "symbol")) kl_V3560 kl_V3561 appl_169))))) !appl_175 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_168 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_168)) appl_167 `pseq` (appl_175 `pseq` kl_do appl_167 appl_175) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_176 <- kl_V3480t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3480t kl_V3561) appl_176 `pseq` applyWrapper appl_164 [appl_176]))) kl_V3480h `pseq` applyWrapper appl_163 [kl_V3480h] pat_cond_177 = do do return (Atom (B False)) in case kl_V3480 of !(kl_V3480@(Cons (!kl_V3480h) (!kl_V3480t))) -> pat_cond_162 kl_V3480 kl_V3480h kl_V3480t _ -> pat_cond_177))) !appl_178 <- kl_V3479t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3479t kl_V3561) appl_178 `pseq` applyWrapper appl_161 [appl_178]))) kl_V3479h `pseq` applyWrapper appl_160 [kl_V3479h] pat_cond_179 = do do return (Atom (B False)) in case kl_V3479 of !(kl_V3479@(Cons (!kl_V3479h) (!kl_V3479t))) -> pat_cond_159 kl_V3479 kl_V3479h kl_V3479t _ -> pat_cond_179))) !appl_180 <- kl_V3477t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3477t kl_V3561) appl_180 `pseq` applyWrapper appl_158 [appl_180] pat_cond_181 = do do return (Atom (B False)) in case kl_V3478 of kl_V3478@(Atom (UnboundSym "set")) -> pat_cond_157 kl_V3478@(ApplC (PL "set" _)) -> pat_cond_157 kl_V3478@(ApplC (Func "set" _)) -> pat_cond_157 _ -> pat_cond_181))) !appl_182 <- kl_V3477h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3477h kl_V3561) appl_182 `pseq` applyWrapper appl_156 [appl_182] pat_cond_183 = do do return (Atom (B False)) in case kl_V3477 of !(kl_V3477@(Cons (!kl_V3477h) (!kl_V3477t))) -> pat_cond_155 kl_V3477 kl_V3477h kl_V3477t _ -> pat_cond_183))) !appl_184 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_185 <- appl_184 `pseq` applyWrapper appl_154 [appl_184] appl_185 `pseq` applyWrapper appl_31 [appl_185] pat_cond_186 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_30 kl_Case@(Atom (B (False))) -> pat_cond_30 _ -> pat_cond_186))) let !appl_187 = ApplC (Func "lambda" (Context (\(!kl_V3472) -> do let pat_cond_188 kl_V3472 kl_V3472h kl_V3472t = do let !appl_189 = ApplC (Func "lambda" (Context (\(!kl_V3473) -> do let pat_cond_190 = do let !appl_191 = ApplC (Func "lambda" (Context (\(!kl_V3474) -> do let pat_cond_192 kl_V3474 kl_V3474h kl_V3474t = do let !appl_193 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_194 = ApplC (Func "lambda" (Context (\(!kl_V3475) -> do let pat_cond_195 kl_V3475 kl_V3475h kl_V3475t = do let !appl_196 = ApplC (Func "lambda" (Context (\(!kl_Stream) -> do let !appl_197 = ApplC (Func "lambda" (Context (\(!kl_V3476) -> do let !appl_198 = Atom Nil !kl_if_199 <- appl_198 `pseq` (kl_V3476 `pseq` eq appl_198 kl_V3476) case kl_if_199 of Atom (B (True)) -> do let !appl_200 = ApplC (Func "lambda" (Context (\(!kl_C) -> do !appl_201 <- kl_shen_incinfs !appl_202 <- kl_A `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_A kl_V3561) !appl_203 <- appl_202 `pseq` kl_shen_demodulate appl_202 let !appl_204 = ApplC (PL "thunk" (do let !appl_205 = ApplC (PL "thunk" (do let !appl_206 = Atom Nil !appl_207 <- appl_206 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "in")) appl_206 !appl_208 <- appl_207 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "stream")) appl_207 kl_Stream `pseq` (appl_208 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Stream appl_208 kl_V3560 kl_V3561 kl_V3562)))))) kl_V3559 `pseq` (kl_C `pseq` (kl_V3561 `pseq` (appl_205 `pseq` kl_unify kl_V3559 kl_C kl_V3561 appl_205))))) !appl_209 <- kl_C `pseq` (appl_203 `pseq` (kl_V3561 `pseq` (appl_204 `pseq` kl_bind kl_C appl_203 kl_V3561 appl_204))) appl_201 `pseq` (appl_209 `pseq` kl_do appl_201 appl_209)))) !appl_210 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_210 `pseq` applyWrapper appl_200 [appl_210] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_211 <- kl_V3475t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3475t kl_V3561) appl_211 `pseq` applyWrapper appl_197 [appl_211]))) kl_V3475h `pseq` applyWrapper appl_196 [kl_V3475h] pat_cond_212 = do do return (Atom (B False)) in case kl_V3475 of !(kl_V3475@(Cons (!kl_V3475h) (!kl_V3475t))) -> pat_cond_195 kl_V3475 kl_V3475h kl_V3475t _ -> pat_cond_212))) !appl_213 <- kl_V3474t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3474t kl_V3561) appl_213 `pseq` applyWrapper appl_194 [appl_213]))) kl_V3474h `pseq` applyWrapper appl_193 [kl_V3474h] pat_cond_214 = do do return (Atom (B False)) in case kl_V3474 of !(kl_V3474@(Cons (!kl_V3474h) (!kl_V3474t))) -> pat_cond_192 kl_V3474 kl_V3474h kl_V3474t _ -> pat_cond_214))) !appl_215 <- kl_V3472t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3472t kl_V3561) appl_215 `pseq` applyWrapper appl_191 [appl_215] pat_cond_216 = do do return (Atom (B False)) in case kl_V3473 of kl_V3473@(Atom (UnboundSym "input+")) -> pat_cond_190 kl_V3473@(ApplC (PL "input+" _)) -> pat_cond_190 kl_V3473@(ApplC (Func "input+" _)) -> pat_cond_190 _ -> pat_cond_216))) !appl_217 <- kl_V3472h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3472h kl_V3561) appl_217 `pseq` applyWrapper appl_189 [appl_217] pat_cond_218 = do do return (Atom (B False)) in case kl_V3472 of !(kl_V3472@(Cons (!kl_V3472h) (!kl_V3472t))) -> pat_cond_188 kl_V3472 kl_V3472h kl_V3472t _ -> pat_cond_218))) !appl_219 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_220 <- appl_219 `pseq` applyWrapper appl_187 [appl_219] appl_220 `pseq` applyWrapper appl_29 [appl_220] pat_cond_221 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_28 kl_Case@(Atom (B (False))) -> pat_cond_28 _ -> pat_cond_221))) let !appl_222 = ApplC (Func "lambda" (Context (\(!kl_V3467) -> do let pat_cond_223 kl_V3467 kl_V3467h kl_V3467t = do let !appl_224 = ApplC (Func "lambda" (Context (\(!kl_V3468) -> do let pat_cond_225 = do let !appl_226 = ApplC (Func "lambda" (Context (\(!kl_V3469) -> do let pat_cond_227 kl_V3469 kl_V3469h kl_V3469t = do let !appl_228 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_229 = ApplC (Func "lambda" (Context (\(!kl_V3470) -> do let pat_cond_230 kl_V3470 kl_V3470h kl_V3470t = do let !appl_231 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_232 = ApplC (Func "lambda" (Context (\(!kl_V3471) -> do let !appl_233 = Atom Nil !kl_if_234 <- appl_233 `pseq` (kl_V3471 `pseq` eq appl_233 kl_V3471) case kl_if_234 of Atom (B (True)) -> do !appl_235 <- kl_shen_incinfs let !appl_236 = ApplC (PL "thunk" (do let !appl_237 = ApplC (PL "thunk" (do kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 kl_V3562)))))) kl_A `pseq` (kl_V3559 `pseq` (kl_V3561 `pseq` (appl_237 `pseq` kl_unify kl_A kl_V3559 kl_V3561 appl_237))))) !appl_238 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_236 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_236)) appl_235 `pseq` (appl_238 `pseq` kl_do appl_235 appl_238) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_239 <- kl_V3470t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3470t kl_V3561) appl_239 `pseq` applyWrapper appl_232 [appl_239]))) kl_V3470h `pseq` applyWrapper appl_231 [kl_V3470h] pat_cond_240 = do do return (Atom (B False)) in case kl_V3470 of !(kl_V3470@(Cons (!kl_V3470h) (!kl_V3470t))) -> pat_cond_230 kl_V3470 kl_V3470h kl_V3470t _ -> pat_cond_240))) !appl_241 <- kl_V3469t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3469t kl_V3561) appl_241 `pseq` applyWrapper appl_229 [appl_241]))) kl_V3469h `pseq` applyWrapper appl_228 [kl_V3469h] pat_cond_242 = do do return (Atom (B False)) in case kl_V3469 of !(kl_V3469@(Cons (!kl_V3469h) (!kl_V3469t))) -> pat_cond_227 kl_V3469 kl_V3469h kl_V3469t _ -> pat_cond_242))) !appl_243 <- kl_V3467t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3467t kl_V3561) appl_243 `pseq` applyWrapper appl_226 [appl_243] pat_cond_244 = do do return (Atom (B False)) in case kl_V3468 of kl_V3468@(Atom (UnboundSym "type")) -> pat_cond_225 kl_V3468@(ApplC (PL "type" _)) -> pat_cond_225 kl_V3468@(ApplC (Func "type" _)) -> pat_cond_225 _ -> pat_cond_244))) !appl_245 <- kl_V3467h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3467h kl_V3561) appl_245 `pseq` applyWrapper appl_224 [appl_245] pat_cond_246 = do do return (Atom (B False)) in case kl_V3467 of !(kl_V3467@(Cons (!kl_V3467h) (!kl_V3467t))) -> pat_cond_223 kl_V3467 kl_V3467h kl_V3467t _ -> pat_cond_246))) !appl_247 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_248 <- appl_247 `pseq` applyWrapper appl_222 [appl_247] appl_248 `pseq` applyWrapper appl_27 [appl_248] pat_cond_249 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_26 kl_Case@(Atom (B (False))) -> pat_cond_26 _ -> pat_cond_249))) let !appl_250 = ApplC (Func "lambda" (Context (\(!kl_V3456) -> do let pat_cond_251 kl_V3456 kl_V3456h kl_V3456t = do let !appl_252 = ApplC (Func "lambda" (Context (\(!kl_V3457) -> do let pat_cond_253 = do let !appl_254 = ApplC (Func "lambda" (Context (\(!kl_V3458) -> do let pat_cond_255 kl_V3458 kl_V3458h kl_V3458t = do let !appl_256 = ApplC (Func "lambda" (Context (\(!kl_FileName) -> do let !appl_257 = ApplC (Func "lambda" (Context (\(!kl_V3459) -> do let pat_cond_258 kl_V3459 kl_V3459h kl_V3459t = do let !appl_259 = ApplC (Func "lambda" (Context (\(!kl_Direction3389) -> do let !appl_260 = ApplC (Func "lambda" (Context (\(!kl_V3460) -> do let !appl_261 = Atom Nil !kl_if_262 <- appl_261 `pseq` (kl_V3460 `pseq` eq appl_261 kl_V3460) case kl_if_262 of Atom (B (True)) -> do let !appl_263 = ApplC (Func "lambda" (Context (\(!kl_V3461) -> do let pat_cond_264 kl_V3461 kl_V3461h kl_V3461t = do let !appl_265 = ApplC (Func "lambda" (Context (\(!kl_V3462) -> do let pat_cond_266 = do let !appl_267 = ApplC (Func "lambda" (Context (\(!kl_V3463) -> do let pat_cond_268 kl_V3463 kl_V3463h kl_V3463t = do let !appl_269 = ApplC (Func "lambda" (Context (\(!kl_Direction) -> do let !appl_270 = ApplC (Func "lambda" (Context (\(!kl_V3464) -> do let !appl_271 = Atom Nil !kl_if_272 <- appl_271 `pseq` (kl_V3464 `pseq` eq appl_271 kl_V3464) case kl_if_272 of Atom (B (True)) -> do !appl_273 <- kl_shen_incinfs let !appl_274 = ApplC (PL "thunk" (do let !appl_275 = ApplC (PL "thunk" (do !appl_276 <- kl_Direction `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Direction kl_V3561) let !appl_277 = Atom Nil !appl_278 <- appl_277 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "out")) appl_277 !appl_279 <- appl_278 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "in")) appl_278 !appl_280 <- appl_276 `pseq` (appl_279 `pseq` kl_elementP appl_276 appl_279) let !appl_281 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_FileName (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3560 kl_V3561 kl_V3562))))) appl_280 `pseq` (kl_V3561 `pseq` (appl_281 `pseq` kl_fwhen appl_280 kl_V3561 appl_281)))) kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_275 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_275)))) !appl_282 <- kl_Direction `pseq` (kl_Direction3389 `pseq` (kl_V3561 `pseq` (appl_274 `pseq` kl_unifyExcl kl_Direction kl_Direction3389 kl_V3561 appl_274))) appl_273 `pseq` (appl_282 `pseq` kl_do appl_273 appl_282) Atom (B (False)) -> do do !kl_if_283 <- kl_V3464 `pseq` kl_shen_pvarP kl_V3464 case kl_if_283 of Atom (B (True)) -> do let !appl_284 = Atom Nil !appl_285 <- kl_V3464 `pseq` (appl_284 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3464 appl_284 kl_V3561)) let !appl_286 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_287 <- kl_V3464 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3464 kl_V3561) appl_287 `pseq` (kl_Result `pseq` kl_do appl_287 kl_Result)))) !appl_288 <- kl_shen_incinfs let !appl_289 = ApplC (PL "thunk" (do let !appl_290 = ApplC (PL "thunk" (do !appl_291 <- kl_Direction `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Direction kl_V3561) let !appl_292 = Atom Nil !appl_293 <- appl_292 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "out")) appl_292 !appl_294 <- appl_293 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "in")) appl_293 !appl_295 <- appl_291 `pseq` (appl_294 `pseq` kl_elementP appl_291 appl_294) let !appl_296 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_FileName (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3560 kl_V3561 kl_V3562))))) appl_295 `pseq` (kl_V3561 `pseq` (appl_296 `pseq` kl_fwhen appl_295 kl_V3561 appl_296)))) kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_290 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_290)))) !appl_297 <- kl_Direction `pseq` (kl_Direction3389 `pseq` (kl_V3561 `pseq` (appl_289 `pseq` kl_unifyExcl kl_Direction kl_Direction3389 kl_V3561 appl_289))) !appl_298 <- appl_288 `pseq` (appl_297 `pseq` kl_do appl_288 appl_297) !appl_299 <- appl_298 `pseq` applyWrapper appl_286 [appl_298] appl_285 `pseq` (appl_299 `pseq` kl_do appl_285 appl_299) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_300 <- kl_V3463t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3463t kl_V3561) appl_300 `pseq` applyWrapper appl_270 [appl_300]))) kl_V3463h `pseq` applyWrapper appl_269 [kl_V3463h] pat_cond_301 = do do !kl_if_302 <- kl_V3463 `pseq` kl_shen_pvarP kl_V3463 case kl_if_302 of Atom (B (True)) -> do let !appl_303 = ApplC (Func "lambda" (Context (\(!kl_Direction) -> do let !appl_304 = Atom Nil !appl_305 <- kl_Direction `pseq` (appl_304 `pseq` klCons kl_Direction appl_304) !appl_306 <- kl_V3463 `pseq` (appl_305 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3463 appl_305 kl_V3561)) let !appl_307 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_308 <- kl_V3463 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3463 kl_V3561) appl_308 `pseq` (kl_Result `pseq` kl_do appl_308 kl_Result)))) !appl_309 <- kl_shen_incinfs let !appl_310 = ApplC (PL "thunk" (do let !appl_311 = ApplC (PL "thunk" (do !appl_312 <- kl_Direction `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Direction kl_V3561) let !appl_313 = Atom Nil !appl_314 <- appl_313 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "out")) appl_313 !appl_315 <- appl_314 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "in")) appl_314 !appl_316 <- appl_312 `pseq` (appl_315 `pseq` kl_elementP appl_312 appl_315) let !appl_317 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_FileName (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3560 kl_V3561 kl_V3562))))) appl_316 `pseq` (kl_V3561 `pseq` (appl_317 `pseq` kl_fwhen appl_316 kl_V3561 appl_317)))) kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_311 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_311)))) !appl_318 <- kl_Direction `pseq` (kl_Direction3389 `pseq` (kl_V3561 `pseq` (appl_310 `pseq` kl_unifyExcl kl_Direction kl_Direction3389 kl_V3561 appl_310))) !appl_319 <- appl_309 `pseq` (appl_318 `pseq` kl_do appl_309 appl_318) !appl_320 <- appl_319 `pseq` applyWrapper appl_307 [appl_319] appl_306 `pseq` (appl_320 `pseq` kl_do appl_306 appl_320)))) !appl_321 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_321 `pseq` applyWrapper appl_303 [appl_321] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3463 of !(kl_V3463@(Cons (!kl_V3463h) (!kl_V3463t))) -> pat_cond_268 kl_V3463 kl_V3463h kl_V3463t _ -> pat_cond_301))) !appl_322 <- kl_V3461t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3461t kl_V3561) appl_322 `pseq` applyWrapper appl_267 [appl_322] pat_cond_323 = do do !kl_if_324 <- kl_V3462 `pseq` kl_shen_pvarP kl_V3462 case kl_if_324 of Atom (B (True)) -> do !appl_325 <- kl_V3462 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3462 (Core.Types.Atom (Core.Types.UnboundSym "stream")) kl_V3561) let !appl_326 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_327 <- kl_V3462 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3462 kl_V3561) appl_327 `pseq` (kl_Result `pseq` kl_do appl_327 kl_Result)))) let !appl_328 = ApplC (Func "lambda" (Context (\(!kl_V3465) -> do let pat_cond_329 kl_V3465 kl_V3465h kl_V3465t = do let !appl_330 = ApplC (Func "lambda" (Context (\(!kl_Direction) -> do let !appl_331 = ApplC (Func "lambda" (Context (\(!kl_V3466) -> do let !appl_332 = Atom Nil !kl_if_333 <- appl_332 `pseq` (kl_V3466 `pseq` eq appl_332 kl_V3466) case kl_if_333 of Atom (B (True)) -> do !appl_334 <- kl_shen_incinfs let !appl_335 = ApplC (PL "thunk" (do let !appl_336 = ApplC (PL "thunk" (do !appl_337 <- kl_Direction `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Direction kl_V3561) let !appl_338 = Atom Nil !appl_339 <- appl_338 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "out")) appl_338 !appl_340 <- appl_339 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "in")) appl_339 !appl_341 <- appl_337 `pseq` (appl_340 `pseq` kl_elementP appl_337 appl_340) let !appl_342 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_FileName (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3560 kl_V3561 kl_V3562))))) appl_341 `pseq` (kl_V3561 `pseq` (appl_342 `pseq` kl_fwhen appl_341 kl_V3561 appl_342)))) kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_336 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_336)))) !appl_343 <- kl_Direction `pseq` (kl_Direction3389 `pseq` (kl_V3561 `pseq` (appl_335 `pseq` kl_unifyExcl kl_Direction kl_Direction3389 kl_V3561 appl_335))) appl_334 `pseq` (appl_343 `pseq` kl_do appl_334 appl_343) Atom (B (False)) -> do do !kl_if_344 <- kl_V3466 `pseq` kl_shen_pvarP kl_V3466 case kl_if_344 of Atom (B (True)) -> do let !appl_345 = Atom Nil !appl_346 <- kl_V3466 `pseq` (appl_345 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3466 appl_345 kl_V3561)) let !appl_347 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_348 <- kl_V3466 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3466 kl_V3561) appl_348 `pseq` (kl_Result `pseq` kl_do appl_348 kl_Result)))) !appl_349 <- kl_shen_incinfs let !appl_350 = ApplC (PL "thunk" (do let !appl_351 = ApplC (PL "thunk" (do !appl_352 <- kl_Direction `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Direction kl_V3561) let !appl_353 = Atom Nil !appl_354 <- appl_353 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "out")) appl_353 !appl_355 <- appl_354 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "in")) appl_354 !appl_356 <- appl_352 `pseq` (appl_355 `pseq` kl_elementP appl_352 appl_355) let !appl_357 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_FileName (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3560 kl_V3561 kl_V3562))))) appl_356 `pseq` (kl_V3561 `pseq` (appl_357 `pseq` kl_fwhen appl_356 kl_V3561 appl_357)))) kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_351 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_351)))) !appl_358 <- kl_Direction `pseq` (kl_Direction3389 `pseq` (kl_V3561 `pseq` (appl_350 `pseq` kl_unifyExcl kl_Direction kl_Direction3389 kl_V3561 appl_350))) !appl_359 <- appl_349 `pseq` (appl_358 `pseq` kl_do appl_349 appl_358) !appl_360 <- appl_359 `pseq` applyWrapper appl_347 [appl_359] appl_346 `pseq` (appl_360 `pseq` kl_do appl_346 appl_360) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_361 <- kl_V3465t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3465t kl_V3561) appl_361 `pseq` applyWrapper appl_331 [appl_361]))) kl_V3465h `pseq` applyWrapper appl_330 [kl_V3465h] pat_cond_362 = do do !kl_if_363 <- kl_V3465 `pseq` kl_shen_pvarP kl_V3465 case kl_if_363 of Atom (B (True)) -> do let !appl_364 = ApplC (Func "lambda" (Context (\(!kl_Direction) -> do let !appl_365 = Atom Nil !appl_366 <- kl_Direction `pseq` (appl_365 `pseq` klCons kl_Direction appl_365) !appl_367 <- kl_V3465 `pseq` (appl_366 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3465 appl_366 kl_V3561)) let !appl_368 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_369 <- kl_V3465 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3465 kl_V3561) appl_369 `pseq` (kl_Result `pseq` kl_do appl_369 kl_Result)))) !appl_370 <- kl_shen_incinfs let !appl_371 = ApplC (PL "thunk" (do let !appl_372 = ApplC (PL "thunk" (do !appl_373 <- kl_Direction `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Direction kl_V3561) let !appl_374 = Atom Nil !appl_375 <- appl_374 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "out")) appl_374 !appl_376 <- appl_375 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "in")) appl_375 !appl_377 <- appl_373 `pseq` (appl_376 `pseq` kl_elementP appl_373 appl_376) let !appl_378 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_FileName (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3560 kl_V3561 kl_V3562))))) appl_377 `pseq` (kl_V3561 `pseq` (appl_378 `pseq` kl_fwhen appl_377 kl_V3561 appl_378)))) kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_372 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_372)))) !appl_379 <- kl_Direction `pseq` (kl_Direction3389 `pseq` (kl_V3561 `pseq` (appl_371 `pseq` kl_unifyExcl kl_Direction kl_Direction3389 kl_V3561 appl_371))) !appl_380 <- appl_370 `pseq` (appl_379 `pseq` kl_do appl_370 appl_379) !appl_381 <- appl_380 `pseq` applyWrapper appl_368 [appl_380] appl_367 `pseq` (appl_381 `pseq` kl_do appl_367 appl_381)))) !appl_382 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_382 `pseq` applyWrapper appl_364 [appl_382] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3465 of !(kl_V3465@(Cons (!kl_V3465h) (!kl_V3465t))) -> pat_cond_329 kl_V3465 kl_V3465h kl_V3465t _ -> pat_cond_362))) !appl_383 <- kl_V3461t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3461t kl_V3561) !appl_384 <- appl_383 `pseq` applyWrapper appl_328 [appl_383] !appl_385 <- appl_384 `pseq` applyWrapper appl_326 [appl_384] appl_325 `pseq` (appl_385 `pseq` kl_do appl_325 appl_385) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3462 of kl_V3462@(Atom (UnboundSym "stream")) -> pat_cond_266 kl_V3462@(ApplC (PL "stream" _)) -> pat_cond_266 kl_V3462@(ApplC (Func "stream" _)) -> pat_cond_266 _ -> pat_cond_323))) !appl_386 <- kl_V3461h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3461h kl_V3561) appl_386 `pseq` applyWrapper appl_265 [appl_386] pat_cond_387 = do do !kl_if_388 <- kl_V3461 `pseq` kl_shen_pvarP kl_V3461 case kl_if_388 of Atom (B (True)) -> do let !appl_389 = ApplC (Func "lambda" (Context (\(!kl_Direction) -> do let !appl_390 = Atom Nil !appl_391 <- kl_Direction `pseq` (appl_390 `pseq` klCons kl_Direction appl_390) !appl_392 <- appl_391 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "stream")) appl_391 !appl_393 <- kl_V3461 `pseq` (appl_392 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3461 appl_392 kl_V3561)) let !appl_394 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_395 <- kl_V3461 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3461 kl_V3561) appl_395 `pseq` (kl_Result `pseq` kl_do appl_395 kl_Result)))) !appl_396 <- kl_shen_incinfs let !appl_397 = ApplC (PL "thunk" (do let !appl_398 = ApplC (PL "thunk" (do !appl_399 <- kl_Direction `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Direction kl_V3561) let !appl_400 = Atom Nil !appl_401 <- appl_400 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "out")) appl_400 !appl_402 <- appl_401 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "in")) appl_401 !appl_403 <- appl_399 `pseq` (appl_402 `pseq` kl_elementP appl_399 appl_402) let !appl_404 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_FileName (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3560 kl_V3561 kl_V3562))))) appl_403 `pseq` (kl_V3561 `pseq` (appl_404 `pseq` kl_fwhen appl_403 kl_V3561 appl_404)))) kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_398 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_398)))) !appl_405 <- kl_Direction `pseq` (kl_Direction3389 `pseq` (kl_V3561 `pseq` (appl_397 `pseq` kl_unifyExcl kl_Direction kl_Direction3389 kl_V3561 appl_397))) !appl_406 <- appl_396 `pseq` (appl_405 `pseq` kl_do appl_396 appl_405) !appl_407 <- appl_406 `pseq` applyWrapper appl_394 [appl_406] appl_393 `pseq` (appl_407 `pseq` kl_do appl_393 appl_407)))) !appl_408 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_408 `pseq` applyWrapper appl_389 [appl_408] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3461 of !(kl_V3461@(Cons (!kl_V3461h) (!kl_V3461t))) -> pat_cond_264 kl_V3461 kl_V3461h kl_V3461t _ -> pat_cond_387))) !appl_409 <- kl_V3559 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3559 kl_V3561) appl_409 `pseq` applyWrapper appl_263 [appl_409] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_410 <- kl_V3459t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3459t kl_V3561) appl_410 `pseq` applyWrapper appl_260 [appl_410]))) kl_V3459h `pseq` applyWrapper appl_259 [kl_V3459h] pat_cond_411 = do do return (Atom (B False)) in case kl_V3459 of !(kl_V3459@(Cons (!kl_V3459h) (!kl_V3459t))) -> pat_cond_258 kl_V3459 kl_V3459h kl_V3459t _ -> pat_cond_411))) !appl_412 <- kl_V3458t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3458t kl_V3561) appl_412 `pseq` applyWrapper appl_257 [appl_412]))) kl_V3458h `pseq` applyWrapper appl_256 [kl_V3458h] pat_cond_413 = do do return (Atom (B False)) in case kl_V3458 of !(kl_V3458@(Cons (!kl_V3458h) (!kl_V3458t))) -> pat_cond_255 kl_V3458 kl_V3458h kl_V3458t _ -> pat_cond_413))) !appl_414 <- kl_V3456t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3456t kl_V3561) appl_414 `pseq` applyWrapper appl_254 [appl_414] pat_cond_415 = do do return (Atom (B False)) in case kl_V3457 of kl_V3457@(Atom (UnboundSym "open")) -> pat_cond_253 kl_V3457@(ApplC (PL "open" _)) -> pat_cond_253 kl_V3457@(ApplC (Func "open" _)) -> pat_cond_253 _ -> pat_cond_415))) !appl_416 <- kl_V3456h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3456h kl_V3561) appl_416 `pseq` applyWrapper appl_252 [appl_416] pat_cond_417 = do do return (Atom (B False)) in case kl_V3456 of !(kl_V3456@(Cons (!kl_V3456h) (!kl_V3456t))) -> pat_cond_251 kl_V3456 kl_V3456h kl_V3456t _ -> pat_cond_417))) !appl_418 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_419 <- appl_418 `pseq` applyWrapper appl_250 [appl_418] appl_419 `pseq` applyWrapper appl_25 [appl_419] pat_cond_420 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_24 kl_Case@(Atom (B (False))) -> pat_cond_24 _ -> pat_cond_420))) let !appl_421 = ApplC (Func "lambda" (Context (\(!kl_V3450) -> do let pat_cond_422 kl_V3450 kl_V3450h kl_V3450t = do let !appl_423 = ApplC (Func "lambda" (Context (\(!kl_V3451) -> do let pat_cond_424 = do let !appl_425 = ApplC (Func "lambda" (Context (\(!kl_V3452) -> do let pat_cond_426 kl_V3452 kl_V3452h kl_V3452t = do let !appl_427 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_428 = ApplC (Func "lambda" (Context (\(!kl_V3453) -> do let pat_cond_429 kl_V3453 kl_V3453h kl_V3453t = do let !appl_430 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_431 = ApplC (Func "lambda" (Context (\(!kl_V3454) -> do let pat_cond_432 kl_V3454 kl_V3454h kl_V3454t = do let !appl_433 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_434 = ApplC (Func "lambda" (Context (\(!kl_V3455) -> do let !appl_435 = Atom Nil !kl_if_436 <- appl_435 `pseq` (kl_V3455 `pseq` eq appl_435 kl_V3455) case kl_if_436 of Atom (B (True)) -> do let !appl_437 = ApplC (Func "lambda" (Context (\(!kl_W) -> do let !appl_438 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do let !appl_439 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_440 <- kl_shen_incinfs let !appl_441 = ApplC (PL "thunk" (do !appl_442 <- kl_shen_placeholder let !appl_443 = ApplC (PL "thunk" (do !appl_444 <- kl_XAndAnd `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3561) !appl_445 <- kl_X `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_X kl_V3561) !appl_446 <- kl_Z `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Z kl_V3561) !appl_447 <- appl_444 `pseq` (appl_445 `pseq` (appl_446 `pseq` kl_shen_ebr appl_444 appl_445 appl_446)) let !appl_448 = ApplC (PL "thunk" (do let !appl_449 = Atom Nil !appl_450 <- kl_B `pseq` (appl_449 `pseq` klCons kl_B appl_449) !appl_451 <- appl_450 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_450 !appl_452 <- kl_XAndAnd `pseq` (appl_451 `pseq` klCons kl_XAndAnd appl_451) !appl_453 <- appl_452 `pseq` (kl_V3560 `pseq` klCons appl_452 kl_V3560) kl_W `pseq` (kl_V3559 `pseq` (appl_453 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_W kl_V3559 appl_453 kl_V3561 kl_V3562)))))) kl_W `pseq` (appl_447 `pseq` (kl_V3561 `pseq` (appl_448 `pseq` kl_bind kl_W appl_447 kl_V3561 appl_448))))) kl_XAndAnd `pseq` (appl_442 `pseq` (kl_V3561 `pseq` (appl_443 `pseq` kl_bind kl_XAndAnd appl_442 kl_V3561 appl_443))))) !appl_454 <- kl_Y `pseq` (kl_B `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_441 `pseq` kl_shen_thMult kl_Y kl_B kl_V3560 kl_V3561 appl_441)))) appl_440 `pseq` (appl_454 `pseq` kl_do appl_440 appl_454)))) !appl_455 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_455 `pseq` applyWrapper appl_439 [appl_455]))) !appl_456 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_456 `pseq` applyWrapper appl_438 [appl_456]))) !appl_457 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_457 `pseq` applyWrapper appl_437 [appl_457] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_458 <- kl_V3454t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3454t kl_V3561) appl_458 `pseq` applyWrapper appl_434 [appl_458]))) kl_V3454h `pseq` applyWrapper appl_433 [kl_V3454h] pat_cond_459 = do do return (Atom (B False)) in case kl_V3454 of !(kl_V3454@(Cons (!kl_V3454h) (!kl_V3454t))) -> pat_cond_432 kl_V3454 kl_V3454h kl_V3454t _ -> pat_cond_459))) !appl_460 <- kl_V3453t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3453t kl_V3561) appl_460 `pseq` applyWrapper appl_431 [appl_460]))) kl_V3453h `pseq` applyWrapper appl_430 [kl_V3453h] pat_cond_461 = do do return (Atom (B False)) in case kl_V3453 of !(kl_V3453@(Cons (!kl_V3453h) (!kl_V3453t))) -> pat_cond_429 kl_V3453 kl_V3453h kl_V3453t _ -> pat_cond_461))) !appl_462 <- kl_V3452t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3452t kl_V3561) appl_462 `pseq` applyWrapper appl_428 [appl_462]))) kl_V3452h `pseq` applyWrapper appl_427 [kl_V3452h] pat_cond_463 = do do return (Atom (B False)) in case kl_V3452 of !(kl_V3452@(Cons (!kl_V3452h) (!kl_V3452t))) -> pat_cond_426 kl_V3452 kl_V3452h kl_V3452t _ -> pat_cond_463))) !appl_464 <- kl_V3450t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3450t kl_V3561) appl_464 `pseq` applyWrapper appl_425 [appl_464] pat_cond_465 = do do return (Atom (B False)) in case kl_V3451 of kl_V3451@(Atom (UnboundSym "let")) -> pat_cond_424 kl_V3451@(ApplC (PL "let" _)) -> pat_cond_424 kl_V3451@(ApplC (Func "let" _)) -> pat_cond_424 _ -> pat_cond_465))) !appl_466 <- kl_V3450h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3450h kl_V3561) appl_466 `pseq` applyWrapper appl_423 [appl_466] pat_cond_467 = do do return (Atom (B False)) in case kl_V3450 of !(kl_V3450@(Cons (!kl_V3450h) (!kl_V3450t))) -> pat_cond_422 kl_V3450 kl_V3450h kl_V3450t _ -> pat_cond_467))) !appl_468 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_469 <- appl_468 `pseq` applyWrapper appl_421 [appl_468] appl_469 `pseq` applyWrapper appl_23 [appl_469] pat_cond_470 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_22 kl_Case@(Atom (B (False))) -> pat_cond_22 _ -> pat_cond_470))) let !appl_471 = ApplC (Func "lambda" (Context (\(!kl_V3438) -> do let pat_cond_472 kl_V3438 kl_V3438h kl_V3438t = do let !appl_473 = ApplC (Func "lambda" (Context (\(!kl_V3439) -> do let pat_cond_474 = do let !appl_475 = ApplC (Func "lambda" (Context (\(!kl_V3440) -> do let pat_cond_476 kl_V3440 kl_V3440h kl_V3440t = do let !appl_477 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_478 = ApplC (Func "lambda" (Context (\(!kl_V3441) -> do let pat_cond_479 kl_V3441 kl_V3441h kl_V3441t = do let !appl_480 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_481 = ApplC (Func "lambda" (Context (\(!kl_V3442) -> do let !appl_482 = Atom Nil !kl_if_483 <- appl_482 `pseq` (kl_V3442 `pseq` eq appl_482 kl_V3442) case kl_if_483 of Atom (B (True)) -> do let !appl_484 = ApplC (Func "lambda" (Context (\(!kl_V3443) -> do let pat_cond_485 kl_V3443 kl_V3443h kl_V3443t = do let !appl_486 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_487 = ApplC (Func "lambda" (Context (\(!kl_V3444) -> do let pat_cond_488 kl_V3444 kl_V3444h kl_V3444t = do let !appl_489 = ApplC (Func "lambda" (Context (\(!kl_V3445) -> do let pat_cond_490 = do let !appl_491 = ApplC (Func "lambda" (Context (\(!kl_V3446) -> do let pat_cond_492 kl_V3446 kl_V3446h kl_V3446t = do let !appl_493 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_494 = ApplC (Func "lambda" (Context (\(!kl_V3447) -> do let !appl_495 = Atom Nil !kl_if_496 <- appl_495 `pseq` (kl_V3447 `pseq` eq appl_495 kl_V3447) case kl_if_496 of Atom (B (True)) -> do let !appl_497 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_498 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_499 <- kl_shen_incinfs let !appl_500 = ApplC (PL "thunk" (do !appl_501 <- kl_shen_placeholder let !appl_502 = ApplC (PL "thunk" (do !appl_503 <- kl_XAndAnd `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3561) !appl_504 <- kl_X `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_X kl_V3561) !appl_505 <- kl_Y `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Y kl_V3561) !appl_506 <- appl_503 `pseq` (appl_504 `pseq` (appl_505 `pseq` kl_shen_ebr appl_503 appl_504 appl_505)) let !appl_507 = ApplC (PL "thunk" (do let !appl_508 = Atom Nil !appl_509 <- kl_A `pseq` (appl_508 `pseq` klCons kl_A appl_508) !appl_510 <- appl_509 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_509 !appl_511 <- kl_XAndAnd `pseq` (appl_510 `pseq` klCons kl_XAndAnd appl_510) !appl_512 <- appl_511 `pseq` (kl_V3560 `pseq` klCons appl_511 kl_V3560) kl_Z `pseq` (kl_B `pseq` (appl_512 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Z kl_B appl_512 kl_V3561 kl_V3562)))))) kl_Z `pseq` (appl_506 `pseq` (kl_V3561 `pseq` (appl_507 `pseq` kl_bind kl_Z appl_506 kl_V3561 appl_507))))) kl_XAndAnd `pseq` (appl_501 `pseq` (kl_V3561 `pseq` (appl_502 `pseq` kl_bind kl_XAndAnd appl_501 kl_V3561 appl_502))))) !appl_513 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_500 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_500)) appl_499 `pseq` (appl_513 `pseq` kl_do appl_499 appl_513)))) !appl_514 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_514 `pseq` applyWrapper appl_498 [appl_514]))) !appl_515 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_515 `pseq` applyWrapper appl_497 [appl_515] Atom (B (False)) -> do do !kl_if_516 <- kl_V3447 `pseq` kl_shen_pvarP kl_V3447 case kl_if_516 of Atom (B (True)) -> do let !appl_517 = Atom Nil !appl_518 <- kl_V3447 `pseq` (appl_517 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3447 appl_517 kl_V3561)) let !appl_519 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_520 <- kl_V3447 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3447 kl_V3561) appl_520 `pseq` (kl_Result `pseq` kl_do appl_520 kl_Result)))) let !appl_521 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_522 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_523 <- kl_shen_incinfs let !appl_524 = ApplC (PL "thunk" (do !appl_525 <- kl_shen_placeholder let !appl_526 = ApplC (PL "thunk" (do !appl_527 <- kl_XAndAnd `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3561) !appl_528 <- kl_X `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_X kl_V3561) !appl_529 <- kl_Y `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Y kl_V3561) !appl_530 <- appl_527 `pseq` (appl_528 `pseq` (appl_529 `pseq` kl_shen_ebr appl_527 appl_528 appl_529)) let !appl_531 = ApplC (PL "thunk" (do let !appl_532 = Atom Nil !appl_533 <- kl_A `pseq` (appl_532 `pseq` klCons kl_A appl_532) !appl_534 <- appl_533 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_533 !appl_535 <- kl_XAndAnd `pseq` (appl_534 `pseq` klCons kl_XAndAnd appl_534) !appl_536 <- appl_535 `pseq` (kl_V3560 `pseq` klCons appl_535 kl_V3560) kl_Z `pseq` (kl_B `pseq` (appl_536 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Z kl_B appl_536 kl_V3561 kl_V3562)))))) kl_Z `pseq` (appl_530 `pseq` (kl_V3561 `pseq` (appl_531 `pseq` kl_bind kl_Z appl_530 kl_V3561 appl_531))))) kl_XAndAnd `pseq` (appl_525 `pseq` (kl_V3561 `pseq` (appl_526 `pseq` kl_bind kl_XAndAnd appl_525 kl_V3561 appl_526))))) !appl_537 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_524 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_524)) appl_523 `pseq` (appl_537 `pseq` kl_do appl_523 appl_537)))) !appl_538 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_538 `pseq` applyWrapper appl_522 [appl_538]))) !appl_539 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 !appl_540 <- appl_539 `pseq` applyWrapper appl_521 [appl_539] !appl_541 <- appl_540 `pseq` applyWrapper appl_519 [appl_540] appl_518 `pseq` (appl_541 `pseq` kl_do appl_518 appl_541) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_542 <- kl_V3446t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3446t kl_V3561) appl_542 `pseq` applyWrapper appl_494 [appl_542]))) kl_V3446h `pseq` applyWrapper appl_493 [kl_V3446h] pat_cond_543 = do do !kl_if_544 <- kl_V3446 `pseq` kl_shen_pvarP kl_V3446 case kl_if_544 of Atom (B (True)) -> do let !appl_545 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_546 = Atom Nil !appl_547 <- kl_B `pseq` (appl_546 `pseq` klCons kl_B appl_546) !appl_548 <- kl_V3446 `pseq` (appl_547 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3446 appl_547 kl_V3561)) let !appl_549 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_550 <- kl_V3446 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3446 kl_V3561) appl_550 `pseq` (kl_Result `pseq` kl_do appl_550 kl_Result)))) let !appl_551 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_552 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_553 <- kl_shen_incinfs let !appl_554 = ApplC (PL "thunk" (do !appl_555 <- kl_shen_placeholder let !appl_556 = ApplC (PL "thunk" (do !appl_557 <- kl_XAndAnd `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3561) !appl_558 <- kl_X `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_X kl_V3561) !appl_559 <- kl_Y `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Y kl_V3561) !appl_560 <- appl_557 `pseq` (appl_558 `pseq` (appl_559 `pseq` kl_shen_ebr appl_557 appl_558 appl_559)) let !appl_561 = ApplC (PL "thunk" (do let !appl_562 = Atom Nil !appl_563 <- kl_A `pseq` (appl_562 `pseq` klCons kl_A appl_562) !appl_564 <- appl_563 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_563 !appl_565 <- kl_XAndAnd `pseq` (appl_564 `pseq` klCons kl_XAndAnd appl_564) !appl_566 <- appl_565 `pseq` (kl_V3560 `pseq` klCons appl_565 kl_V3560) kl_Z `pseq` (kl_B `pseq` (appl_566 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Z kl_B appl_566 kl_V3561 kl_V3562)))))) kl_Z `pseq` (appl_560 `pseq` (kl_V3561 `pseq` (appl_561 `pseq` kl_bind kl_Z appl_560 kl_V3561 appl_561))))) kl_XAndAnd `pseq` (appl_555 `pseq` (kl_V3561 `pseq` (appl_556 `pseq` kl_bind kl_XAndAnd appl_555 kl_V3561 appl_556))))) !appl_567 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_554 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_554)) appl_553 `pseq` (appl_567 `pseq` kl_do appl_553 appl_567)))) !appl_568 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_568 `pseq` applyWrapper appl_552 [appl_568]))) !appl_569 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 !appl_570 <- appl_569 `pseq` applyWrapper appl_551 [appl_569] !appl_571 <- appl_570 `pseq` applyWrapper appl_549 [appl_570] appl_548 `pseq` (appl_571 `pseq` kl_do appl_548 appl_571)))) !appl_572 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_572 `pseq` applyWrapper appl_545 [appl_572] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3446 of !(kl_V3446@(Cons (!kl_V3446h) (!kl_V3446t))) -> pat_cond_492 kl_V3446 kl_V3446h kl_V3446t _ -> pat_cond_543))) !appl_573 <- kl_V3444t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3444t kl_V3561) appl_573 `pseq` applyWrapper appl_491 [appl_573] pat_cond_574 = do do !kl_if_575 <- kl_V3445 `pseq` kl_shen_pvarP kl_V3445 case kl_if_575 of Atom (B (True)) -> do !appl_576 <- kl_V3445 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3445 (Core.Types.Atom (Core.Types.UnboundSym "-->")) kl_V3561) let !appl_577 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_578 <- kl_V3445 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3445 kl_V3561) appl_578 `pseq` (kl_Result `pseq` kl_do appl_578 kl_Result)))) let !appl_579 = ApplC (Func "lambda" (Context (\(!kl_V3448) -> do let pat_cond_580 kl_V3448 kl_V3448h kl_V3448t = do let !appl_581 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_582 = ApplC (Func "lambda" (Context (\(!kl_V3449) -> do let !appl_583 = Atom Nil !kl_if_584 <- appl_583 `pseq` (kl_V3449 `pseq` eq appl_583 kl_V3449) case kl_if_584 of Atom (B (True)) -> do let !appl_585 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_586 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_587 <- kl_shen_incinfs let !appl_588 = ApplC (PL "thunk" (do !appl_589 <- kl_shen_placeholder let !appl_590 = ApplC (PL "thunk" (do !appl_591 <- kl_XAndAnd `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3561) !appl_592 <- kl_X `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_X kl_V3561) !appl_593 <- kl_Y `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Y kl_V3561) !appl_594 <- appl_591 `pseq` (appl_592 `pseq` (appl_593 `pseq` kl_shen_ebr appl_591 appl_592 appl_593)) let !appl_595 = ApplC (PL "thunk" (do let !appl_596 = Atom Nil !appl_597 <- kl_A `pseq` (appl_596 `pseq` klCons kl_A appl_596) !appl_598 <- appl_597 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_597 !appl_599 <- kl_XAndAnd `pseq` (appl_598 `pseq` klCons kl_XAndAnd appl_598) !appl_600 <- appl_599 `pseq` (kl_V3560 `pseq` klCons appl_599 kl_V3560) kl_Z `pseq` (kl_B `pseq` (appl_600 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Z kl_B appl_600 kl_V3561 kl_V3562)))))) kl_Z `pseq` (appl_594 `pseq` (kl_V3561 `pseq` (appl_595 `pseq` kl_bind kl_Z appl_594 kl_V3561 appl_595))))) kl_XAndAnd `pseq` (appl_589 `pseq` (kl_V3561 `pseq` (appl_590 `pseq` kl_bind kl_XAndAnd appl_589 kl_V3561 appl_590))))) !appl_601 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_588 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_588)) appl_587 `pseq` (appl_601 `pseq` kl_do appl_587 appl_601)))) !appl_602 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_602 `pseq` applyWrapper appl_586 [appl_602]))) !appl_603 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_603 `pseq` applyWrapper appl_585 [appl_603] Atom (B (False)) -> do do !kl_if_604 <- kl_V3449 `pseq` kl_shen_pvarP kl_V3449 case kl_if_604 of Atom (B (True)) -> do let !appl_605 = Atom Nil !appl_606 <- kl_V3449 `pseq` (appl_605 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3449 appl_605 kl_V3561)) let !appl_607 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_608 <- kl_V3449 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3449 kl_V3561) appl_608 `pseq` (kl_Result `pseq` kl_do appl_608 kl_Result)))) let !appl_609 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_610 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_611 <- kl_shen_incinfs let !appl_612 = ApplC (PL "thunk" (do !appl_613 <- kl_shen_placeholder let !appl_614 = ApplC (PL "thunk" (do !appl_615 <- kl_XAndAnd `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3561) !appl_616 <- kl_X `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_X kl_V3561) !appl_617 <- kl_Y `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Y kl_V3561) !appl_618 <- appl_615 `pseq` (appl_616 `pseq` (appl_617 `pseq` kl_shen_ebr appl_615 appl_616 appl_617)) let !appl_619 = ApplC (PL "thunk" (do let !appl_620 = Atom Nil !appl_621 <- kl_A `pseq` (appl_620 `pseq` klCons kl_A appl_620) !appl_622 <- appl_621 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_621 !appl_623 <- kl_XAndAnd `pseq` (appl_622 `pseq` klCons kl_XAndAnd appl_622) !appl_624 <- appl_623 `pseq` (kl_V3560 `pseq` klCons appl_623 kl_V3560) kl_Z `pseq` (kl_B `pseq` (appl_624 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Z kl_B appl_624 kl_V3561 kl_V3562)))))) kl_Z `pseq` (appl_618 `pseq` (kl_V3561 `pseq` (appl_619 `pseq` kl_bind kl_Z appl_618 kl_V3561 appl_619))))) kl_XAndAnd `pseq` (appl_613 `pseq` (kl_V3561 `pseq` (appl_614 `pseq` kl_bind kl_XAndAnd appl_613 kl_V3561 appl_614))))) !appl_625 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_612 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_612)) appl_611 `pseq` (appl_625 `pseq` kl_do appl_611 appl_625)))) !appl_626 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_626 `pseq` applyWrapper appl_610 [appl_626]))) !appl_627 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 !appl_628 <- appl_627 `pseq` applyWrapper appl_609 [appl_627] !appl_629 <- appl_628 `pseq` applyWrapper appl_607 [appl_628] appl_606 `pseq` (appl_629 `pseq` kl_do appl_606 appl_629) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_630 <- kl_V3448t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3448t kl_V3561) appl_630 `pseq` applyWrapper appl_582 [appl_630]))) kl_V3448h `pseq` applyWrapper appl_581 [kl_V3448h] pat_cond_631 = do do !kl_if_632 <- kl_V3448 `pseq` kl_shen_pvarP kl_V3448 case kl_if_632 of Atom (B (True)) -> do let !appl_633 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_634 = Atom Nil !appl_635 <- kl_B `pseq` (appl_634 `pseq` klCons kl_B appl_634) !appl_636 <- kl_V3448 `pseq` (appl_635 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3448 appl_635 kl_V3561)) let !appl_637 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_638 <- kl_V3448 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3448 kl_V3561) appl_638 `pseq` (kl_Result `pseq` kl_do appl_638 kl_Result)))) let !appl_639 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_640 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_641 <- kl_shen_incinfs let !appl_642 = ApplC (PL "thunk" (do !appl_643 <- kl_shen_placeholder let !appl_644 = ApplC (PL "thunk" (do !appl_645 <- kl_XAndAnd `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3561) !appl_646 <- kl_X `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_X kl_V3561) !appl_647 <- kl_Y `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Y kl_V3561) !appl_648 <- appl_645 `pseq` (appl_646 `pseq` (appl_647 `pseq` kl_shen_ebr appl_645 appl_646 appl_647)) let !appl_649 = ApplC (PL "thunk" (do let !appl_650 = Atom Nil !appl_651 <- kl_A `pseq` (appl_650 `pseq` klCons kl_A appl_650) !appl_652 <- appl_651 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_651 !appl_653 <- kl_XAndAnd `pseq` (appl_652 `pseq` klCons kl_XAndAnd appl_652) !appl_654 <- appl_653 `pseq` (kl_V3560 `pseq` klCons appl_653 kl_V3560) kl_Z `pseq` (kl_B `pseq` (appl_654 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Z kl_B appl_654 kl_V3561 kl_V3562)))))) kl_Z `pseq` (appl_648 `pseq` (kl_V3561 `pseq` (appl_649 `pseq` kl_bind kl_Z appl_648 kl_V3561 appl_649))))) kl_XAndAnd `pseq` (appl_643 `pseq` (kl_V3561 `pseq` (appl_644 `pseq` kl_bind kl_XAndAnd appl_643 kl_V3561 appl_644))))) !appl_655 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_642 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_642)) appl_641 `pseq` (appl_655 `pseq` kl_do appl_641 appl_655)))) !appl_656 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_656 `pseq` applyWrapper appl_640 [appl_656]))) !appl_657 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 !appl_658 <- appl_657 `pseq` applyWrapper appl_639 [appl_657] !appl_659 <- appl_658 `pseq` applyWrapper appl_637 [appl_658] appl_636 `pseq` (appl_659 `pseq` kl_do appl_636 appl_659)))) !appl_660 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_660 `pseq` applyWrapper appl_633 [appl_660] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3448 of !(kl_V3448@(Cons (!kl_V3448h) (!kl_V3448t))) -> pat_cond_580 kl_V3448 kl_V3448h kl_V3448t _ -> pat_cond_631))) !appl_661 <- kl_V3444t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3444t kl_V3561) !appl_662 <- appl_661 `pseq` applyWrapper appl_579 [appl_661] !appl_663 <- appl_662 `pseq` applyWrapper appl_577 [appl_662] appl_576 `pseq` (appl_663 `pseq` kl_do appl_576 appl_663) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3445 of kl_V3445@(Atom (UnboundSym "-->")) -> pat_cond_490 kl_V3445@(ApplC (PL "-->" _)) -> pat_cond_490 kl_V3445@(ApplC (Func "-->" _)) -> pat_cond_490 _ -> pat_cond_574))) !appl_664 <- kl_V3444h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3444h kl_V3561) appl_664 `pseq` applyWrapper appl_489 [appl_664] pat_cond_665 = do do !kl_if_666 <- kl_V3444 `pseq` kl_shen_pvarP kl_V3444 case kl_if_666 of Atom (B (True)) -> do let !appl_667 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_668 = Atom Nil !appl_669 <- kl_B `pseq` (appl_668 `pseq` klCons kl_B appl_668) !appl_670 <- appl_669 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "-->")) appl_669 !appl_671 <- kl_V3444 `pseq` (appl_670 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3444 appl_670 kl_V3561)) let !appl_672 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_673 <- kl_V3444 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3444 kl_V3561) appl_673 `pseq` (kl_Result `pseq` kl_do appl_673 kl_Result)))) let !appl_674 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_675 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_676 <- kl_shen_incinfs let !appl_677 = ApplC (PL "thunk" (do !appl_678 <- kl_shen_placeholder let !appl_679 = ApplC (PL "thunk" (do !appl_680 <- kl_XAndAnd `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3561) !appl_681 <- kl_X `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_X kl_V3561) !appl_682 <- kl_Y `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Y kl_V3561) !appl_683 <- appl_680 `pseq` (appl_681 `pseq` (appl_682 `pseq` kl_shen_ebr appl_680 appl_681 appl_682)) let !appl_684 = ApplC (PL "thunk" (do let !appl_685 = Atom Nil !appl_686 <- kl_A `pseq` (appl_685 `pseq` klCons kl_A appl_685) !appl_687 <- appl_686 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_686 !appl_688 <- kl_XAndAnd `pseq` (appl_687 `pseq` klCons kl_XAndAnd appl_687) !appl_689 <- appl_688 `pseq` (kl_V3560 `pseq` klCons appl_688 kl_V3560) kl_Z `pseq` (kl_B `pseq` (appl_689 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Z kl_B appl_689 kl_V3561 kl_V3562)))))) kl_Z `pseq` (appl_683 `pseq` (kl_V3561 `pseq` (appl_684 `pseq` kl_bind kl_Z appl_683 kl_V3561 appl_684))))) kl_XAndAnd `pseq` (appl_678 `pseq` (kl_V3561 `pseq` (appl_679 `pseq` kl_bind kl_XAndAnd appl_678 kl_V3561 appl_679))))) !appl_690 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_677 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_677)) appl_676 `pseq` (appl_690 `pseq` kl_do appl_676 appl_690)))) !appl_691 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_691 `pseq` applyWrapper appl_675 [appl_691]))) !appl_692 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 !appl_693 <- appl_692 `pseq` applyWrapper appl_674 [appl_692] !appl_694 <- appl_693 `pseq` applyWrapper appl_672 [appl_693] appl_671 `pseq` (appl_694 `pseq` kl_do appl_671 appl_694)))) !appl_695 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_695 `pseq` applyWrapper appl_667 [appl_695] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3444 of !(kl_V3444@(Cons (!kl_V3444h) (!kl_V3444t))) -> pat_cond_488 kl_V3444 kl_V3444h kl_V3444t _ -> pat_cond_665))) !appl_696 <- kl_V3443t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3443t kl_V3561) appl_696 `pseq` applyWrapper appl_487 [appl_696]))) kl_V3443h `pseq` applyWrapper appl_486 [kl_V3443h] pat_cond_697 = do do !kl_if_698 <- kl_V3443 `pseq` kl_shen_pvarP kl_V3443 case kl_if_698 of Atom (B (True)) -> do let !appl_699 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_700 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_701 = Atom Nil !appl_702 <- kl_B `pseq` (appl_701 `pseq` klCons kl_B appl_701) !appl_703 <- appl_702 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "-->")) appl_702 !appl_704 <- kl_A `pseq` (appl_703 `pseq` klCons kl_A appl_703) !appl_705 <- kl_V3443 `pseq` (appl_704 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3443 appl_704 kl_V3561)) let !appl_706 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_707 <- kl_V3443 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3443 kl_V3561) appl_707 `pseq` (kl_Result `pseq` kl_do appl_707 kl_Result)))) let !appl_708 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_709 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_710 <- kl_shen_incinfs let !appl_711 = ApplC (PL "thunk" (do !appl_712 <- kl_shen_placeholder let !appl_713 = ApplC (PL "thunk" (do !appl_714 <- kl_XAndAnd `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3561) !appl_715 <- kl_X `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_X kl_V3561) !appl_716 <- kl_Y `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_Y kl_V3561) !appl_717 <- appl_714 `pseq` (appl_715 `pseq` (appl_716 `pseq` kl_shen_ebr appl_714 appl_715 appl_716)) let !appl_718 = ApplC (PL "thunk" (do let !appl_719 = Atom Nil !appl_720 <- kl_A `pseq` (appl_719 `pseq` klCons kl_A appl_719) !appl_721 <- appl_720 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_720 !appl_722 <- kl_XAndAnd `pseq` (appl_721 `pseq` klCons kl_XAndAnd appl_721) !appl_723 <- appl_722 `pseq` (kl_V3560 `pseq` klCons appl_722 kl_V3560) kl_Z `pseq` (kl_B `pseq` (appl_723 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Z kl_B appl_723 kl_V3561 kl_V3562)))))) kl_Z `pseq` (appl_717 `pseq` (kl_V3561 `pseq` (appl_718 `pseq` kl_bind kl_Z appl_717 kl_V3561 appl_718))))) kl_XAndAnd `pseq` (appl_712 `pseq` (kl_V3561 `pseq` (appl_713 `pseq` kl_bind kl_XAndAnd appl_712 kl_V3561 appl_713))))) !appl_724 <- kl_Throwcontrol `pseq` (kl_V3561 `pseq` (appl_711 `pseq` kl_cut kl_Throwcontrol kl_V3561 appl_711)) appl_710 `pseq` (appl_724 `pseq` kl_do appl_710 appl_724)))) !appl_725 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_725 `pseq` applyWrapper appl_709 [appl_725]))) !appl_726 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 !appl_727 <- appl_726 `pseq` applyWrapper appl_708 [appl_726] !appl_728 <- appl_727 `pseq` applyWrapper appl_706 [appl_727] appl_705 `pseq` (appl_728 `pseq` kl_do appl_705 appl_728)))) !appl_729 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_729 `pseq` applyWrapper appl_700 [appl_729]))) !appl_730 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_730 `pseq` applyWrapper appl_699 [appl_730] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3443 of !(kl_V3443@(Cons (!kl_V3443h) (!kl_V3443t))) -> pat_cond_485 kl_V3443 kl_V3443h kl_V3443t _ -> pat_cond_697))) !appl_731 <- kl_V3559 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3559 kl_V3561) appl_731 `pseq` applyWrapper appl_484 [appl_731] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_732 <- kl_V3441t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3441t kl_V3561) appl_732 `pseq` applyWrapper appl_481 [appl_732]))) kl_V3441h `pseq` applyWrapper appl_480 [kl_V3441h] pat_cond_733 = do do return (Atom (B False)) in case kl_V3441 of !(kl_V3441@(Cons (!kl_V3441h) (!kl_V3441t))) -> pat_cond_479 kl_V3441 kl_V3441h kl_V3441t _ -> pat_cond_733))) !appl_734 <- kl_V3440t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3440t kl_V3561) appl_734 `pseq` applyWrapper appl_478 [appl_734]))) kl_V3440h `pseq` applyWrapper appl_477 [kl_V3440h] pat_cond_735 = do do return (Atom (B False)) in case kl_V3440 of !(kl_V3440@(Cons (!kl_V3440h) (!kl_V3440t))) -> pat_cond_476 kl_V3440 kl_V3440h kl_V3440t _ -> pat_cond_735))) !appl_736 <- kl_V3438t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3438t kl_V3561) appl_736 `pseq` applyWrapper appl_475 [appl_736] pat_cond_737 = do do return (Atom (B False)) in case kl_V3439 of kl_V3439@(Atom (UnboundSym "lambda")) -> pat_cond_474 kl_V3439@(ApplC (PL "lambda" _)) -> pat_cond_474 kl_V3439@(ApplC (Func "lambda" _)) -> pat_cond_474 _ -> pat_cond_737))) !appl_738 <- kl_V3438h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3438h kl_V3561) appl_738 `pseq` applyWrapper appl_473 [appl_738] pat_cond_739 = do do return (Atom (B False)) in case kl_V3438 of !(kl_V3438@(Cons (!kl_V3438h) (!kl_V3438t))) -> pat_cond_472 kl_V3438 kl_V3438h kl_V3438t _ -> pat_cond_739))) !appl_740 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_741 <- appl_740 `pseq` applyWrapper appl_471 [appl_740] appl_741 `pseq` applyWrapper appl_21 [appl_741] pat_cond_742 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_20 kl_Case@(Atom (B (False))) -> pat_cond_20 _ -> pat_cond_742))) let !appl_743 = ApplC (Func "lambda" (Context (\(!kl_V3432) -> do let pat_cond_744 kl_V3432 kl_V3432h kl_V3432t = do let !appl_745 = ApplC (Func "lambda" (Context (\(!kl_V3433) -> do let pat_cond_746 = do let !appl_747 = ApplC (Func "lambda" (Context (\(!kl_V3434) -> do let pat_cond_748 kl_V3434 kl_V3434h kl_V3434t = do let !appl_749 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_750 = ApplC (Func "lambda" (Context (\(!kl_V3435) -> do let pat_cond_751 kl_V3435 kl_V3435h kl_V3435t = do let !appl_752 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_753 = ApplC (Func "lambda" (Context (\(!kl_V3436) -> do let !appl_754 = Atom Nil !kl_if_755 <- appl_754 `pseq` (kl_V3436 `pseq` eq appl_754 kl_V3436) case kl_if_755 of Atom (B (True)) -> do let !appl_756 = ApplC (Func "lambda" (Context (\(!kl_V3437) -> do let pat_cond_757 = do !appl_758 <- kl_shen_incinfs let !appl_759 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3560 kl_V3561 kl_V3562))))) !appl_760 <- kl_X `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_759 `pseq` kl_shen_thMult kl_X (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3560 kl_V3561 appl_759))) appl_758 `pseq` (appl_760 `pseq` kl_do appl_758 appl_760) pat_cond_761 = do do !kl_if_762 <- kl_V3437 `pseq` kl_shen_pvarP kl_V3437 case kl_if_762 of Atom (B (True)) -> do !appl_763 <- kl_V3437 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3437 (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3561) let !appl_764 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_765 <- kl_V3437 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3437 kl_V3561) appl_765 `pseq` (kl_Result `pseq` kl_do appl_765 kl_Result)))) !appl_766 <- kl_shen_incinfs let !appl_767 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3560 kl_V3561 kl_V3562))))) !appl_768 <- kl_X `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_767 `pseq` kl_shen_thMult kl_X (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3560 kl_V3561 appl_767))) !appl_769 <- appl_766 `pseq` (appl_768 `pseq` kl_do appl_766 appl_768) !appl_770 <- appl_769 `pseq` applyWrapper appl_764 [appl_769] appl_763 `pseq` (appl_770 `pseq` kl_do appl_763 appl_770) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3437 of kl_V3437@(Atom (UnboundSym "string")) -> pat_cond_757 kl_V3437@(ApplC (PL "string" _)) -> pat_cond_757 kl_V3437@(ApplC (Func "string" _)) -> pat_cond_757 _ -> pat_cond_761))) !appl_771 <- kl_V3559 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3559 kl_V3561) appl_771 `pseq` applyWrapper appl_756 [appl_771] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_772 <- kl_V3435t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3435t kl_V3561) appl_772 `pseq` applyWrapper appl_753 [appl_772]))) kl_V3435h `pseq` applyWrapper appl_752 [kl_V3435h] pat_cond_773 = do do return (Atom (B False)) in case kl_V3435 of !(kl_V3435@(Cons (!kl_V3435h) (!kl_V3435t))) -> pat_cond_751 kl_V3435 kl_V3435h kl_V3435t _ -> pat_cond_773))) !appl_774 <- kl_V3434t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3434t kl_V3561) appl_774 `pseq` applyWrapper appl_750 [appl_774]))) kl_V3434h `pseq` applyWrapper appl_749 [kl_V3434h] pat_cond_775 = do do return (Atom (B False)) in case kl_V3434 of !(kl_V3434@(Cons (!kl_V3434h) (!kl_V3434t))) -> pat_cond_748 kl_V3434 kl_V3434h kl_V3434t _ -> pat_cond_775))) !appl_776 <- kl_V3432t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3432t kl_V3561) appl_776 `pseq` applyWrapper appl_747 [appl_776] pat_cond_777 = do do return (Atom (B False)) in case kl_V3433 of kl_V3433@(Atom (UnboundSym "@s")) -> pat_cond_746 kl_V3433@(ApplC (PL "@s" _)) -> pat_cond_746 kl_V3433@(ApplC (Func "@s" _)) -> pat_cond_746 _ -> pat_cond_777))) !appl_778 <- kl_V3432h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3432h kl_V3561) appl_778 `pseq` applyWrapper appl_745 [appl_778] pat_cond_779 = do do return (Atom (B False)) in case kl_V3432 of !(kl_V3432@(Cons (!kl_V3432h) (!kl_V3432t))) -> pat_cond_744 kl_V3432 kl_V3432h kl_V3432t _ -> pat_cond_779))) !appl_780 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_781 <- appl_780 `pseq` applyWrapper appl_743 [appl_780] appl_781 `pseq` applyWrapper appl_19 [appl_781] pat_cond_782 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_18 kl_Case@(Atom (B (False))) -> pat_cond_18 _ -> pat_cond_782))) let !appl_783 = ApplC (Func "lambda" (Context (\(!kl_V3421) -> do let pat_cond_784 kl_V3421 kl_V3421h kl_V3421t = do let !appl_785 = ApplC (Func "lambda" (Context (\(!kl_V3422) -> do let pat_cond_786 = do let !appl_787 = ApplC (Func "lambda" (Context (\(!kl_V3423) -> do let pat_cond_788 kl_V3423 kl_V3423h kl_V3423t = do let !appl_789 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_790 = ApplC (Func "lambda" (Context (\(!kl_V3424) -> do let pat_cond_791 kl_V3424 kl_V3424h kl_V3424t = do let !appl_792 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_793 = ApplC (Func "lambda" (Context (\(!kl_V3425) -> do let !appl_794 = Atom Nil !kl_if_795 <- appl_794 `pseq` (kl_V3425 `pseq` eq appl_794 kl_V3425) case kl_if_795 of Atom (B (True)) -> do let !appl_796 = ApplC (Func "lambda" (Context (\(!kl_V3426) -> do let pat_cond_797 kl_V3426 kl_V3426h kl_V3426t = do let !appl_798 = ApplC (Func "lambda" (Context (\(!kl_V3427) -> do let pat_cond_799 = do let !appl_800 = ApplC (Func "lambda" (Context (\(!kl_V3428) -> do let pat_cond_801 kl_V3428 kl_V3428h kl_V3428t = do let !appl_802 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_803 = ApplC (Func "lambda" (Context (\(!kl_V3429) -> do let !appl_804 = Atom Nil !kl_if_805 <- appl_804 `pseq` (kl_V3429 `pseq` eq appl_804 kl_V3429) case kl_if_805 of Atom (B (True)) -> do !appl_806 <- kl_shen_incinfs let !appl_807 = ApplC (PL "thunk" (do let !appl_808 = Atom Nil !appl_809 <- kl_A `pseq` (appl_808 `pseq` klCons kl_A appl_808) !appl_810 <- appl_809 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_809 kl_Y `pseq` (appl_810 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_810 kl_V3560 kl_V3561 kl_V3562)))))) !appl_811 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_807 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_807)))) appl_806 `pseq` (appl_811 `pseq` kl_do appl_806 appl_811) Atom (B (False)) -> do do !kl_if_812 <- kl_V3429 `pseq` kl_shen_pvarP kl_V3429 case kl_if_812 of Atom (B (True)) -> do let !appl_813 = Atom Nil !appl_814 <- kl_V3429 `pseq` (appl_813 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3429 appl_813 kl_V3561)) let !appl_815 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_816 <- kl_V3429 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3429 kl_V3561) appl_816 `pseq` (kl_Result `pseq` kl_do appl_816 kl_Result)))) !appl_817 <- kl_shen_incinfs let !appl_818 = ApplC (PL "thunk" (do let !appl_819 = Atom Nil !appl_820 <- kl_A `pseq` (appl_819 `pseq` klCons kl_A appl_819) !appl_821 <- appl_820 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_820 kl_Y `pseq` (appl_821 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_821 kl_V3560 kl_V3561 kl_V3562)))))) !appl_822 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_818 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_818)))) !appl_823 <- appl_817 `pseq` (appl_822 `pseq` kl_do appl_817 appl_822) !appl_824 <- appl_823 `pseq` applyWrapper appl_815 [appl_823] appl_814 `pseq` (appl_824 `pseq` kl_do appl_814 appl_824) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_825 <- kl_V3428t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3428t kl_V3561) appl_825 `pseq` applyWrapper appl_803 [appl_825]))) kl_V3428h `pseq` applyWrapper appl_802 [kl_V3428h] pat_cond_826 = do do !kl_if_827 <- kl_V3428 `pseq` kl_shen_pvarP kl_V3428 case kl_if_827 of Atom (B (True)) -> do let !appl_828 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_829 = Atom Nil !appl_830 <- kl_A `pseq` (appl_829 `pseq` klCons kl_A appl_829) !appl_831 <- kl_V3428 `pseq` (appl_830 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3428 appl_830 kl_V3561)) let !appl_832 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_833 <- kl_V3428 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3428 kl_V3561) appl_833 `pseq` (kl_Result `pseq` kl_do appl_833 kl_Result)))) !appl_834 <- kl_shen_incinfs let !appl_835 = ApplC (PL "thunk" (do let !appl_836 = Atom Nil !appl_837 <- kl_A `pseq` (appl_836 `pseq` klCons kl_A appl_836) !appl_838 <- appl_837 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_837 kl_Y `pseq` (appl_838 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_838 kl_V3560 kl_V3561 kl_V3562)))))) !appl_839 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_835 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_835)))) !appl_840 <- appl_834 `pseq` (appl_839 `pseq` kl_do appl_834 appl_839) !appl_841 <- appl_840 `pseq` applyWrapper appl_832 [appl_840] appl_831 `pseq` (appl_841 `pseq` kl_do appl_831 appl_841)))) !appl_842 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_842 `pseq` applyWrapper appl_828 [appl_842] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3428 of !(kl_V3428@(Cons (!kl_V3428h) (!kl_V3428t))) -> pat_cond_801 kl_V3428 kl_V3428h kl_V3428t _ -> pat_cond_826))) !appl_843 <- kl_V3426t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3426t kl_V3561) appl_843 `pseq` applyWrapper appl_800 [appl_843] pat_cond_844 = do do !kl_if_845 <- kl_V3427 `pseq` kl_shen_pvarP kl_V3427 case kl_if_845 of Atom (B (True)) -> do !appl_846 <- kl_V3427 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3427 (ApplC (wrapNamed "vector" kl_vector)) kl_V3561) let !appl_847 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_848 <- kl_V3427 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3427 kl_V3561) appl_848 `pseq` (kl_Result `pseq` kl_do appl_848 kl_Result)))) let !appl_849 = ApplC (Func "lambda" (Context (\(!kl_V3430) -> do let pat_cond_850 kl_V3430 kl_V3430h kl_V3430t = do let !appl_851 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_852 = ApplC (Func "lambda" (Context (\(!kl_V3431) -> do let !appl_853 = Atom Nil !kl_if_854 <- appl_853 `pseq` (kl_V3431 `pseq` eq appl_853 kl_V3431) case kl_if_854 of Atom (B (True)) -> do !appl_855 <- kl_shen_incinfs let !appl_856 = ApplC (PL "thunk" (do let !appl_857 = Atom Nil !appl_858 <- kl_A `pseq` (appl_857 `pseq` klCons kl_A appl_857) !appl_859 <- appl_858 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_858 kl_Y `pseq` (appl_859 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_859 kl_V3560 kl_V3561 kl_V3562)))))) !appl_860 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_856 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_856)))) appl_855 `pseq` (appl_860 `pseq` kl_do appl_855 appl_860) Atom (B (False)) -> do do !kl_if_861 <- kl_V3431 `pseq` kl_shen_pvarP kl_V3431 case kl_if_861 of Atom (B (True)) -> do let !appl_862 = Atom Nil !appl_863 <- kl_V3431 `pseq` (appl_862 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3431 appl_862 kl_V3561)) let !appl_864 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_865 <- kl_V3431 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3431 kl_V3561) appl_865 `pseq` (kl_Result `pseq` kl_do appl_865 kl_Result)))) !appl_866 <- kl_shen_incinfs let !appl_867 = ApplC (PL "thunk" (do let !appl_868 = Atom Nil !appl_869 <- kl_A `pseq` (appl_868 `pseq` klCons kl_A appl_868) !appl_870 <- appl_869 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_869 kl_Y `pseq` (appl_870 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_870 kl_V3560 kl_V3561 kl_V3562)))))) !appl_871 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_867 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_867)))) !appl_872 <- appl_866 `pseq` (appl_871 `pseq` kl_do appl_866 appl_871) !appl_873 <- appl_872 `pseq` applyWrapper appl_864 [appl_872] appl_863 `pseq` (appl_873 `pseq` kl_do appl_863 appl_873) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_874 <- kl_V3430t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3430t kl_V3561) appl_874 `pseq` applyWrapper appl_852 [appl_874]))) kl_V3430h `pseq` applyWrapper appl_851 [kl_V3430h] pat_cond_875 = do do !kl_if_876 <- kl_V3430 `pseq` kl_shen_pvarP kl_V3430 case kl_if_876 of Atom (B (True)) -> do let !appl_877 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_878 = Atom Nil !appl_879 <- kl_A `pseq` (appl_878 `pseq` klCons kl_A appl_878) !appl_880 <- kl_V3430 `pseq` (appl_879 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3430 appl_879 kl_V3561)) let !appl_881 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_882 <- kl_V3430 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3430 kl_V3561) appl_882 `pseq` (kl_Result `pseq` kl_do appl_882 kl_Result)))) !appl_883 <- kl_shen_incinfs let !appl_884 = ApplC (PL "thunk" (do let !appl_885 = Atom Nil !appl_886 <- kl_A `pseq` (appl_885 `pseq` klCons kl_A appl_885) !appl_887 <- appl_886 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_886 kl_Y `pseq` (appl_887 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_887 kl_V3560 kl_V3561 kl_V3562)))))) !appl_888 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_884 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_884)))) !appl_889 <- appl_883 `pseq` (appl_888 `pseq` kl_do appl_883 appl_888) !appl_890 <- appl_889 `pseq` applyWrapper appl_881 [appl_889] appl_880 `pseq` (appl_890 `pseq` kl_do appl_880 appl_890)))) !appl_891 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_891 `pseq` applyWrapper appl_877 [appl_891] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3430 of !(kl_V3430@(Cons (!kl_V3430h) (!kl_V3430t))) -> pat_cond_850 kl_V3430 kl_V3430h kl_V3430t _ -> pat_cond_875))) !appl_892 <- kl_V3426t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3426t kl_V3561) !appl_893 <- appl_892 `pseq` applyWrapper appl_849 [appl_892] !appl_894 <- appl_893 `pseq` applyWrapper appl_847 [appl_893] appl_846 `pseq` (appl_894 `pseq` kl_do appl_846 appl_894) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3427 of kl_V3427@(Atom (UnboundSym "vector")) -> pat_cond_799 kl_V3427@(ApplC (PL "vector" _)) -> pat_cond_799 kl_V3427@(ApplC (Func "vector" _)) -> pat_cond_799 _ -> pat_cond_844))) !appl_895 <- kl_V3426h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3426h kl_V3561) appl_895 `pseq` applyWrapper appl_798 [appl_895] pat_cond_896 = do do !kl_if_897 <- kl_V3426 `pseq` kl_shen_pvarP kl_V3426 case kl_if_897 of Atom (B (True)) -> do let !appl_898 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_899 = Atom Nil !appl_900 <- kl_A `pseq` (appl_899 `pseq` klCons kl_A appl_899) !appl_901 <- appl_900 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_900 !appl_902 <- kl_V3426 `pseq` (appl_901 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3426 appl_901 kl_V3561)) let !appl_903 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_904 <- kl_V3426 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3426 kl_V3561) appl_904 `pseq` (kl_Result `pseq` kl_do appl_904 kl_Result)))) !appl_905 <- kl_shen_incinfs let !appl_906 = ApplC (PL "thunk" (do let !appl_907 = Atom Nil !appl_908 <- kl_A `pseq` (appl_907 `pseq` klCons kl_A appl_907) !appl_909 <- appl_908 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_908 kl_Y `pseq` (appl_909 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_909 kl_V3560 kl_V3561 kl_V3562)))))) !appl_910 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_906 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_906)))) !appl_911 <- appl_905 `pseq` (appl_910 `pseq` kl_do appl_905 appl_910) !appl_912 <- appl_911 `pseq` applyWrapper appl_903 [appl_911] appl_902 `pseq` (appl_912 `pseq` kl_do appl_902 appl_912)))) !appl_913 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_913 `pseq` applyWrapper appl_898 [appl_913] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3426 of !(kl_V3426@(Cons (!kl_V3426h) (!kl_V3426t))) -> pat_cond_797 kl_V3426 kl_V3426h kl_V3426t _ -> pat_cond_896))) !appl_914 <- kl_V3559 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3559 kl_V3561) appl_914 `pseq` applyWrapper appl_796 [appl_914] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_915 <- kl_V3424t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3424t kl_V3561) appl_915 `pseq` applyWrapper appl_793 [appl_915]))) kl_V3424h `pseq` applyWrapper appl_792 [kl_V3424h] pat_cond_916 = do do return (Atom (B False)) in case kl_V3424 of !(kl_V3424@(Cons (!kl_V3424h) (!kl_V3424t))) -> pat_cond_791 kl_V3424 kl_V3424h kl_V3424t _ -> pat_cond_916))) !appl_917 <- kl_V3423t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3423t kl_V3561) appl_917 `pseq` applyWrapper appl_790 [appl_917]))) kl_V3423h `pseq` applyWrapper appl_789 [kl_V3423h] pat_cond_918 = do do return (Atom (B False)) in case kl_V3423 of !(kl_V3423@(Cons (!kl_V3423h) (!kl_V3423t))) -> pat_cond_788 kl_V3423 kl_V3423h kl_V3423t _ -> pat_cond_918))) !appl_919 <- kl_V3421t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3421t kl_V3561) appl_919 `pseq` applyWrapper appl_787 [appl_919] pat_cond_920 = do do return (Atom (B False)) in case kl_V3422 of kl_V3422@(Atom (UnboundSym "@v")) -> pat_cond_786 kl_V3422@(ApplC (PL "@v" _)) -> pat_cond_786 kl_V3422@(ApplC (Func "@v" _)) -> pat_cond_786 _ -> pat_cond_920))) !appl_921 <- kl_V3421h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3421h kl_V3561) appl_921 `pseq` applyWrapper appl_785 [appl_921] pat_cond_922 = do do return (Atom (B False)) in case kl_V3421 of !(kl_V3421@(Cons (!kl_V3421h) (!kl_V3421t))) -> pat_cond_784 kl_V3421 kl_V3421h kl_V3421t _ -> pat_cond_922))) !appl_923 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_924 <- appl_923 `pseq` applyWrapper appl_783 [appl_923] appl_924 `pseq` applyWrapper appl_17 [appl_924] pat_cond_925 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_16 kl_Case@(Atom (B (False))) -> pat_cond_16 _ -> pat_cond_925))) let !appl_926 = ApplC (Func "lambda" (Context (\(!kl_V3409) -> do let pat_cond_927 kl_V3409 kl_V3409h kl_V3409t = do let !appl_928 = ApplC (Func "lambda" (Context (\(!kl_V3410) -> do let pat_cond_929 = do let !appl_930 = ApplC (Func "lambda" (Context (\(!kl_V3411) -> do let pat_cond_931 kl_V3411 kl_V3411h kl_V3411t = do let !appl_932 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_933 = ApplC (Func "lambda" (Context (\(!kl_V3412) -> do let pat_cond_934 kl_V3412 kl_V3412h kl_V3412t = do let !appl_935 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_936 = ApplC (Func "lambda" (Context (\(!kl_V3413) -> do let !appl_937 = Atom Nil !kl_if_938 <- appl_937 `pseq` (kl_V3413 `pseq` eq appl_937 kl_V3413) case kl_if_938 of Atom (B (True)) -> do let !appl_939 = ApplC (Func "lambda" (Context (\(!kl_V3414) -> do let pat_cond_940 kl_V3414 kl_V3414h kl_V3414t = do let !appl_941 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_942 = ApplC (Func "lambda" (Context (\(!kl_V3415) -> do let pat_cond_943 kl_V3415 kl_V3415h kl_V3415t = do let !appl_944 = ApplC (Func "lambda" (Context (\(!kl_V3416) -> do let pat_cond_945 = do let !appl_946 = ApplC (Func "lambda" (Context (\(!kl_V3417) -> do let pat_cond_947 kl_V3417 kl_V3417h kl_V3417t = do let !appl_948 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_949 = ApplC (Func "lambda" (Context (\(!kl_V3418) -> do let !appl_950 = Atom Nil !kl_if_951 <- appl_950 `pseq` (kl_V3418 `pseq` eq appl_950 kl_V3418) case kl_if_951 of Atom (B (True)) -> do !appl_952 <- kl_shen_incinfs let !appl_953 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y kl_B kl_V3560 kl_V3561 kl_V3562)))))) !appl_954 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_953 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_953)))) appl_952 `pseq` (appl_954 `pseq` kl_do appl_952 appl_954) Atom (B (False)) -> do do !kl_if_955 <- kl_V3418 `pseq` kl_shen_pvarP kl_V3418 case kl_if_955 of Atom (B (True)) -> do let !appl_956 = Atom Nil !appl_957 <- kl_V3418 `pseq` (appl_956 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3418 appl_956 kl_V3561)) let !appl_958 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_959 <- kl_V3418 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3418 kl_V3561) appl_959 `pseq` (kl_Result `pseq` kl_do appl_959 kl_Result)))) !appl_960 <- kl_shen_incinfs let !appl_961 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y kl_B kl_V3560 kl_V3561 kl_V3562)))))) !appl_962 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_961 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_961)))) !appl_963 <- appl_960 `pseq` (appl_962 `pseq` kl_do appl_960 appl_962) !appl_964 <- appl_963 `pseq` applyWrapper appl_958 [appl_963] appl_957 `pseq` (appl_964 `pseq` kl_do appl_957 appl_964) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_965 <- kl_V3417t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3417t kl_V3561) appl_965 `pseq` applyWrapper appl_949 [appl_965]))) kl_V3417h `pseq` applyWrapper appl_948 [kl_V3417h] pat_cond_966 = do do !kl_if_967 <- kl_V3417 `pseq` kl_shen_pvarP kl_V3417 case kl_if_967 of Atom (B (True)) -> do let !appl_968 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_969 = Atom Nil !appl_970 <- kl_B `pseq` (appl_969 `pseq` klCons kl_B appl_969) !appl_971 <- kl_V3417 `pseq` (appl_970 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3417 appl_970 kl_V3561)) let !appl_972 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_973 <- kl_V3417 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3417 kl_V3561) appl_973 `pseq` (kl_Result `pseq` kl_do appl_973 kl_Result)))) !appl_974 <- kl_shen_incinfs let !appl_975 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y kl_B kl_V3560 kl_V3561 kl_V3562)))))) !appl_976 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_975 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_975)))) !appl_977 <- appl_974 `pseq` (appl_976 `pseq` kl_do appl_974 appl_976) !appl_978 <- appl_977 `pseq` applyWrapper appl_972 [appl_977] appl_971 `pseq` (appl_978 `pseq` kl_do appl_971 appl_978)))) !appl_979 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_979 `pseq` applyWrapper appl_968 [appl_979] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3417 of !(kl_V3417@(Cons (!kl_V3417h) (!kl_V3417t))) -> pat_cond_947 kl_V3417 kl_V3417h kl_V3417t _ -> pat_cond_966))) !appl_980 <- kl_V3415t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3415t kl_V3561) appl_980 `pseq` applyWrapper appl_946 [appl_980] pat_cond_981 = do do !kl_if_982 <- kl_V3416 `pseq` kl_shen_pvarP kl_V3416 case kl_if_982 of Atom (B (True)) -> do !appl_983 <- kl_V3416 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3416 (ApplC (wrapNamed "*" multiply)) kl_V3561) let !appl_984 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_985 <- kl_V3416 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3416 kl_V3561) appl_985 `pseq` (kl_Result `pseq` kl_do appl_985 kl_Result)))) let !appl_986 = ApplC (Func "lambda" (Context (\(!kl_V3419) -> do let pat_cond_987 kl_V3419 kl_V3419h kl_V3419t = do let !appl_988 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_989 = ApplC (Func "lambda" (Context (\(!kl_V3420) -> do let !appl_990 = Atom Nil !kl_if_991 <- appl_990 `pseq` (kl_V3420 `pseq` eq appl_990 kl_V3420) case kl_if_991 of Atom (B (True)) -> do !appl_992 <- kl_shen_incinfs let !appl_993 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y kl_B kl_V3560 kl_V3561 kl_V3562)))))) !appl_994 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_993 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_993)))) appl_992 `pseq` (appl_994 `pseq` kl_do appl_992 appl_994) Atom (B (False)) -> do do !kl_if_995 <- kl_V3420 `pseq` kl_shen_pvarP kl_V3420 case kl_if_995 of Atom (B (True)) -> do let !appl_996 = Atom Nil !appl_997 <- kl_V3420 `pseq` (appl_996 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3420 appl_996 kl_V3561)) let !appl_998 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_999 <- kl_V3420 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3420 kl_V3561) appl_999 `pseq` (kl_Result `pseq` kl_do appl_999 kl_Result)))) !appl_1000 <- kl_shen_incinfs let !appl_1001 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y kl_B kl_V3560 kl_V3561 kl_V3562)))))) !appl_1002 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1001 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_1001)))) !appl_1003 <- appl_1000 `pseq` (appl_1002 `pseq` kl_do appl_1000 appl_1002) !appl_1004 <- appl_1003 `pseq` applyWrapper appl_998 [appl_1003] appl_997 `pseq` (appl_1004 `pseq` kl_do appl_997 appl_1004) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1005 <- kl_V3419t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3419t kl_V3561) appl_1005 `pseq` applyWrapper appl_989 [appl_1005]))) kl_V3419h `pseq` applyWrapper appl_988 [kl_V3419h] pat_cond_1006 = do do !kl_if_1007 <- kl_V3419 `pseq` kl_shen_pvarP kl_V3419 case kl_if_1007 of Atom (B (True)) -> do let !appl_1008 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_1009 = Atom Nil !appl_1010 <- kl_B `pseq` (appl_1009 `pseq` klCons kl_B appl_1009) !appl_1011 <- kl_V3419 `pseq` (appl_1010 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3419 appl_1010 kl_V3561)) let !appl_1012 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1013 <- kl_V3419 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3419 kl_V3561) appl_1013 `pseq` (kl_Result `pseq` kl_do appl_1013 kl_Result)))) !appl_1014 <- kl_shen_incinfs let !appl_1015 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y kl_B kl_V3560 kl_V3561 kl_V3562)))))) !appl_1016 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1015 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_1015)))) !appl_1017 <- appl_1014 `pseq` (appl_1016 `pseq` kl_do appl_1014 appl_1016) !appl_1018 <- appl_1017 `pseq` applyWrapper appl_1012 [appl_1017] appl_1011 `pseq` (appl_1018 `pseq` kl_do appl_1011 appl_1018)))) !appl_1019 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_1019 `pseq` applyWrapper appl_1008 [appl_1019] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3419 of !(kl_V3419@(Cons (!kl_V3419h) (!kl_V3419t))) -> pat_cond_987 kl_V3419 kl_V3419h kl_V3419t _ -> pat_cond_1006))) !appl_1020 <- kl_V3415t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3415t kl_V3561) !appl_1021 <- appl_1020 `pseq` applyWrapper appl_986 [appl_1020] !appl_1022 <- appl_1021 `pseq` applyWrapper appl_984 [appl_1021] appl_983 `pseq` (appl_1022 `pseq` kl_do appl_983 appl_1022) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3416 of kl_V3416@(Atom (UnboundSym "*")) -> pat_cond_945 kl_V3416@(ApplC (PL "*" _)) -> pat_cond_945 kl_V3416@(ApplC (Func "*" _)) -> pat_cond_945 _ -> pat_cond_981))) !appl_1023 <- kl_V3415h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3415h kl_V3561) appl_1023 `pseq` applyWrapper appl_944 [appl_1023] pat_cond_1024 = do do !kl_if_1025 <- kl_V3415 `pseq` kl_shen_pvarP kl_V3415 case kl_if_1025 of Atom (B (True)) -> do let !appl_1026 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_1027 = Atom Nil !appl_1028 <- kl_B `pseq` (appl_1027 `pseq` klCons kl_B appl_1027) !appl_1029 <- appl_1028 `pseq` klCons (ApplC (wrapNamed "*" multiply)) appl_1028 !appl_1030 <- kl_V3415 `pseq` (appl_1029 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3415 appl_1029 kl_V3561)) let !appl_1031 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1032 <- kl_V3415 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3415 kl_V3561) appl_1032 `pseq` (kl_Result `pseq` kl_do appl_1032 kl_Result)))) !appl_1033 <- kl_shen_incinfs let !appl_1034 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y kl_B kl_V3560 kl_V3561 kl_V3562)))))) !appl_1035 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1034 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_1034)))) !appl_1036 <- appl_1033 `pseq` (appl_1035 `pseq` kl_do appl_1033 appl_1035) !appl_1037 <- appl_1036 `pseq` applyWrapper appl_1031 [appl_1036] appl_1030 `pseq` (appl_1037 `pseq` kl_do appl_1030 appl_1037)))) !appl_1038 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_1038 `pseq` applyWrapper appl_1026 [appl_1038] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3415 of !(kl_V3415@(Cons (!kl_V3415h) (!kl_V3415t))) -> pat_cond_943 kl_V3415 kl_V3415h kl_V3415t _ -> pat_cond_1024))) !appl_1039 <- kl_V3414t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3414t kl_V3561) appl_1039 `pseq` applyWrapper appl_942 [appl_1039]))) kl_V3414h `pseq` applyWrapper appl_941 [kl_V3414h] pat_cond_1040 = do do !kl_if_1041 <- kl_V3414 `pseq` kl_shen_pvarP kl_V3414 case kl_if_1041 of Atom (B (True)) -> do let !appl_1042 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1043 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_1044 = Atom Nil !appl_1045 <- kl_B `pseq` (appl_1044 `pseq` klCons kl_B appl_1044) !appl_1046 <- appl_1045 `pseq` klCons (ApplC (wrapNamed "*" multiply)) appl_1045 !appl_1047 <- kl_A `pseq` (appl_1046 `pseq` klCons kl_A appl_1046) !appl_1048 <- kl_V3414 `pseq` (appl_1047 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3414 appl_1047 kl_V3561)) let !appl_1049 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1050 <- kl_V3414 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3414 kl_V3561) appl_1050 `pseq` (kl_Result `pseq` kl_do appl_1050 kl_Result)))) !appl_1051 <- kl_shen_incinfs let !appl_1052 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y kl_B kl_V3560 kl_V3561 kl_V3562)))))) !appl_1053 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1052 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_1052)))) !appl_1054 <- appl_1051 `pseq` (appl_1053 `pseq` kl_do appl_1051 appl_1053) !appl_1055 <- appl_1054 `pseq` applyWrapper appl_1049 [appl_1054] appl_1048 `pseq` (appl_1055 `pseq` kl_do appl_1048 appl_1055)))) !appl_1056 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_1056 `pseq` applyWrapper appl_1043 [appl_1056]))) !appl_1057 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_1057 `pseq` applyWrapper appl_1042 [appl_1057] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3414 of !(kl_V3414@(Cons (!kl_V3414h) (!kl_V3414t))) -> pat_cond_940 kl_V3414 kl_V3414h kl_V3414t _ -> pat_cond_1040))) !appl_1058 <- kl_V3559 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3559 kl_V3561) appl_1058 `pseq` applyWrapper appl_939 [appl_1058] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_1059 <- kl_V3412t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3412t kl_V3561) appl_1059 `pseq` applyWrapper appl_936 [appl_1059]))) kl_V3412h `pseq` applyWrapper appl_935 [kl_V3412h] pat_cond_1060 = do do return (Atom (B False)) in case kl_V3412 of !(kl_V3412@(Cons (!kl_V3412h) (!kl_V3412t))) -> pat_cond_934 kl_V3412 kl_V3412h kl_V3412t _ -> pat_cond_1060))) !appl_1061 <- kl_V3411t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3411t kl_V3561) appl_1061 `pseq` applyWrapper appl_933 [appl_1061]))) kl_V3411h `pseq` applyWrapper appl_932 [kl_V3411h] pat_cond_1062 = do do return (Atom (B False)) in case kl_V3411 of !(kl_V3411@(Cons (!kl_V3411h) (!kl_V3411t))) -> pat_cond_931 kl_V3411 kl_V3411h kl_V3411t _ -> pat_cond_1062))) !appl_1063 <- kl_V3409t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3409t kl_V3561) appl_1063 `pseq` applyWrapper appl_930 [appl_1063] pat_cond_1064 = do do return (Atom (B False)) in case kl_V3410 of kl_V3410@(Atom (UnboundSym "@p")) -> pat_cond_929 kl_V3410@(ApplC (PL "@p" _)) -> pat_cond_929 kl_V3410@(ApplC (Func "@p" _)) -> pat_cond_929 _ -> pat_cond_1064))) !appl_1065 <- kl_V3409h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3409h kl_V3561) appl_1065 `pseq` applyWrapper appl_928 [appl_1065] pat_cond_1066 = do do return (Atom (B False)) in case kl_V3409 of !(kl_V3409@(Cons (!kl_V3409h) (!kl_V3409t))) -> pat_cond_927 kl_V3409 kl_V3409h kl_V3409t _ -> pat_cond_1066))) !appl_1067 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_1068 <- appl_1067 `pseq` applyWrapper appl_926 [appl_1067] appl_1068 `pseq` applyWrapper appl_15 [appl_1068] pat_cond_1069 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_14 kl_Case@(Atom (B (False))) -> pat_cond_14 _ -> pat_cond_1069))) let !appl_1070 = ApplC (Func "lambda" (Context (\(!kl_V3398) -> do let pat_cond_1071 kl_V3398 kl_V3398h kl_V3398t = do let !appl_1072 = ApplC (Func "lambda" (Context (\(!kl_V3399) -> do let pat_cond_1073 = do let !appl_1074 = ApplC (Func "lambda" (Context (\(!kl_V3400) -> do let pat_cond_1075 kl_V3400 kl_V3400h kl_V3400t = do let !appl_1076 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_1077 = ApplC (Func "lambda" (Context (\(!kl_V3401) -> do let pat_cond_1078 kl_V3401 kl_V3401h kl_V3401t = do let !appl_1079 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_1080 = ApplC (Func "lambda" (Context (\(!kl_V3402) -> do let !appl_1081 = Atom Nil !kl_if_1082 <- appl_1081 `pseq` (kl_V3402 `pseq` eq appl_1081 kl_V3402) case kl_if_1082 of Atom (B (True)) -> do let !appl_1083 = ApplC (Func "lambda" (Context (\(!kl_V3403) -> do let pat_cond_1084 kl_V3403 kl_V3403h kl_V3403t = do let !appl_1085 = ApplC (Func "lambda" (Context (\(!kl_V3404) -> do let pat_cond_1086 = do let !appl_1087 = ApplC (Func "lambda" (Context (\(!kl_V3405) -> do let pat_cond_1088 kl_V3405 kl_V3405h kl_V3405t = do let !appl_1089 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1090 = ApplC (Func "lambda" (Context (\(!kl_V3406) -> do let !appl_1091 = Atom Nil !kl_if_1092 <- appl_1091 `pseq` (kl_V3406 `pseq` eq appl_1091 kl_V3406) case kl_if_1092 of Atom (B (True)) -> do !appl_1093 <- kl_shen_incinfs let !appl_1094 = ApplC (PL "thunk" (do let !appl_1095 = Atom Nil !appl_1096 <- kl_A `pseq` (appl_1095 `pseq` klCons kl_A appl_1095) !appl_1097 <- appl_1096 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1096 kl_Y `pseq` (appl_1097 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_1097 kl_V3560 kl_V3561 kl_V3562)))))) !appl_1098 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1094 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_1094)))) appl_1093 `pseq` (appl_1098 `pseq` kl_do appl_1093 appl_1098) Atom (B (False)) -> do do !kl_if_1099 <- kl_V3406 `pseq` kl_shen_pvarP kl_V3406 case kl_if_1099 of Atom (B (True)) -> do let !appl_1100 = Atom Nil !appl_1101 <- kl_V3406 `pseq` (appl_1100 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3406 appl_1100 kl_V3561)) let !appl_1102 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1103 <- kl_V3406 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3406 kl_V3561) appl_1103 `pseq` (kl_Result `pseq` kl_do appl_1103 kl_Result)))) !appl_1104 <- kl_shen_incinfs let !appl_1105 = ApplC (PL "thunk" (do let !appl_1106 = Atom Nil !appl_1107 <- kl_A `pseq` (appl_1106 `pseq` klCons kl_A appl_1106) !appl_1108 <- appl_1107 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1107 kl_Y `pseq` (appl_1108 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_1108 kl_V3560 kl_V3561 kl_V3562)))))) !appl_1109 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1105 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_1105)))) !appl_1110 <- appl_1104 `pseq` (appl_1109 `pseq` kl_do appl_1104 appl_1109) !appl_1111 <- appl_1110 `pseq` applyWrapper appl_1102 [appl_1110] appl_1101 `pseq` (appl_1111 `pseq` kl_do appl_1101 appl_1111) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1112 <- kl_V3405t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3405t kl_V3561) appl_1112 `pseq` applyWrapper appl_1090 [appl_1112]))) kl_V3405h `pseq` applyWrapper appl_1089 [kl_V3405h] pat_cond_1113 = do do !kl_if_1114 <- kl_V3405 `pseq` kl_shen_pvarP kl_V3405 case kl_if_1114 of Atom (B (True)) -> do let !appl_1115 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1116 = Atom Nil !appl_1117 <- kl_A `pseq` (appl_1116 `pseq` klCons kl_A appl_1116) !appl_1118 <- kl_V3405 `pseq` (appl_1117 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3405 appl_1117 kl_V3561)) let !appl_1119 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1120 <- kl_V3405 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3405 kl_V3561) appl_1120 `pseq` (kl_Result `pseq` kl_do appl_1120 kl_Result)))) !appl_1121 <- kl_shen_incinfs let !appl_1122 = ApplC (PL "thunk" (do let !appl_1123 = Atom Nil !appl_1124 <- kl_A `pseq` (appl_1123 `pseq` klCons kl_A appl_1123) !appl_1125 <- appl_1124 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1124 kl_Y `pseq` (appl_1125 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_1125 kl_V3560 kl_V3561 kl_V3562)))))) !appl_1126 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1122 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_1122)))) !appl_1127 <- appl_1121 `pseq` (appl_1126 `pseq` kl_do appl_1121 appl_1126) !appl_1128 <- appl_1127 `pseq` applyWrapper appl_1119 [appl_1127] appl_1118 `pseq` (appl_1128 `pseq` kl_do appl_1118 appl_1128)))) !appl_1129 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_1129 `pseq` applyWrapper appl_1115 [appl_1129] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3405 of !(kl_V3405@(Cons (!kl_V3405h) (!kl_V3405t))) -> pat_cond_1088 kl_V3405 kl_V3405h kl_V3405t _ -> pat_cond_1113))) !appl_1130 <- kl_V3403t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3403t kl_V3561) appl_1130 `pseq` applyWrapper appl_1087 [appl_1130] pat_cond_1131 = do do !kl_if_1132 <- kl_V3404 `pseq` kl_shen_pvarP kl_V3404 case kl_if_1132 of Atom (B (True)) -> do !appl_1133 <- kl_V3404 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3404 (Core.Types.Atom (Core.Types.UnboundSym "list")) kl_V3561) let !appl_1134 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1135 <- kl_V3404 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3404 kl_V3561) appl_1135 `pseq` (kl_Result `pseq` kl_do appl_1135 kl_Result)))) let !appl_1136 = ApplC (Func "lambda" (Context (\(!kl_V3407) -> do let pat_cond_1137 kl_V3407 kl_V3407h kl_V3407t = do let !appl_1138 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1139 = ApplC (Func "lambda" (Context (\(!kl_V3408) -> do let !appl_1140 = Atom Nil !kl_if_1141 <- appl_1140 `pseq` (kl_V3408 `pseq` eq appl_1140 kl_V3408) case kl_if_1141 of Atom (B (True)) -> do !appl_1142 <- kl_shen_incinfs let !appl_1143 = ApplC (PL "thunk" (do let !appl_1144 = Atom Nil !appl_1145 <- kl_A `pseq` (appl_1144 `pseq` klCons kl_A appl_1144) !appl_1146 <- appl_1145 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1145 kl_Y `pseq` (appl_1146 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_1146 kl_V3560 kl_V3561 kl_V3562)))))) !appl_1147 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1143 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_1143)))) appl_1142 `pseq` (appl_1147 `pseq` kl_do appl_1142 appl_1147) Atom (B (False)) -> do do !kl_if_1148 <- kl_V3408 `pseq` kl_shen_pvarP kl_V3408 case kl_if_1148 of Atom (B (True)) -> do let !appl_1149 = Atom Nil !appl_1150 <- kl_V3408 `pseq` (appl_1149 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3408 appl_1149 kl_V3561)) let !appl_1151 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1152 <- kl_V3408 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3408 kl_V3561) appl_1152 `pseq` (kl_Result `pseq` kl_do appl_1152 kl_Result)))) !appl_1153 <- kl_shen_incinfs let !appl_1154 = ApplC (PL "thunk" (do let !appl_1155 = Atom Nil !appl_1156 <- kl_A `pseq` (appl_1155 `pseq` klCons kl_A appl_1155) !appl_1157 <- appl_1156 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1156 kl_Y `pseq` (appl_1157 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_1157 kl_V3560 kl_V3561 kl_V3562)))))) !appl_1158 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1154 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_1154)))) !appl_1159 <- appl_1153 `pseq` (appl_1158 `pseq` kl_do appl_1153 appl_1158) !appl_1160 <- appl_1159 `pseq` applyWrapper appl_1151 [appl_1159] appl_1150 `pseq` (appl_1160 `pseq` kl_do appl_1150 appl_1160) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1161 <- kl_V3407t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3407t kl_V3561) appl_1161 `pseq` applyWrapper appl_1139 [appl_1161]))) kl_V3407h `pseq` applyWrapper appl_1138 [kl_V3407h] pat_cond_1162 = do do !kl_if_1163 <- kl_V3407 `pseq` kl_shen_pvarP kl_V3407 case kl_if_1163 of Atom (B (True)) -> do let !appl_1164 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1165 = Atom Nil !appl_1166 <- kl_A `pseq` (appl_1165 `pseq` klCons kl_A appl_1165) !appl_1167 <- kl_V3407 `pseq` (appl_1166 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3407 appl_1166 kl_V3561)) let !appl_1168 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1169 <- kl_V3407 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3407 kl_V3561) appl_1169 `pseq` (kl_Result `pseq` kl_do appl_1169 kl_Result)))) !appl_1170 <- kl_shen_incinfs let !appl_1171 = ApplC (PL "thunk" (do let !appl_1172 = Atom Nil !appl_1173 <- kl_A `pseq` (appl_1172 `pseq` klCons kl_A appl_1172) !appl_1174 <- appl_1173 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1173 kl_Y `pseq` (appl_1174 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_1174 kl_V3560 kl_V3561 kl_V3562)))))) !appl_1175 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1171 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_1171)))) !appl_1176 <- appl_1170 `pseq` (appl_1175 `pseq` kl_do appl_1170 appl_1175) !appl_1177 <- appl_1176 `pseq` applyWrapper appl_1168 [appl_1176] appl_1167 `pseq` (appl_1177 `pseq` kl_do appl_1167 appl_1177)))) !appl_1178 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_1178 `pseq` applyWrapper appl_1164 [appl_1178] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3407 of !(kl_V3407@(Cons (!kl_V3407h) (!kl_V3407t))) -> pat_cond_1137 kl_V3407 kl_V3407h kl_V3407t _ -> pat_cond_1162))) !appl_1179 <- kl_V3403t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3403t kl_V3561) !appl_1180 <- appl_1179 `pseq` applyWrapper appl_1136 [appl_1179] !appl_1181 <- appl_1180 `pseq` applyWrapper appl_1134 [appl_1180] appl_1133 `pseq` (appl_1181 `pseq` kl_do appl_1133 appl_1181) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3404 of kl_V3404@(Atom (UnboundSym "list")) -> pat_cond_1086 kl_V3404@(ApplC (PL "list" _)) -> pat_cond_1086 kl_V3404@(ApplC (Func "list" _)) -> pat_cond_1086 _ -> pat_cond_1131))) !appl_1182 <- kl_V3403h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3403h kl_V3561) appl_1182 `pseq` applyWrapper appl_1085 [appl_1182] pat_cond_1183 = do do !kl_if_1184 <- kl_V3403 `pseq` kl_shen_pvarP kl_V3403 case kl_if_1184 of Atom (B (True)) -> do let !appl_1185 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1186 = Atom Nil !appl_1187 <- kl_A `pseq` (appl_1186 `pseq` klCons kl_A appl_1186) !appl_1188 <- appl_1187 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1187 !appl_1189 <- kl_V3403 `pseq` (appl_1188 `pseq` (kl_V3561 `pseq` kl_shen_bindv kl_V3403 appl_1188 kl_V3561)) let !appl_1190 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1191 <- kl_V3403 `pseq` (kl_V3561 `pseq` kl_shen_unbindv kl_V3403 kl_V3561) appl_1191 `pseq` (kl_Result `pseq` kl_do appl_1191 kl_Result)))) !appl_1192 <- kl_shen_incinfs let !appl_1193 = ApplC (PL "thunk" (do let !appl_1194 = Atom Nil !appl_1195 <- kl_A `pseq` (appl_1194 `pseq` klCons kl_A appl_1194) !appl_1196 <- appl_1195 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1195 kl_Y `pseq` (appl_1196 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_Y appl_1196 kl_V3560 kl_V3561 kl_V3562)))))) !appl_1197 <- kl_X `pseq` (kl_A `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1193 `pseq` kl_shen_thMult kl_X kl_A kl_V3560 kl_V3561 appl_1193)))) !appl_1198 <- appl_1192 `pseq` (appl_1197 `pseq` kl_do appl_1192 appl_1197) !appl_1199 <- appl_1198 `pseq` applyWrapper appl_1190 [appl_1198] appl_1189 `pseq` (appl_1199 `pseq` kl_do appl_1189 appl_1199)))) !appl_1200 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_1200 `pseq` applyWrapper appl_1185 [appl_1200] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3403 of !(kl_V3403@(Cons (!kl_V3403h) (!kl_V3403t))) -> pat_cond_1084 kl_V3403 kl_V3403h kl_V3403t _ -> pat_cond_1183))) !appl_1201 <- kl_V3559 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3559 kl_V3561) appl_1201 `pseq` applyWrapper appl_1083 [appl_1201] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_1202 <- kl_V3401t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3401t kl_V3561) appl_1202 `pseq` applyWrapper appl_1080 [appl_1202]))) kl_V3401h `pseq` applyWrapper appl_1079 [kl_V3401h] pat_cond_1203 = do do return (Atom (B False)) in case kl_V3401 of !(kl_V3401@(Cons (!kl_V3401h) (!kl_V3401t))) -> pat_cond_1078 kl_V3401 kl_V3401h kl_V3401t _ -> pat_cond_1203))) !appl_1204 <- kl_V3400t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3400t kl_V3561) appl_1204 `pseq` applyWrapper appl_1077 [appl_1204]))) kl_V3400h `pseq` applyWrapper appl_1076 [kl_V3400h] pat_cond_1205 = do do return (Atom (B False)) in case kl_V3400 of !(kl_V3400@(Cons (!kl_V3400h) (!kl_V3400t))) -> pat_cond_1075 kl_V3400 kl_V3400h kl_V3400t _ -> pat_cond_1205))) !appl_1206 <- kl_V3398t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3398t kl_V3561) appl_1206 `pseq` applyWrapper appl_1074 [appl_1206] pat_cond_1207 = do do return (Atom (B False)) in case kl_V3399 of kl_V3399@(Atom (UnboundSym "cons")) -> pat_cond_1073 kl_V3399@(ApplC (PL "cons" _)) -> pat_cond_1073 kl_V3399@(ApplC (Func "cons" _)) -> pat_cond_1073 _ -> pat_cond_1207))) !appl_1208 <- kl_V3398h `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3398h kl_V3561) appl_1208 `pseq` applyWrapper appl_1072 [appl_1208] pat_cond_1209 = do do return (Atom (B False)) in case kl_V3398 of !(kl_V3398@(Cons (!kl_V3398h) (!kl_V3398t))) -> pat_cond_1071 kl_V3398 kl_V3398h kl_V3398t _ -> pat_cond_1209))) !appl_1210 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_1211 <- appl_1210 `pseq` applyWrapper appl_1070 [appl_1210] appl_1211 `pseq` applyWrapper appl_13 [appl_1211] pat_cond_1212 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_12 kl_Case@(Atom (B (False))) -> pat_cond_12 _ -> pat_cond_1212))) let !appl_1213 = ApplC (Func "lambda" (Context (\(!kl_V3395) -> do let pat_cond_1214 kl_V3395 kl_V3395h kl_V3395t = do let !appl_1215 = ApplC (Func "lambda" (Context (\(!kl_F) -> do let !appl_1216 = ApplC (Func "lambda" (Context (\(!kl_V3396) -> do let pat_cond_1217 kl_V3396 kl_V3396h kl_V3396t = do let !appl_1218 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_1219 = ApplC (Func "lambda" (Context (\(!kl_V3397) -> do let !appl_1220 = Atom Nil !kl_if_1221 <- appl_1220 `pseq` (kl_V3397 `pseq` eq appl_1220 kl_V3397) case kl_if_1221 of Atom (B (True)) -> do let !appl_1222 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_1223 <- kl_shen_incinfs let !appl_1224 = Atom Nil !appl_1225 <- kl_V3559 `pseq` (appl_1224 `pseq` klCons kl_V3559 appl_1224) !appl_1226 <- appl_1225 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "-->")) appl_1225 !appl_1227 <- kl_B `pseq` (appl_1226 `pseq` klCons kl_B appl_1226) let !appl_1228 = ApplC (PL "thunk" (do kl_X `pseq` (kl_B `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_X kl_B kl_V3560 kl_V3561 kl_V3562)))))) !appl_1229 <- kl_F `pseq` (appl_1227 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1228 `pseq` kl_shen_thMult kl_F appl_1227 kl_V3560 kl_V3561 appl_1228)))) appl_1223 `pseq` (appl_1229 `pseq` kl_do appl_1223 appl_1229)))) !appl_1230 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 appl_1230 `pseq` applyWrapper appl_1222 [appl_1230] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_1231 <- kl_V3396t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3396t kl_V3561) appl_1231 `pseq` applyWrapper appl_1219 [appl_1231]))) kl_V3396h `pseq` applyWrapper appl_1218 [kl_V3396h] pat_cond_1232 = do do return (Atom (B False)) in case kl_V3396 of !(kl_V3396@(Cons (!kl_V3396h) (!kl_V3396t))) -> pat_cond_1217 kl_V3396 kl_V3396h kl_V3396t _ -> pat_cond_1232))) !appl_1233 <- kl_V3395t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3395t kl_V3561) appl_1233 `pseq` applyWrapper appl_1216 [appl_1233]))) kl_V3395h `pseq` applyWrapper appl_1215 [kl_V3395h] pat_cond_1234 = do do return (Atom (B False)) in case kl_V3395 of !(kl_V3395@(Cons (!kl_V3395h) (!kl_V3395t))) -> pat_cond_1214 kl_V3395 kl_V3395h kl_V3395t _ -> pat_cond_1234))) !appl_1235 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_1236 <- appl_1235 `pseq` applyWrapper appl_1213 [appl_1235] appl_1236 `pseq` applyWrapper appl_11 [appl_1236] pat_cond_1237 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_10 kl_Case@(Atom (B (False))) -> pat_cond_10 _ -> pat_cond_1237))) let !appl_1238 = ApplC (Func "lambda" (Context (\(!kl_V3393) -> do let pat_cond_1239 kl_V3393 kl_V3393h kl_V3393t = do let !appl_1240 = ApplC (Func "lambda" (Context (\(!kl_F) -> do let !appl_1241 = ApplC (Func "lambda" (Context (\(!kl_V3394) -> do let !appl_1242 = Atom Nil !kl_if_1243 <- appl_1242 `pseq` (kl_V3394 `pseq` eq appl_1242 kl_V3394) case kl_if_1243 of Atom (B (True)) -> do !appl_1244 <- kl_shen_incinfs let !appl_1245 = Atom Nil !appl_1246 <- kl_V3559 `pseq` (appl_1245 `pseq` klCons kl_V3559 appl_1245) !appl_1247 <- appl_1246 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "-->")) appl_1246 !appl_1248 <- kl_F `pseq` (appl_1247 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_thMult kl_F appl_1247 kl_V3560 kl_V3561 kl_V3562)))) appl_1244 `pseq` (appl_1248 `pseq` kl_do appl_1244 appl_1248) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_1249 <- kl_V3393t `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3393t kl_V3561) appl_1249 `pseq` applyWrapper appl_1241 [appl_1249]))) kl_V3393h `pseq` applyWrapper appl_1240 [kl_V3393h] pat_cond_1250 = do do return (Atom (B False)) in case kl_V3393 of !(kl_V3393@(Cons (!kl_V3393h) (!kl_V3393t))) -> pat_cond_1239 kl_V3393 kl_V3393h kl_V3393t _ -> pat_cond_1250))) !appl_1251 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_1252 <- appl_1251 `pseq` applyWrapper appl_1238 [appl_1251] appl_1252 `pseq` applyWrapper appl_9 [appl_1252] pat_cond_1253 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_8 kl_Case@(Atom (B (False))) -> pat_cond_8 _ -> pat_cond_1253))) !appl_1254 <- kl_shen_incinfs !appl_1255 <- kl_V3558 `pseq` (kl_V3559 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_by_hypothesis kl_V3558 kl_V3559 kl_V3560 kl_V3561 kl_V3562)))) !appl_1256 <- appl_1254 `pseq` (appl_1255 `pseq` kl_do appl_1254 appl_1255) appl_1256 `pseq` applyWrapper appl_7 [appl_1256] pat_cond_1257 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_6 kl_Case@(Atom (B (False))) -> pat_cond_6 _ -> pat_cond_1257))) !appl_1258 <- kl_shen_incinfs !appl_1259 <- kl_V3558 `pseq` (kl_V3559 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_shen_base kl_V3558 kl_V3559 kl_V3561 kl_V3562))) !appl_1260 <- appl_1258 `pseq` (appl_1259 `pseq` kl_do appl_1258 appl_1259) appl_1260 `pseq` applyWrapper appl_5 [appl_1260] pat_cond_1261 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_4 kl_Case@(Atom (B (False))) -> pat_cond_4 _ -> pat_cond_1261))) let !appl_1262 = ApplC (Func "lambda" (Context (\(!kl_F) -> do !appl_1263 <- kl_shen_incinfs !appl_1264 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_1265 <- appl_1264 `pseq` kl_shen_typedfP appl_1264 let !appl_1266 = ApplC (PL "thunk" (do !appl_1267 <- kl_V3558 `pseq` (kl_V3561 `pseq` kl_shen_lazyderef kl_V3558 kl_V3561) !appl_1268 <- appl_1267 `pseq` kl_shen_sigf appl_1267 let !appl_1269 = ApplC (PL "thunk" (do let !appl_1270 = Atom Nil !appl_1271 <- kl_V3559 `pseq` (appl_1270 `pseq` klCons kl_V3559 appl_1270) !appl_1272 <- kl_F `pseq` (appl_1271 `pseq` klCons kl_F appl_1271) appl_1272 `pseq` (kl_V3561 `pseq` (kl_V3562 `pseq` kl_call appl_1272 kl_V3561 kl_V3562)))) kl_F `pseq` (appl_1268 `pseq` (kl_V3561 `pseq` (appl_1269 `pseq` kl_bind kl_F appl_1268 kl_V3561 appl_1269))))) !appl_1273 <- appl_1265 `pseq` (kl_V3561 `pseq` (appl_1266 `pseq` kl_fwhen appl_1265 kl_V3561 appl_1266)) appl_1263 `pseq` (appl_1273 `pseq` kl_do appl_1263 appl_1273)))) !appl_1274 <- kl_V3561 `pseq` kl_shen_newpv kl_V3561 !appl_1275 <- appl_1274 `pseq` applyWrapper appl_1262 [appl_1274] appl_1275 `pseq` applyWrapper appl_3 [appl_1275] pat_cond_1276 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_2 kl_Case@(Atom (B (False))) -> pat_cond_2 _ -> pat_cond_1276))) !appl_1277 <- kl_shen_incinfs let !appl_1278 = Atom Nil !appl_1279 <- kl_V3559 `pseq` (appl_1278 `pseq` klCons kl_V3559 appl_1278) !appl_1280 <- appl_1279 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1279 !appl_1281 <- kl_V3558 `pseq` (appl_1280 `pseq` klCons kl_V3558 appl_1280) let !appl_1282 = ApplC (PL "thunk" (do kl_V3561 `pseq` (kl_V3562 `pseq` kl_fwhen (Atom (B False)) kl_V3561 kl_V3562))) !appl_1283 <- appl_1281 `pseq` (kl_V3560 `pseq` (kl_V3561 `pseq` (appl_1282 `pseq` kl_shen_show appl_1281 kl_V3560 kl_V3561 appl_1282))) !appl_1284 <- appl_1277 `pseq` (appl_1283 `pseq` kl_do appl_1277 appl_1283) !appl_1285 <- appl_1284 `pseq` applyWrapper appl_1 [appl_1284] kl_Throwcontrol `pseq` (appl_1285 `pseq` kl_shen_cutpoint kl_Throwcontrol appl_1285)))) !appl_1286 <- kl_shen_catchpoint appl_1286 `pseq` applyWrapper appl_0 [appl_1286] kl_shen_tMult_hyps :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_tMult_hyps (!kl_V3567) (!kl_V3568) (!kl_V3569) (!kl_V3570) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_3 = do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_5 = do let !appl_6 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_7 = do let !appl_8 = ApplC (Func "lambda" (Context (\(!kl_V3388) -> do let pat_cond_9 kl_V3388 kl_V3388h kl_V3388t = do let !appl_10 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_11 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do let !appl_12 = ApplC (Func "lambda" (Context (\(!kl_NewHyps) -> do !appl_13 <- kl_shen_incinfs !appl_14 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_15 <- kl_NewHyps `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_NewHyps kl_V3569) !appl_16 <- appl_14 `pseq` (appl_15 `pseq` klCons appl_14 appl_15) let !appl_17 = ApplC (PL "thunk" (do kl_Hyp `pseq` (kl_NewHyps `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_shen_tMult_hyps kl_Hyp kl_NewHyps kl_V3569 kl_V3570))))) !appl_18 <- kl_V3568 `pseq` (appl_16 `pseq` (kl_V3569 `pseq` (appl_17 `pseq` kl_bind kl_V3568 appl_16 kl_V3569 appl_17))) appl_13 `pseq` (appl_18 `pseq` kl_do appl_13 appl_18)))) !appl_19 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_19 `pseq` applyWrapper appl_12 [appl_19]))) kl_V3388t `pseq` applyWrapper appl_11 [kl_V3388t]))) kl_V3388h `pseq` applyWrapper appl_10 [kl_V3388h] pat_cond_20 = do do return (Atom (B False)) in case kl_V3388 of !(kl_V3388@(Cons (!kl_V3388h) (!kl_V3388t))) -> pat_cond_9 kl_V3388 kl_V3388h kl_V3388t _ -> pat_cond_20))) !appl_21 <- kl_V3567 `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3567 kl_V3569) appl_21 `pseq` applyWrapper appl_8 [appl_21] pat_cond_22 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_7 kl_Case@(Atom (B (False))) -> pat_cond_7 _ -> pat_cond_22))) let !appl_23 = ApplC (Func "lambda" (Context (\(!kl_V3375) -> do let pat_cond_24 kl_V3375 kl_V3375h kl_V3375t = do let !appl_25 = ApplC (Func "lambda" (Context (\(!kl_V3376) -> do let pat_cond_26 kl_V3376 kl_V3376h kl_V3376t = do let !appl_27 = ApplC (Func "lambda" (Context (\(!kl_V3377) -> do let pat_cond_28 kl_V3377 kl_V3377h kl_V3377t = do let !appl_29 = ApplC (Func "lambda" (Context (\(!kl_V3378) -> do let pat_cond_30 = do let !appl_31 = ApplC (Func "lambda" (Context (\(!kl_V3379) -> do let pat_cond_32 kl_V3379 kl_V3379h kl_V3379t = do let !appl_33 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_34 = ApplC (Func "lambda" (Context (\(!kl_V3380) -> do let pat_cond_35 kl_V3380 kl_V3380h kl_V3380t = do let !appl_36 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_37 = ApplC (Func "lambda" (Context (\(!kl_V3381) -> do let !appl_38 = Atom Nil !kl_if_39 <- appl_38 `pseq` (kl_V3381 `pseq` eq appl_38 kl_V3381) case kl_if_39 of Atom (B (True)) -> do let !appl_40 = ApplC (Func "lambda" (Context (\(!kl_V3382) -> do let pat_cond_41 kl_V3382 kl_V3382h kl_V3382t = do let !appl_42 = ApplC (Func "lambda" (Context (\(!kl_V3383) -> do let pat_cond_43 = do let !appl_44 = ApplC (Func "lambda" (Context (\(!kl_V3384) -> do let pat_cond_45 kl_V3384 kl_V3384h kl_V3384t = do let !appl_46 = ApplC (Func "lambda" (Context (\(!kl_V3385) -> do let pat_cond_47 = do let !appl_48 = ApplC (Func "lambda" (Context (\(!kl_V3386) -> do let !appl_49 = Atom Nil !kl_if_50 <- appl_49 `pseq` (kl_V3386 `pseq` eq appl_49 kl_V3386) case kl_if_50 of Atom (B (True)) -> do let !appl_51 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_52 <- kl_shen_incinfs !appl_53 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) let !appl_54 = Atom Nil !appl_55 <- appl_54 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "string")) appl_54 !appl_56 <- appl_55 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_55 !appl_57 <- appl_53 `pseq` (appl_56 `pseq` klCons appl_53 appl_56) !appl_58 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) let !appl_59 = Atom Nil !appl_60 <- appl_59 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "string")) appl_59 !appl_61 <- appl_60 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_60 !appl_62 <- appl_58 `pseq` (appl_61 `pseq` klCons appl_58 appl_61) !appl_63 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_64 <- appl_62 `pseq` (appl_63 `pseq` klCons appl_62 appl_63) !appl_65 <- appl_57 `pseq` (appl_64 `pseq` klCons appl_57 appl_64) !appl_66 <- kl_V3568 `pseq` (appl_65 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_65 kl_V3569 kl_V3570))) appl_52 `pseq` (appl_66 `pseq` kl_do appl_52 appl_66)))) kl_V3375t `pseq` applyWrapper appl_51 [kl_V3375t] Atom (B (False)) -> do do !kl_if_67 <- kl_V3386 `pseq` kl_shen_pvarP kl_V3386 case kl_if_67 of Atom (B (True)) -> do let !appl_68 = Atom Nil !appl_69 <- kl_V3386 `pseq` (appl_68 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3386 appl_68 kl_V3569)) let !appl_70 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_71 <- kl_V3386 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3386 kl_V3569) appl_71 `pseq` (kl_Result `pseq` kl_do appl_71 kl_Result)))) let !appl_72 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_73 <- kl_shen_incinfs !appl_74 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) let !appl_75 = Atom Nil !appl_76 <- appl_75 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "string")) appl_75 !appl_77 <- appl_76 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_76 !appl_78 <- appl_74 `pseq` (appl_77 `pseq` klCons appl_74 appl_77) !appl_79 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) let !appl_80 = Atom Nil !appl_81 <- appl_80 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "string")) appl_80 !appl_82 <- appl_81 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_81 !appl_83 <- appl_79 `pseq` (appl_82 `pseq` klCons appl_79 appl_82) !appl_84 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_85 <- appl_83 `pseq` (appl_84 `pseq` klCons appl_83 appl_84) !appl_86 <- appl_78 `pseq` (appl_85 `pseq` klCons appl_78 appl_85) !appl_87 <- kl_V3568 `pseq` (appl_86 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_86 kl_V3569 kl_V3570))) appl_73 `pseq` (appl_87 `pseq` kl_do appl_73 appl_87)))) !appl_88 <- kl_V3375t `pseq` applyWrapper appl_72 [kl_V3375t] !appl_89 <- appl_88 `pseq` applyWrapper appl_70 [appl_88] appl_69 `pseq` (appl_89 `pseq` kl_do appl_69 appl_89) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_90 <- kl_V3384t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3384t kl_V3569) appl_90 `pseq` applyWrapper appl_48 [appl_90] pat_cond_91 = do do !kl_if_92 <- kl_V3385 `pseq` kl_shen_pvarP kl_V3385 case kl_if_92 of Atom (B (True)) -> do !appl_93 <- kl_V3385 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3385 (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3569) let !appl_94 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_95 <- kl_V3385 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3385 kl_V3569) appl_95 `pseq` (kl_Result `pseq` kl_do appl_95 kl_Result)))) let !appl_96 = ApplC (Func "lambda" (Context (\(!kl_V3387) -> do let !appl_97 = Atom Nil !kl_if_98 <- appl_97 `pseq` (kl_V3387 `pseq` eq appl_97 kl_V3387) case kl_if_98 of Atom (B (True)) -> do let !appl_99 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_100 <- kl_shen_incinfs !appl_101 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) let !appl_102 = Atom Nil !appl_103 <- appl_102 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "string")) appl_102 !appl_104 <- appl_103 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_103 !appl_105 <- appl_101 `pseq` (appl_104 `pseq` klCons appl_101 appl_104) !appl_106 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) let !appl_107 = Atom Nil !appl_108 <- appl_107 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "string")) appl_107 !appl_109 <- appl_108 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_108 !appl_110 <- appl_106 `pseq` (appl_109 `pseq` klCons appl_106 appl_109) !appl_111 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_112 <- appl_110 `pseq` (appl_111 `pseq` klCons appl_110 appl_111) !appl_113 <- appl_105 `pseq` (appl_112 `pseq` klCons appl_105 appl_112) !appl_114 <- kl_V3568 `pseq` (appl_113 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_113 kl_V3569 kl_V3570))) appl_100 `pseq` (appl_114 `pseq` kl_do appl_100 appl_114)))) kl_V3375t `pseq` applyWrapper appl_99 [kl_V3375t] Atom (B (False)) -> do do !kl_if_115 <- kl_V3387 `pseq` kl_shen_pvarP kl_V3387 case kl_if_115 of Atom (B (True)) -> do let !appl_116 = Atom Nil !appl_117 <- kl_V3387 `pseq` (appl_116 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3387 appl_116 kl_V3569)) let !appl_118 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_119 <- kl_V3387 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3387 kl_V3569) appl_119 `pseq` (kl_Result `pseq` kl_do appl_119 kl_Result)))) let !appl_120 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_121 <- kl_shen_incinfs !appl_122 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) let !appl_123 = Atom Nil !appl_124 <- appl_123 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "string")) appl_123 !appl_125 <- appl_124 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_124 !appl_126 <- appl_122 `pseq` (appl_125 `pseq` klCons appl_122 appl_125) !appl_127 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) let !appl_128 = Atom Nil !appl_129 <- appl_128 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "string")) appl_128 !appl_130 <- appl_129 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_129 !appl_131 <- appl_127 `pseq` (appl_130 `pseq` klCons appl_127 appl_130) !appl_132 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_133 <- appl_131 `pseq` (appl_132 `pseq` klCons appl_131 appl_132) !appl_134 <- appl_126 `pseq` (appl_133 `pseq` klCons appl_126 appl_133) !appl_135 <- kl_V3568 `pseq` (appl_134 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_134 kl_V3569 kl_V3570))) appl_121 `pseq` (appl_135 `pseq` kl_do appl_121 appl_135)))) !appl_136 <- kl_V3375t `pseq` applyWrapper appl_120 [kl_V3375t] !appl_137 <- appl_136 `pseq` applyWrapper appl_118 [appl_136] appl_117 `pseq` (appl_137 `pseq` kl_do appl_117 appl_137) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_138 <- kl_V3384t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3384t kl_V3569) !appl_139 <- appl_138 `pseq` applyWrapper appl_96 [appl_138] !appl_140 <- appl_139 `pseq` applyWrapper appl_94 [appl_139] appl_93 `pseq` (appl_140 `pseq` kl_do appl_93 appl_140) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3385 of kl_V3385@(Atom (UnboundSym "string")) -> pat_cond_47 kl_V3385@(ApplC (PL "string" _)) -> pat_cond_47 kl_V3385@(ApplC (Func "string" _)) -> pat_cond_47 _ -> pat_cond_91))) !appl_141 <- kl_V3384h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3384h kl_V3569) appl_141 `pseq` applyWrapper appl_46 [appl_141] pat_cond_142 = do do return (Atom (B False)) in case kl_V3384 of !(kl_V3384@(Cons (!kl_V3384h) (!kl_V3384t))) -> pat_cond_45 kl_V3384 kl_V3384h kl_V3384t _ -> pat_cond_142))) !appl_143 <- kl_V3382t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3382t kl_V3569) appl_143 `pseq` applyWrapper appl_44 [appl_143] pat_cond_144 = do do return (Atom (B False)) in case kl_V3383 of kl_V3383@(Atom (UnboundSym ":")) -> pat_cond_43 kl_V3383@(ApplC (PL ":" _)) -> pat_cond_43 kl_V3383@(ApplC (Func ":" _)) -> pat_cond_43 _ -> pat_cond_144))) !appl_145 <- kl_V3382h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3382h kl_V3569) appl_145 `pseq` applyWrapper appl_42 [appl_145] pat_cond_146 = do do return (Atom (B False)) in case kl_V3382 of !(kl_V3382@(Cons (!kl_V3382h) (!kl_V3382t))) -> pat_cond_41 kl_V3382 kl_V3382h kl_V3382t _ -> pat_cond_146))) !appl_147 <- kl_V3376t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3376t kl_V3569) appl_147 `pseq` applyWrapper appl_40 [appl_147] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_148 <- kl_V3380t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3380t kl_V3569) appl_148 `pseq` applyWrapper appl_37 [appl_148]))) kl_V3380h `pseq` applyWrapper appl_36 [kl_V3380h] pat_cond_149 = do do return (Atom (B False)) in case kl_V3380 of !(kl_V3380@(Cons (!kl_V3380h) (!kl_V3380t))) -> pat_cond_35 kl_V3380 kl_V3380h kl_V3380t _ -> pat_cond_149))) !appl_150 <- kl_V3379t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3379t kl_V3569) appl_150 `pseq` applyWrapper appl_34 [appl_150]))) kl_V3379h `pseq` applyWrapper appl_33 [kl_V3379h] pat_cond_151 = do do return (Atom (B False)) in case kl_V3379 of !(kl_V3379@(Cons (!kl_V3379h) (!kl_V3379t))) -> pat_cond_32 kl_V3379 kl_V3379h kl_V3379t _ -> pat_cond_151))) !appl_152 <- kl_V3377t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3377t kl_V3569) appl_152 `pseq` applyWrapper appl_31 [appl_152] pat_cond_153 = do do return (Atom (B False)) in case kl_V3378 of kl_V3378@(Atom (UnboundSym "@s")) -> pat_cond_30 kl_V3378@(ApplC (PL "@s" _)) -> pat_cond_30 kl_V3378@(ApplC (Func "@s" _)) -> pat_cond_30 _ -> pat_cond_153))) !appl_154 <- kl_V3377h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3377h kl_V3569) appl_154 `pseq` applyWrapper appl_29 [appl_154] pat_cond_155 = do do return (Atom (B False)) in case kl_V3377 of !(kl_V3377@(Cons (!kl_V3377h) (!kl_V3377t))) -> pat_cond_28 kl_V3377 kl_V3377h kl_V3377t _ -> pat_cond_155))) !appl_156 <- kl_V3376h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3376h kl_V3569) appl_156 `pseq` applyWrapper appl_27 [appl_156] pat_cond_157 = do do return (Atom (B False)) in case kl_V3376 of !(kl_V3376@(Cons (!kl_V3376h) (!kl_V3376t))) -> pat_cond_26 kl_V3376 kl_V3376h kl_V3376t _ -> pat_cond_157))) !appl_158 <- kl_V3375h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3375h kl_V3569) appl_158 `pseq` applyWrapper appl_25 [appl_158] pat_cond_159 = do do return (Atom (B False)) in case kl_V3375 of !(kl_V3375@(Cons (!kl_V3375h) (!kl_V3375t))) -> pat_cond_24 kl_V3375 kl_V3375h kl_V3375t _ -> pat_cond_159))) !appl_160 <- kl_V3567 `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3567 kl_V3569) !appl_161 <- appl_160 `pseq` applyWrapper appl_23 [appl_160] appl_161 `pseq` applyWrapper appl_6 [appl_161] pat_cond_162 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_5 kl_Case@(Atom (B (False))) -> pat_cond_5 _ -> pat_cond_162))) let !appl_163 = ApplC (Func "lambda" (Context (\(!kl_V3352) -> do let pat_cond_164 kl_V3352 kl_V3352h kl_V3352t = do let !appl_165 = ApplC (Func "lambda" (Context (\(!kl_V3353) -> do let pat_cond_166 kl_V3353 kl_V3353h kl_V3353t = do let !appl_167 = ApplC (Func "lambda" (Context (\(!kl_V3354) -> do let pat_cond_168 kl_V3354 kl_V3354h kl_V3354t = do let !appl_169 = ApplC (Func "lambda" (Context (\(!kl_V3355) -> do let pat_cond_170 = do let !appl_171 = ApplC (Func "lambda" (Context (\(!kl_V3356) -> do let pat_cond_172 kl_V3356 kl_V3356h kl_V3356t = do let !appl_173 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_174 = ApplC (Func "lambda" (Context (\(!kl_V3357) -> do let pat_cond_175 kl_V3357 kl_V3357h kl_V3357t = do let !appl_176 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_177 = ApplC (Func "lambda" (Context (\(!kl_V3358) -> do let !appl_178 = Atom Nil !kl_if_179 <- appl_178 `pseq` (kl_V3358 `pseq` eq appl_178 kl_V3358) case kl_if_179 of Atom (B (True)) -> do let !appl_180 = ApplC (Func "lambda" (Context (\(!kl_V3359) -> do let pat_cond_181 kl_V3359 kl_V3359h kl_V3359t = do let !appl_182 = ApplC (Func "lambda" (Context (\(!kl_V3360) -> do let pat_cond_183 = do let !appl_184 = ApplC (Func "lambda" (Context (\(!kl_V3361) -> do let pat_cond_185 kl_V3361 kl_V3361h kl_V3361t = do let !appl_186 = ApplC (Func "lambda" (Context (\(!kl_V3362) -> do let pat_cond_187 kl_V3362 kl_V3362h kl_V3362t = do let !appl_188 = ApplC (Func "lambda" (Context (\(!kl_V3363) -> do let pat_cond_189 = do let !appl_190 = ApplC (Func "lambda" (Context (\(!kl_V3364) -> do let pat_cond_191 kl_V3364 kl_V3364h kl_V3364t = do let !appl_192 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_193 = ApplC (Func "lambda" (Context (\(!kl_V3365) -> do let !appl_194 = Atom Nil !kl_if_195 <- appl_194 `pseq` (kl_V3365 `pseq` eq appl_194 kl_V3365) case kl_if_195 of Atom (B (True)) -> do let !appl_196 = ApplC (Func "lambda" (Context (\(!kl_V3366) -> do let !appl_197 = Atom Nil !kl_if_198 <- appl_197 `pseq` (kl_V3366 `pseq` eq appl_197 kl_V3366) case kl_if_198 of Atom (B (True)) -> do let !appl_199 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_200 <- kl_shen_incinfs !appl_201 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_202 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_203 = Atom Nil !appl_204 <- appl_202 `pseq` (appl_203 `pseq` klCons appl_202 appl_203) !appl_205 <- appl_204 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_204 !appl_206 <- appl_201 `pseq` (appl_205 `pseq` klCons appl_201 appl_205) !appl_207 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_208 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_209 = Atom Nil !appl_210 <- appl_208 `pseq` (appl_209 `pseq` klCons appl_208 appl_209) !appl_211 <- appl_210 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_210 let !appl_212 = Atom Nil !appl_213 <- appl_211 `pseq` (appl_212 `pseq` klCons appl_211 appl_212) !appl_214 <- appl_213 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_213 !appl_215 <- appl_207 `pseq` (appl_214 `pseq` klCons appl_207 appl_214) !appl_216 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_217 <- appl_215 `pseq` (appl_216 `pseq` klCons appl_215 appl_216) !appl_218 <- appl_206 `pseq` (appl_217 `pseq` klCons appl_206 appl_217) !appl_219 <- kl_V3568 `pseq` (appl_218 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_218 kl_V3569 kl_V3570))) appl_200 `pseq` (appl_219 `pseq` kl_do appl_200 appl_219)))) kl_V3352t `pseq` applyWrapper appl_199 [kl_V3352t] Atom (B (False)) -> do do !kl_if_220 <- kl_V3366 `pseq` kl_shen_pvarP kl_V3366 case kl_if_220 of Atom (B (True)) -> do let !appl_221 = Atom Nil !appl_222 <- kl_V3366 `pseq` (appl_221 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3366 appl_221 kl_V3569)) let !appl_223 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_224 <- kl_V3366 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3366 kl_V3569) appl_224 `pseq` (kl_Result `pseq` kl_do appl_224 kl_Result)))) let !appl_225 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_226 <- kl_shen_incinfs !appl_227 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_228 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_229 = Atom Nil !appl_230 <- appl_228 `pseq` (appl_229 `pseq` klCons appl_228 appl_229) !appl_231 <- appl_230 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_230 !appl_232 <- appl_227 `pseq` (appl_231 `pseq` klCons appl_227 appl_231) !appl_233 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_234 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_235 = Atom Nil !appl_236 <- appl_234 `pseq` (appl_235 `pseq` klCons appl_234 appl_235) !appl_237 <- appl_236 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_236 let !appl_238 = Atom Nil !appl_239 <- appl_237 `pseq` (appl_238 `pseq` klCons appl_237 appl_238) !appl_240 <- appl_239 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_239 !appl_241 <- appl_233 `pseq` (appl_240 `pseq` klCons appl_233 appl_240) !appl_242 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_243 <- appl_241 `pseq` (appl_242 `pseq` klCons appl_241 appl_242) !appl_244 <- appl_232 `pseq` (appl_243 `pseq` klCons appl_232 appl_243) !appl_245 <- kl_V3568 `pseq` (appl_244 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_244 kl_V3569 kl_V3570))) appl_226 `pseq` (appl_245 `pseq` kl_do appl_226 appl_245)))) !appl_246 <- kl_V3352t `pseq` applyWrapper appl_225 [kl_V3352t] !appl_247 <- appl_246 `pseq` applyWrapper appl_223 [appl_246] appl_222 `pseq` (appl_247 `pseq` kl_do appl_222 appl_247) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_248 <- kl_V3361t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3361t kl_V3569) appl_248 `pseq` applyWrapper appl_196 [appl_248] Atom (B (False)) -> do do !kl_if_249 <- kl_V3365 `pseq` kl_shen_pvarP kl_V3365 case kl_if_249 of Atom (B (True)) -> do let !appl_250 = Atom Nil !appl_251 <- kl_V3365 `pseq` (appl_250 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3365 appl_250 kl_V3569)) let !appl_252 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_253 <- kl_V3365 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3365 kl_V3569) appl_253 `pseq` (kl_Result `pseq` kl_do appl_253 kl_Result)))) let !appl_254 = ApplC (Func "lambda" (Context (\(!kl_V3367) -> do let !appl_255 = Atom Nil !kl_if_256 <- appl_255 `pseq` (kl_V3367 `pseq` eq appl_255 kl_V3367) case kl_if_256 of Atom (B (True)) -> do let !appl_257 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_258 <- kl_shen_incinfs !appl_259 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_260 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_261 = Atom Nil !appl_262 <- appl_260 `pseq` (appl_261 `pseq` klCons appl_260 appl_261) !appl_263 <- appl_262 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_262 !appl_264 <- appl_259 `pseq` (appl_263 `pseq` klCons appl_259 appl_263) !appl_265 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_266 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_267 = Atom Nil !appl_268 <- appl_266 `pseq` (appl_267 `pseq` klCons appl_266 appl_267) !appl_269 <- appl_268 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_268 let !appl_270 = Atom Nil !appl_271 <- appl_269 `pseq` (appl_270 `pseq` klCons appl_269 appl_270) !appl_272 <- appl_271 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_271 !appl_273 <- appl_265 `pseq` (appl_272 `pseq` klCons appl_265 appl_272) !appl_274 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_275 <- appl_273 `pseq` (appl_274 `pseq` klCons appl_273 appl_274) !appl_276 <- appl_264 `pseq` (appl_275 `pseq` klCons appl_264 appl_275) !appl_277 <- kl_V3568 `pseq` (appl_276 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_276 kl_V3569 kl_V3570))) appl_258 `pseq` (appl_277 `pseq` kl_do appl_258 appl_277)))) kl_V3352t `pseq` applyWrapper appl_257 [kl_V3352t] Atom (B (False)) -> do do !kl_if_278 <- kl_V3367 `pseq` kl_shen_pvarP kl_V3367 case kl_if_278 of Atom (B (True)) -> do let !appl_279 = Atom Nil !appl_280 <- kl_V3367 `pseq` (appl_279 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3367 appl_279 kl_V3569)) let !appl_281 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_282 <- kl_V3367 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3367 kl_V3569) appl_282 `pseq` (kl_Result `pseq` kl_do appl_282 kl_Result)))) let !appl_283 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_284 <- kl_shen_incinfs !appl_285 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_286 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_287 = Atom Nil !appl_288 <- appl_286 `pseq` (appl_287 `pseq` klCons appl_286 appl_287) !appl_289 <- appl_288 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_288 !appl_290 <- appl_285 `pseq` (appl_289 `pseq` klCons appl_285 appl_289) !appl_291 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_292 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_293 = Atom Nil !appl_294 <- appl_292 `pseq` (appl_293 `pseq` klCons appl_292 appl_293) !appl_295 <- appl_294 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_294 let !appl_296 = Atom Nil !appl_297 <- appl_295 `pseq` (appl_296 `pseq` klCons appl_295 appl_296) !appl_298 <- appl_297 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_297 !appl_299 <- appl_291 `pseq` (appl_298 `pseq` klCons appl_291 appl_298) !appl_300 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_301 <- appl_299 `pseq` (appl_300 `pseq` klCons appl_299 appl_300) !appl_302 <- appl_290 `pseq` (appl_301 `pseq` klCons appl_290 appl_301) !appl_303 <- kl_V3568 `pseq` (appl_302 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_302 kl_V3569 kl_V3570))) appl_284 `pseq` (appl_303 `pseq` kl_do appl_284 appl_303)))) !appl_304 <- kl_V3352t `pseq` applyWrapper appl_283 [kl_V3352t] !appl_305 <- appl_304 `pseq` applyWrapper appl_281 [appl_304] appl_280 `pseq` (appl_305 `pseq` kl_do appl_280 appl_305) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_306 <- kl_V3361t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3361t kl_V3569) !appl_307 <- appl_306 `pseq` applyWrapper appl_254 [appl_306] !appl_308 <- appl_307 `pseq` applyWrapper appl_252 [appl_307] appl_251 `pseq` (appl_308 `pseq` kl_do appl_251 appl_308) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_309 <- kl_V3364t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3364t kl_V3569) appl_309 `pseq` applyWrapper appl_193 [appl_309]))) kl_V3364h `pseq` applyWrapper appl_192 [kl_V3364h] pat_cond_310 = do do !kl_if_311 <- kl_V3364 `pseq` kl_shen_pvarP kl_V3364 case kl_if_311 of Atom (B (True)) -> do let !appl_312 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_313 = Atom Nil !appl_314 <- kl_A `pseq` (appl_313 `pseq` klCons kl_A appl_313) !appl_315 <- kl_V3364 `pseq` (appl_314 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3364 appl_314 kl_V3569)) let !appl_316 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_317 <- kl_V3364 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3364 kl_V3569) appl_317 `pseq` (kl_Result `pseq` kl_do appl_317 kl_Result)))) let !appl_318 = ApplC (Func "lambda" (Context (\(!kl_V3368) -> do let !appl_319 = Atom Nil !kl_if_320 <- appl_319 `pseq` (kl_V3368 `pseq` eq appl_319 kl_V3368) case kl_if_320 of Atom (B (True)) -> do let !appl_321 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_322 <- kl_shen_incinfs !appl_323 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_324 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_325 = Atom Nil !appl_326 <- appl_324 `pseq` (appl_325 `pseq` klCons appl_324 appl_325) !appl_327 <- appl_326 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_326 !appl_328 <- appl_323 `pseq` (appl_327 `pseq` klCons appl_323 appl_327) !appl_329 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_330 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_331 = Atom Nil !appl_332 <- appl_330 `pseq` (appl_331 `pseq` klCons appl_330 appl_331) !appl_333 <- appl_332 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_332 let !appl_334 = Atom Nil !appl_335 <- appl_333 `pseq` (appl_334 `pseq` klCons appl_333 appl_334) !appl_336 <- appl_335 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_335 !appl_337 <- appl_329 `pseq` (appl_336 `pseq` klCons appl_329 appl_336) !appl_338 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_339 <- appl_337 `pseq` (appl_338 `pseq` klCons appl_337 appl_338) !appl_340 <- appl_328 `pseq` (appl_339 `pseq` klCons appl_328 appl_339) !appl_341 <- kl_V3568 `pseq` (appl_340 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_340 kl_V3569 kl_V3570))) appl_322 `pseq` (appl_341 `pseq` kl_do appl_322 appl_341)))) kl_V3352t `pseq` applyWrapper appl_321 [kl_V3352t] Atom (B (False)) -> do do !kl_if_342 <- kl_V3368 `pseq` kl_shen_pvarP kl_V3368 case kl_if_342 of Atom (B (True)) -> do let !appl_343 = Atom Nil !appl_344 <- kl_V3368 `pseq` (appl_343 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3368 appl_343 kl_V3569)) let !appl_345 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_346 <- kl_V3368 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3368 kl_V3569) appl_346 `pseq` (kl_Result `pseq` kl_do appl_346 kl_Result)))) let !appl_347 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_348 <- kl_shen_incinfs !appl_349 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_350 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_351 = Atom Nil !appl_352 <- appl_350 `pseq` (appl_351 `pseq` klCons appl_350 appl_351) !appl_353 <- appl_352 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_352 !appl_354 <- appl_349 `pseq` (appl_353 `pseq` klCons appl_349 appl_353) !appl_355 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_356 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_357 = Atom Nil !appl_358 <- appl_356 `pseq` (appl_357 `pseq` klCons appl_356 appl_357) !appl_359 <- appl_358 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_358 let !appl_360 = Atom Nil !appl_361 <- appl_359 `pseq` (appl_360 `pseq` klCons appl_359 appl_360) !appl_362 <- appl_361 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_361 !appl_363 <- appl_355 `pseq` (appl_362 `pseq` klCons appl_355 appl_362) !appl_364 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_365 <- appl_363 `pseq` (appl_364 `pseq` klCons appl_363 appl_364) !appl_366 <- appl_354 `pseq` (appl_365 `pseq` klCons appl_354 appl_365) !appl_367 <- kl_V3568 `pseq` (appl_366 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_366 kl_V3569 kl_V3570))) appl_348 `pseq` (appl_367 `pseq` kl_do appl_348 appl_367)))) !appl_368 <- kl_V3352t `pseq` applyWrapper appl_347 [kl_V3352t] !appl_369 <- appl_368 `pseq` applyWrapper appl_345 [appl_368] appl_344 `pseq` (appl_369 `pseq` kl_do appl_344 appl_369) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_370 <- kl_V3361t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3361t kl_V3569) !appl_371 <- appl_370 `pseq` applyWrapper appl_318 [appl_370] !appl_372 <- appl_371 `pseq` applyWrapper appl_316 [appl_371] appl_315 `pseq` (appl_372 `pseq` kl_do appl_315 appl_372)))) !appl_373 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_373 `pseq` applyWrapper appl_312 [appl_373] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3364 of !(kl_V3364@(Cons (!kl_V3364h) (!kl_V3364t))) -> pat_cond_191 kl_V3364 kl_V3364h kl_V3364t _ -> pat_cond_310))) !appl_374 <- kl_V3362t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3362t kl_V3569) appl_374 `pseq` applyWrapper appl_190 [appl_374] pat_cond_375 = do do !kl_if_376 <- kl_V3363 `pseq` kl_shen_pvarP kl_V3363 case kl_if_376 of Atom (B (True)) -> do !appl_377 <- kl_V3363 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3363 (ApplC (wrapNamed "vector" kl_vector)) kl_V3569) let !appl_378 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_379 <- kl_V3363 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3363 kl_V3569) appl_379 `pseq` (kl_Result `pseq` kl_do appl_379 kl_Result)))) let !appl_380 = ApplC (Func "lambda" (Context (\(!kl_V3369) -> do let pat_cond_381 kl_V3369 kl_V3369h kl_V3369t = do let !appl_382 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_383 = ApplC (Func "lambda" (Context (\(!kl_V3370) -> do let !appl_384 = Atom Nil !kl_if_385 <- appl_384 `pseq` (kl_V3370 `pseq` eq appl_384 kl_V3370) case kl_if_385 of Atom (B (True)) -> do let !appl_386 = ApplC (Func "lambda" (Context (\(!kl_V3371) -> do let !appl_387 = Atom Nil !kl_if_388 <- appl_387 `pseq` (kl_V3371 `pseq` eq appl_387 kl_V3371) case kl_if_388 of Atom (B (True)) -> do let !appl_389 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_390 <- kl_shen_incinfs !appl_391 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_392 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_393 = Atom Nil !appl_394 <- appl_392 `pseq` (appl_393 `pseq` klCons appl_392 appl_393) !appl_395 <- appl_394 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_394 !appl_396 <- appl_391 `pseq` (appl_395 `pseq` klCons appl_391 appl_395) !appl_397 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_398 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_399 = Atom Nil !appl_400 <- appl_398 `pseq` (appl_399 `pseq` klCons appl_398 appl_399) !appl_401 <- appl_400 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_400 let !appl_402 = Atom Nil !appl_403 <- appl_401 `pseq` (appl_402 `pseq` klCons appl_401 appl_402) !appl_404 <- appl_403 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_403 !appl_405 <- appl_397 `pseq` (appl_404 `pseq` klCons appl_397 appl_404) !appl_406 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_407 <- appl_405 `pseq` (appl_406 `pseq` klCons appl_405 appl_406) !appl_408 <- appl_396 `pseq` (appl_407 `pseq` klCons appl_396 appl_407) !appl_409 <- kl_V3568 `pseq` (appl_408 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_408 kl_V3569 kl_V3570))) appl_390 `pseq` (appl_409 `pseq` kl_do appl_390 appl_409)))) kl_V3352t `pseq` applyWrapper appl_389 [kl_V3352t] Atom (B (False)) -> do do !kl_if_410 <- kl_V3371 `pseq` kl_shen_pvarP kl_V3371 case kl_if_410 of Atom (B (True)) -> do let !appl_411 = Atom Nil !appl_412 <- kl_V3371 `pseq` (appl_411 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3371 appl_411 kl_V3569)) let !appl_413 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_414 <- kl_V3371 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3371 kl_V3569) appl_414 `pseq` (kl_Result `pseq` kl_do appl_414 kl_Result)))) let !appl_415 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_416 <- kl_shen_incinfs !appl_417 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_418 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_419 = Atom Nil !appl_420 <- appl_418 `pseq` (appl_419 `pseq` klCons appl_418 appl_419) !appl_421 <- appl_420 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_420 !appl_422 <- appl_417 `pseq` (appl_421 `pseq` klCons appl_417 appl_421) !appl_423 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_424 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_425 = Atom Nil !appl_426 <- appl_424 `pseq` (appl_425 `pseq` klCons appl_424 appl_425) !appl_427 <- appl_426 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_426 let !appl_428 = Atom Nil !appl_429 <- appl_427 `pseq` (appl_428 `pseq` klCons appl_427 appl_428) !appl_430 <- appl_429 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_429 !appl_431 <- appl_423 `pseq` (appl_430 `pseq` klCons appl_423 appl_430) !appl_432 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_433 <- appl_431 `pseq` (appl_432 `pseq` klCons appl_431 appl_432) !appl_434 <- appl_422 `pseq` (appl_433 `pseq` klCons appl_422 appl_433) !appl_435 <- kl_V3568 `pseq` (appl_434 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_434 kl_V3569 kl_V3570))) appl_416 `pseq` (appl_435 `pseq` kl_do appl_416 appl_435)))) !appl_436 <- kl_V3352t `pseq` applyWrapper appl_415 [kl_V3352t] !appl_437 <- appl_436 `pseq` applyWrapper appl_413 [appl_436] appl_412 `pseq` (appl_437 `pseq` kl_do appl_412 appl_437) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_438 <- kl_V3361t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3361t kl_V3569) appl_438 `pseq` applyWrapper appl_386 [appl_438] Atom (B (False)) -> do do !kl_if_439 <- kl_V3370 `pseq` kl_shen_pvarP kl_V3370 case kl_if_439 of Atom (B (True)) -> do let !appl_440 = Atom Nil !appl_441 <- kl_V3370 `pseq` (appl_440 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3370 appl_440 kl_V3569)) let !appl_442 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_443 <- kl_V3370 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3370 kl_V3569) appl_443 `pseq` (kl_Result `pseq` kl_do appl_443 kl_Result)))) let !appl_444 = ApplC (Func "lambda" (Context (\(!kl_V3372) -> do let !appl_445 = Atom Nil !kl_if_446 <- appl_445 `pseq` (kl_V3372 `pseq` eq appl_445 kl_V3372) case kl_if_446 of Atom (B (True)) -> do let !appl_447 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_448 <- kl_shen_incinfs !appl_449 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_450 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_451 = Atom Nil !appl_452 <- appl_450 `pseq` (appl_451 `pseq` klCons appl_450 appl_451) !appl_453 <- appl_452 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_452 !appl_454 <- appl_449 `pseq` (appl_453 `pseq` klCons appl_449 appl_453) !appl_455 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_456 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_457 = Atom Nil !appl_458 <- appl_456 `pseq` (appl_457 `pseq` klCons appl_456 appl_457) !appl_459 <- appl_458 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_458 let !appl_460 = Atom Nil !appl_461 <- appl_459 `pseq` (appl_460 `pseq` klCons appl_459 appl_460) !appl_462 <- appl_461 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_461 !appl_463 <- appl_455 `pseq` (appl_462 `pseq` klCons appl_455 appl_462) !appl_464 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_465 <- appl_463 `pseq` (appl_464 `pseq` klCons appl_463 appl_464) !appl_466 <- appl_454 `pseq` (appl_465 `pseq` klCons appl_454 appl_465) !appl_467 <- kl_V3568 `pseq` (appl_466 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_466 kl_V3569 kl_V3570))) appl_448 `pseq` (appl_467 `pseq` kl_do appl_448 appl_467)))) kl_V3352t `pseq` applyWrapper appl_447 [kl_V3352t] Atom (B (False)) -> do do !kl_if_468 <- kl_V3372 `pseq` kl_shen_pvarP kl_V3372 case kl_if_468 of Atom (B (True)) -> do let !appl_469 = Atom Nil !appl_470 <- kl_V3372 `pseq` (appl_469 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3372 appl_469 kl_V3569)) let !appl_471 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_472 <- kl_V3372 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3372 kl_V3569) appl_472 `pseq` (kl_Result `pseq` kl_do appl_472 kl_Result)))) let !appl_473 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_474 <- kl_shen_incinfs !appl_475 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_476 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_477 = Atom Nil !appl_478 <- appl_476 `pseq` (appl_477 `pseq` klCons appl_476 appl_477) !appl_479 <- appl_478 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_478 !appl_480 <- appl_475 `pseq` (appl_479 `pseq` klCons appl_475 appl_479) !appl_481 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_482 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_483 = Atom Nil !appl_484 <- appl_482 `pseq` (appl_483 `pseq` klCons appl_482 appl_483) !appl_485 <- appl_484 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_484 let !appl_486 = Atom Nil !appl_487 <- appl_485 `pseq` (appl_486 `pseq` klCons appl_485 appl_486) !appl_488 <- appl_487 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_487 !appl_489 <- appl_481 `pseq` (appl_488 `pseq` klCons appl_481 appl_488) !appl_490 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_491 <- appl_489 `pseq` (appl_490 `pseq` klCons appl_489 appl_490) !appl_492 <- appl_480 `pseq` (appl_491 `pseq` klCons appl_480 appl_491) !appl_493 <- kl_V3568 `pseq` (appl_492 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_492 kl_V3569 kl_V3570))) appl_474 `pseq` (appl_493 `pseq` kl_do appl_474 appl_493)))) !appl_494 <- kl_V3352t `pseq` applyWrapper appl_473 [kl_V3352t] !appl_495 <- appl_494 `pseq` applyWrapper appl_471 [appl_494] appl_470 `pseq` (appl_495 `pseq` kl_do appl_470 appl_495) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_496 <- kl_V3361t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3361t kl_V3569) !appl_497 <- appl_496 `pseq` applyWrapper appl_444 [appl_496] !appl_498 <- appl_497 `pseq` applyWrapper appl_442 [appl_497] appl_441 `pseq` (appl_498 `pseq` kl_do appl_441 appl_498) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_499 <- kl_V3369t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3369t kl_V3569) appl_499 `pseq` applyWrapper appl_383 [appl_499]))) kl_V3369h `pseq` applyWrapper appl_382 [kl_V3369h] pat_cond_500 = do do !kl_if_501 <- kl_V3369 `pseq` kl_shen_pvarP kl_V3369 case kl_if_501 of Atom (B (True)) -> do let !appl_502 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_503 = Atom Nil !appl_504 <- kl_A `pseq` (appl_503 `pseq` klCons kl_A appl_503) !appl_505 <- kl_V3369 `pseq` (appl_504 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3369 appl_504 kl_V3569)) let !appl_506 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_507 <- kl_V3369 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3369 kl_V3569) appl_507 `pseq` (kl_Result `pseq` kl_do appl_507 kl_Result)))) let !appl_508 = ApplC (Func "lambda" (Context (\(!kl_V3373) -> do let !appl_509 = Atom Nil !kl_if_510 <- appl_509 `pseq` (kl_V3373 `pseq` eq appl_509 kl_V3373) case kl_if_510 of Atom (B (True)) -> do let !appl_511 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_512 <- kl_shen_incinfs !appl_513 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_514 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_515 = Atom Nil !appl_516 <- appl_514 `pseq` (appl_515 `pseq` klCons appl_514 appl_515) !appl_517 <- appl_516 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_516 !appl_518 <- appl_513 `pseq` (appl_517 `pseq` klCons appl_513 appl_517) !appl_519 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_520 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_521 = Atom Nil !appl_522 <- appl_520 `pseq` (appl_521 `pseq` klCons appl_520 appl_521) !appl_523 <- appl_522 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_522 let !appl_524 = Atom Nil !appl_525 <- appl_523 `pseq` (appl_524 `pseq` klCons appl_523 appl_524) !appl_526 <- appl_525 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_525 !appl_527 <- appl_519 `pseq` (appl_526 `pseq` klCons appl_519 appl_526) !appl_528 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_529 <- appl_527 `pseq` (appl_528 `pseq` klCons appl_527 appl_528) !appl_530 <- appl_518 `pseq` (appl_529 `pseq` klCons appl_518 appl_529) !appl_531 <- kl_V3568 `pseq` (appl_530 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_530 kl_V3569 kl_V3570))) appl_512 `pseq` (appl_531 `pseq` kl_do appl_512 appl_531)))) kl_V3352t `pseq` applyWrapper appl_511 [kl_V3352t] Atom (B (False)) -> do do !kl_if_532 <- kl_V3373 `pseq` kl_shen_pvarP kl_V3373 case kl_if_532 of Atom (B (True)) -> do let !appl_533 = Atom Nil !appl_534 <- kl_V3373 `pseq` (appl_533 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3373 appl_533 kl_V3569)) let !appl_535 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_536 <- kl_V3373 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3373 kl_V3569) appl_536 `pseq` (kl_Result `pseq` kl_do appl_536 kl_Result)))) let !appl_537 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_538 <- kl_shen_incinfs !appl_539 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_540 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_541 = Atom Nil !appl_542 <- appl_540 `pseq` (appl_541 `pseq` klCons appl_540 appl_541) !appl_543 <- appl_542 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_542 !appl_544 <- appl_539 `pseq` (appl_543 `pseq` klCons appl_539 appl_543) !appl_545 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_546 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_547 = Atom Nil !appl_548 <- appl_546 `pseq` (appl_547 `pseq` klCons appl_546 appl_547) !appl_549 <- appl_548 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_548 let !appl_550 = Atom Nil !appl_551 <- appl_549 `pseq` (appl_550 `pseq` klCons appl_549 appl_550) !appl_552 <- appl_551 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_551 !appl_553 <- appl_545 `pseq` (appl_552 `pseq` klCons appl_545 appl_552) !appl_554 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_555 <- appl_553 `pseq` (appl_554 `pseq` klCons appl_553 appl_554) !appl_556 <- appl_544 `pseq` (appl_555 `pseq` klCons appl_544 appl_555) !appl_557 <- kl_V3568 `pseq` (appl_556 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_556 kl_V3569 kl_V3570))) appl_538 `pseq` (appl_557 `pseq` kl_do appl_538 appl_557)))) !appl_558 <- kl_V3352t `pseq` applyWrapper appl_537 [kl_V3352t] !appl_559 <- appl_558 `pseq` applyWrapper appl_535 [appl_558] appl_534 `pseq` (appl_559 `pseq` kl_do appl_534 appl_559) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_560 <- kl_V3361t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3361t kl_V3569) !appl_561 <- appl_560 `pseq` applyWrapper appl_508 [appl_560] !appl_562 <- appl_561 `pseq` applyWrapper appl_506 [appl_561] appl_505 `pseq` (appl_562 `pseq` kl_do appl_505 appl_562)))) !appl_563 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_563 `pseq` applyWrapper appl_502 [appl_563] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3369 of !(kl_V3369@(Cons (!kl_V3369h) (!kl_V3369t))) -> pat_cond_381 kl_V3369 kl_V3369h kl_V3369t _ -> pat_cond_500))) !appl_564 <- kl_V3362t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3362t kl_V3569) !appl_565 <- appl_564 `pseq` applyWrapper appl_380 [appl_564] !appl_566 <- appl_565 `pseq` applyWrapper appl_378 [appl_565] appl_377 `pseq` (appl_566 `pseq` kl_do appl_377 appl_566) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3363 of kl_V3363@(Atom (UnboundSym "vector")) -> pat_cond_189 kl_V3363@(ApplC (PL "vector" _)) -> pat_cond_189 kl_V3363@(ApplC (Func "vector" _)) -> pat_cond_189 _ -> pat_cond_375))) !appl_567 <- kl_V3362h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3362h kl_V3569) appl_567 `pseq` applyWrapper appl_188 [appl_567] pat_cond_568 = do do !kl_if_569 <- kl_V3362 `pseq` kl_shen_pvarP kl_V3362 case kl_if_569 of Atom (B (True)) -> do let !appl_570 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_571 = Atom Nil !appl_572 <- kl_A `pseq` (appl_571 `pseq` klCons kl_A appl_571) !appl_573 <- appl_572 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_572 !appl_574 <- kl_V3362 `pseq` (appl_573 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3362 appl_573 kl_V3569)) let !appl_575 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_576 <- kl_V3362 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3362 kl_V3569) appl_576 `pseq` (kl_Result `pseq` kl_do appl_576 kl_Result)))) let !appl_577 = ApplC (Func "lambda" (Context (\(!kl_V3374) -> do let !appl_578 = Atom Nil !kl_if_579 <- appl_578 `pseq` (kl_V3374 `pseq` eq appl_578 kl_V3374) case kl_if_579 of Atom (B (True)) -> do let !appl_580 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_581 <- kl_shen_incinfs !appl_582 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_583 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_584 = Atom Nil !appl_585 <- appl_583 `pseq` (appl_584 `pseq` klCons appl_583 appl_584) !appl_586 <- appl_585 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_585 !appl_587 <- appl_582 `pseq` (appl_586 `pseq` klCons appl_582 appl_586) !appl_588 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_589 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_590 = Atom Nil !appl_591 <- appl_589 `pseq` (appl_590 `pseq` klCons appl_589 appl_590) !appl_592 <- appl_591 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_591 let !appl_593 = Atom Nil !appl_594 <- appl_592 `pseq` (appl_593 `pseq` klCons appl_592 appl_593) !appl_595 <- appl_594 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_594 !appl_596 <- appl_588 `pseq` (appl_595 `pseq` klCons appl_588 appl_595) !appl_597 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_598 <- appl_596 `pseq` (appl_597 `pseq` klCons appl_596 appl_597) !appl_599 <- appl_587 `pseq` (appl_598 `pseq` klCons appl_587 appl_598) !appl_600 <- kl_V3568 `pseq` (appl_599 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_599 kl_V3569 kl_V3570))) appl_581 `pseq` (appl_600 `pseq` kl_do appl_581 appl_600)))) kl_V3352t `pseq` applyWrapper appl_580 [kl_V3352t] Atom (B (False)) -> do do !kl_if_601 <- kl_V3374 `pseq` kl_shen_pvarP kl_V3374 case kl_if_601 of Atom (B (True)) -> do let !appl_602 = Atom Nil !appl_603 <- kl_V3374 `pseq` (appl_602 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3374 appl_602 kl_V3569)) let !appl_604 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_605 <- kl_V3374 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3374 kl_V3569) appl_605 `pseq` (kl_Result `pseq` kl_do appl_605 kl_Result)))) let !appl_606 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_607 <- kl_shen_incinfs !appl_608 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_609 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_610 = Atom Nil !appl_611 <- appl_609 `pseq` (appl_610 `pseq` klCons appl_609 appl_610) !appl_612 <- appl_611 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_611 !appl_613 <- appl_608 `pseq` (appl_612 `pseq` klCons appl_608 appl_612) !appl_614 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_615 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_616 = Atom Nil !appl_617 <- appl_615 `pseq` (appl_616 `pseq` klCons appl_615 appl_616) !appl_618 <- appl_617 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_617 let !appl_619 = Atom Nil !appl_620 <- appl_618 `pseq` (appl_619 `pseq` klCons appl_618 appl_619) !appl_621 <- appl_620 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_620 !appl_622 <- appl_614 `pseq` (appl_621 `pseq` klCons appl_614 appl_621) !appl_623 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_624 <- appl_622 `pseq` (appl_623 `pseq` klCons appl_622 appl_623) !appl_625 <- appl_613 `pseq` (appl_624 `pseq` klCons appl_613 appl_624) !appl_626 <- kl_V3568 `pseq` (appl_625 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_625 kl_V3569 kl_V3570))) appl_607 `pseq` (appl_626 `pseq` kl_do appl_607 appl_626)))) !appl_627 <- kl_V3352t `pseq` applyWrapper appl_606 [kl_V3352t] !appl_628 <- appl_627 `pseq` applyWrapper appl_604 [appl_627] appl_603 `pseq` (appl_628 `pseq` kl_do appl_603 appl_628) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_629 <- kl_V3361t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3361t kl_V3569) !appl_630 <- appl_629 `pseq` applyWrapper appl_577 [appl_629] !appl_631 <- appl_630 `pseq` applyWrapper appl_575 [appl_630] appl_574 `pseq` (appl_631 `pseq` kl_do appl_574 appl_631)))) !appl_632 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_632 `pseq` applyWrapper appl_570 [appl_632] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3362 of !(kl_V3362@(Cons (!kl_V3362h) (!kl_V3362t))) -> pat_cond_187 kl_V3362 kl_V3362h kl_V3362t _ -> pat_cond_568))) !appl_633 <- kl_V3361h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3361h kl_V3569) appl_633 `pseq` applyWrapper appl_186 [appl_633] pat_cond_634 = do do return (Atom (B False)) in case kl_V3361 of !(kl_V3361@(Cons (!kl_V3361h) (!kl_V3361t))) -> pat_cond_185 kl_V3361 kl_V3361h kl_V3361t _ -> pat_cond_634))) !appl_635 <- kl_V3359t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3359t kl_V3569) appl_635 `pseq` applyWrapper appl_184 [appl_635] pat_cond_636 = do do return (Atom (B False)) in case kl_V3360 of kl_V3360@(Atom (UnboundSym ":")) -> pat_cond_183 kl_V3360@(ApplC (PL ":" _)) -> pat_cond_183 kl_V3360@(ApplC (Func ":" _)) -> pat_cond_183 _ -> pat_cond_636))) !appl_637 <- kl_V3359h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3359h kl_V3569) appl_637 `pseq` applyWrapper appl_182 [appl_637] pat_cond_638 = do do return (Atom (B False)) in case kl_V3359 of !(kl_V3359@(Cons (!kl_V3359h) (!kl_V3359t))) -> pat_cond_181 kl_V3359 kl_V3359h kl_V3359t _ -> pat_cond_638))) !appl_639 <- kl_V3353t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3353t kl_V3569) appl_639 `pseq` applyWrapper appl_180 [appl_639] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_640 <- kl_V3357t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3357t kl_V3569) appl_640 `pseq` applyWrapper appl_177 [appl_640]))) kl_V3357h `pseq` applyWrapper appl_176 [kl_V3357h] pat_cond_641 = do do return (Atom (B False)) in case kl_V3357 of !(kl_V3357@(Cons (!kl_V3357h) (!kl_V3357t))) -> pat_cond_175 kl_V3357 kl_V3357h kl_V3357t _ -> pat_cond_641))) !appl_642 <- kl_V3356t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3356t kl_V3569) appl_642 `pseq` applyWrapper appl_174 [appl_642]))) kl_V3356h `pseq` applyWrapper appl_173 [kl_V3356h] pat_cond_643 = do do return (Atom (B False)) in case kl_V3356 of !(kl_V3356@(Cons (!kl_V3356h) (!kl_V3356t))) -> pat_cond_172 kl_V3356 kl_V3356h kl_V3356t _ -> pat_cond_643))) !appl_644 <- kl_V3354t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3354t kl_V3569) appl_644 `pseq` applyWrapper appl_171 [appl_644] pat_cond_645 = do do return (Atom (B False)) in case kl_V3355 of kl_V3355@(Atom (UnboundSym "@v")) -> pat_cond_170 kl_V3355@(ApplC (PL "@v" _)) -> pat_cond_170 kl_V3355@(ApplC (Func "@v" _)) -> pat_cond_170 _ -> pat_cond_645))) !appl_646 <- kl_V3354h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3354h kl_V3569) appl_646 `pseq` applyWrapper appl_169 [appl_646] pat_cond_647 = do do return (Atom (B False)) in case kl_V3354 of !(kl_V3354@(Cons (!kl_V3354h) (!kl_V3354t))) -> pat_cond_168 kl_V3354 kl_V3354h kl_V3354t _ -> pat_cond_647))) !appl_648 <- kl_V3353h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3353h kl_V3569) appl_648 `pseq` applyWrapper appl_167 [appl_648] pat_cond_649 = do do return (Atom (B False)) in case kl_V3353 of !(kl_V3353@(Cons (!kl_V3353h) (!kl_V3353t))) -> pat_cond_166 kl_V3353 kl_V3353h kl_V3353t _ -> pat_cond_649))) !appl_650 <- kl_V3352h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3352h kl_V3569) appl_650 `pseq` applyWrapper appl_165 [appl_650] pat_cond_651 = do do return (Atom (B False)) in case kl_V3352 of !(kl_V3352@(Cons (!kl_V3352h) (!kl_V3352t))) -> pat_cond_164 kl_V3352 kl_V3352h kl_V3352t _ -> pat_cond_651))) !appl_652 <- kl_V3567 `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3567 kl_V3569) !appl_653 <- appl_652 `pseq` applyWrapper appl_163 [appl_652] appl_653 `pseq` applyWrapper appl_4 [appl_653] pat_cond_654 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_3 kl_Case@(Atom (B (False))) -> pat_cond_3 _ -> pat_cond_654))) let !appl_655 = ApplC (Func "lambda" (Context (\(!kl_V3327) -> do let pat_cond_656 kl_V3327 kl_V3327h kl_V3327t = do let !appl_657 = ApplC (Func "lambda" (Context (\(!kl_V3328) -> do let pat_cond_658 kl_V3328 kl_V3328h kl_V3328t = do let !appl_659 = ApplC (Func "lambda" (Context (\(!kl_V3329) -> do let pat_cond_660 kl_V3329 kl_V3329h kl_V3329t = do let !appl_661 = ApplC (Func "lambda" (Context (\(!kl_V3330) -> do let pat_cond_662 = do let !appl_663 = ApplC (Func "lambda" (Context (\(!kl_V3331) -> do let pat_cond_664 kl_V3331 kl_V3331h kl_V3331t = do let !appl_665 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_666 = ApplC (Func "lambda" (Context (\(!kl_V3332) -> do let pat_cond_667 kl_V3332 kl_V3332h kl_V3332t = do let !appl_668 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_669 = ApplC (Func "lambda" (Context (\(!kl_V3333) -> do let !appl_670 = Atom Nil !kl_if_671 <- appl_670 `pseq` (kl_V3333 `pseq` eq appl_670 kl_V3333) case kl_if_671 of Atom (B (True)) -> do let !appl_672 = ApplC (Func "lambda" (Context (\(!kl_V3334) -> do let pat_cond_673 kl_V3334 kl_V3334h kl_V3334t = do let !appl_674 = ApplC (Func "lambda" (Context (\(!kl_V3335) -> do let pat_cond_675 = do let !appl_676 = ApplC (Func "lambda" (Context (\(!kl_V3336) -> do let pat_cond_677 kl_V3336 kl_V3336h kl_V3336t = do let !appl_678 = ApplC (Func "lambda" (Context (\(!kl_V3337) -> do let pat_cond_679 kl_V3337 kl_V3337h kl_V3337t = do let !appl_680 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_681 = ApplC (Func "lambda" (Context (\(!kl_V3338) -> do let pat_cond_682 kl_V3338 kl_V3338h kl_V3338t = do let !appl_683 = ApplC (Func "lambda" (Context (\(!kl_V3339) -> do let pat_cond_684 = do let !appl_685 = ApplC (Func "lambda" (Context (\(!kl_V3340) -> do let pat_cond_686 kl_V3340 kl_V3340h kl_V3340t = do let !appl_687 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_688 = ApplC (Func "lambda" (Context (\(!kl_V3341) -> do let !appl_689 = Atom Nil !kl_if_690 <- appl_689 `pseq` (kl_V3341 `pseq` eq appl_689 kl_V3341) case kl_if_690 of Atom (B (True)) -> do let !appl_691 = ApplC (Func "lambda" (Context (\(!kl_V3342) -> do let !appl_692 = Atom Nil !kl_if_693 <- appl_692 `pseq` (kl_V3342 `pseq` eq appl_692 kl_V3342) case kl_if_693 of Atom (B (True)) -> do let !appl_694 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_695 <- kl_shen_incinfs !appl_696 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_697 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_698 = Atom Nil !appl_699 <- appl_697 `pseq` (appl_698 `pseq` klCons appl_697 appl_698) !appl_700 <- appl_699 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_699 !appl_701 <- appl_696 `pseq` (appl_700 `pseq` klCons appl_696 appl_700) !appl_702 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_703 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_704 = Atom Nil !appl_705 <- appl_703 `pseq` (appl_704 `pseq` klCons appl_703 appl_704) !appl_706 <- appl_705 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_705 !appl_707 <- appl_702 `pseq` (appl_706 `pseq` klCons appl_702 appl_706) !appl_708 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_709 <- appl_707 `pseq` (appl_708 `pseq` klCons appl_707 appl_708) !appl_710 <- appl_701 `pseq` (appl_709 `pseq` klCons appl_701 appl_709) !appl_711 <- kl_V3568 `pseq` (appl_710 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_710 kl_V3569 kl_V3570))) appl_695 `pseq` (appl_711 `pseq` kl_do appl_695 appl_711)))) kl_V3327t `pseq` applyWrapper appl_694 [kl_V3327t] Atom (B (False)) -> do do !kl_if_712 <- kl_V3342 `pseq` kl_shen_pvarP kl_V3342 case kl_if_712 of Atom (B (True)) -> do let !appl_713 = Atom Nil !appl_714 <- kl_V3342 `pseq` (appl_713 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3342 appl_713 kl_V3569)) let !appl_715 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_716 <- kl_V3342 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3342 kl_V3569) appl_716 `pseq` (kl_Result `pseq` kl_do appl_716 kl_Result)))) let !appl_717 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_718 <- kl_shen_incinfs !appl_719 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_720 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_721 = Atom Nil !appl_722 <- appl_720 `pseq` (appl_721 `pseq` klCons appl_720 appl_721) !appl_723 <- appl_722 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_722 !appl_724 <- appl_719 `pseq` (appl_723 `pseq` klCons appl_719 appl_723) !appl_725 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_726 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_727 = Atom Nil !appl_728 <- appl_726 `pseq` (appl_727 `pseq` klCons appl_726 appl_727) !appl_729 <- appl_728 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_728 !appl_730 <- appl_725 `pseq` (appl_729 `pseq` klCons appl_725 appl_729) !appl_731 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_732 <- appl_730 `pseq` (appl_731 `pseq` klCons appl_730 appl_731) !appl_733 <- appl_724 `pseq` (appl_732 `pseq` klCons appl_724 appl_732) !appl_734 <- kl_V3568 `pseq` (appl_733 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_733 kl_V3569 kl_V3570))) appl_718 `pseq` (appl_734 `pseq` kl_do appl_718 appl_734)))) !appl_735 <- kl_V3327t `pseq` applyWrapper appl_717 [kl_V3327t] !appl_736 <- appl_735 `pseq` applyWrapper appl_715 [appl_735] appl_714 `pseq` (appl_736 `pseq` kl_do appl_714 appl_736) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_737 <- kl_V3336t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3336t kl_V3569) appl_737 `pseq` applyWrapper appl_691 [appl_737] Atom (B (False)) -> do do !kl_if_738 <- kl_V3341 `pseq` kl_shen_pvarP kl_V3341 case kl_if_738 of Atom (B (True)) -> do let !appl_739 = Atom Nil !appl_740 <- kl_V3341 `pseq` (appl_739 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3341 appl_739 kl_V3569)) let !appl_741 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_742 <- kl_V3341 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3341 kl_V3569) appl_742 `pseq` (kl_Result `pseq` kl_do appl_742 kl_Result)))) let !appl_743 = ApplC (Func "lambda" (Context (\(!kl_V3343) -> do let !appl_744 = Atom Nil !kl_if_745 <- appl_744 `pseq` (kl_V3343 `pseq` eq appl_744 kl_V3343) case kl_if_745 of Atom (B (True)) -> do let !appl_746 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_747 <- kl_shen_incinfs !appl_748 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_749 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_750 = Atom Nil !appl_751 <- appl_749 `pseq` (appl_750 `pseq` klCons appl_749 appl_750) !appl_752 <- appl_751 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_751 !appl_753 <- appl_748 `pseq` (appl_752 `pseq` klCons appl_748 appl_752) !appl_754 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_755 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_756 = Atom Nil !appl_757 <- appl_755 `pseq` (appl_756 `pseq` klCons appl_755 appl_756) !appl_758 <- appl_757 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_757 !appl_759 <- appl_754 `pseq` (appl_758 `pseq` klCons appl_754 appl_758) !appl_760 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_761 <- appl_759 `pseq` (appl_760 `pseq` klCons appl_759 appl_760) !appl_762 <- appl_753 `pseq` (appl_761 `pseq` klCons appl_753 appl_761) !appl_763 <- kl_V3568 `pseq` (appl_762 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_762 kl_V3569 kl_V3570))) appl_747 `pseq` (appl_763 `pseq` kl_do appl_747 appl_763)))) kl_V3327t `pseq` applyWrapper appl_746 [kl_V3327t] Atom (B (False)) -> do do !kl_if_764 <- kl_V3343 `pseq` kl_shen_pvarP kl_V3343 case kl_if_764 of Atom (B (True)) -> do let !appl_765 = Atom Nil !appl_766 <- kl_V3343 `pseq` (appl_765 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3343 appl_765 kl_V3569)) let !appl_767 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_768 <- kl_V3343 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3343 kl_V3569) appl_768 `pseq` (kl_Result `pseq` kl_do appl_768 kl_Result)))) let !appl_769 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_770 <- kl_shen_incinfs !appl_771 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_772 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_773 = Atom Nil !appl_774 <- appl_772 `pseq` (appl_773 `pseq` klCons appl_772 appl_773) !appl_775 <- appl_774 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_774 !appl_776 <- appl_771 `pseq` (appl_775 `pseq` klCons appl_771 appl_775) !appl_777 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_778 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_779 = Atom Nil !appl_780 <- appl_778 `pseq` (appl_779 `pseq` klCons appl_778 appl_779) !appl_781 <- appl_780 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_780 !appl_782 <- appl_777 `pseq` (appl_781 `pseq` klCons appl_777 appl_781) !appl_783 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_784 <- appl_782 `pseq` (appl_783 `pseq` klCons appl_782 appl_783) !appl_785 <- appl_776 `pseq` (appl_784 `pseq` klCons appl_776 appl_784) !appl_786 <- kl_V3568 `pseq` (appl_785 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_785 kl_V3569 kl_V3570))) appl_770 `pseq` (appl_786 `pseq` kl_do appl_770 appl_786)))) !appl_787 <- kl_V3327t `pseq` applyWrapper appl_769 [kl_V3327t] !appl_788 <- appl_787 `pseq` applyWrapper appl_767 [appl_787] appl_766 `pseq` (appl_788 `pseq` kl_do appl_766 appl_788) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_789 <- kl_V3336t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3336t kl_V3569) !appl_790 <- appl_789 `pseq` applyWrapper appl_743 [appl_789] !appl_791 <- appl_790 `pseq` applyWrapper appl_741 [appl_790] appl_740 `pseq` (appl_791 `pseq` kl_do appl_740 appl_791) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_792 <- kl_V3340t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3340t kl_V3569) appl_792 `pseq` applyWrapper appl_688 [appl_792]))) kl_V3340h `pseq` applyWrapper appl_687 [kl_V3340h] pat_cond_793 = do do !kl_if_794 <- kl_V3340 `pseq` kl_shen_pvarP kl_V3340 case kl_if_794 of Atom (B (True)) -> do let !appl_795 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_796 = Atom Nil !appl_797 <- kl_B `pseq` (appl_796 `pseq` klCons kl_B appl_796) !appl_798 <- kl_V3340 `pseq` (appl_797 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3340 appl_797 kl_V3569)) let !appl_799 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_800 <- kl_V3340 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3340 kl_V3569) appl_800 `pseq` (kl_Result `pseq` kl_do appl_800 kl_Result)))) let !appl_801 = ApplC (Func "lambda" (Context (\(!kl_V3344) -> do let !appl_802 = Atom Nil !kl_if_803 <- appl_802 `pseq` (kl_V3344 `pseq` eq appl_802 kl_V3344) case kl_if_803 of Atom (B (True)) -> do let !appl_804 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_805 <- kl_shen_incinfs !appl_806 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_807 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_808 = Atom Nil !appl_809 <- appl_807 `pseq` (appl_808 `pseq` klCons appl_807 appl_808) !appl_810 <- appl_809 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_809 !appl_811 <- appl_806 `pseq` (appl_810 `pseq` klCons appl_806 appl_810) !appl_812 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_813 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_814 = Atom Nil !appl_815 <- appl_813 `pseq` (appl_814 `pseq` klCons appl_813 appl_814) !appl_816 <- appl_815 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_815 !appl_817 <- appl_812 `pseq` (appl_816 `pseq` klCons appl_812 appl_816) !appl_818 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_819 <- appl_817 `pseq` (appl_818 `pseq` klCons appl_817 appl_818) !appl_820 <- appl_811 `pseq` (appl_819 `pseq` klCons appl_811 appl_819) !appl_821 <- kl_V3568 `pseq` (appl_820 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_820 kl_V3569 kl_V3570))) appl_805 `pseq` (appl_821 `pseq` kl_do appl_805 appl_821)))) kl_V3327t `pseq` applyWrapper appl_804 [kl_V3327t] Atom (B (False)) -> do do !kl_if_822 <- kl_V3344 `pseq` kl_shen_pvarP kl_V3344 case kl_if_822 of Atom (B (True)) -> do let !appl_823 = Atom Nil !appl_824 <- kl_V3344 `pseq` (appl_823 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3344 appl_823 kl_V3569)) let !appl_825 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_826 <- kl_V3344 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3344 kl_V3569) appl_826 `pseq` (kl_Result `pseq` kl_do appl_826 kl_Result)))) let !appl_827 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_828 <- kl_shen_incinfs !appl_829 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_830 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_831 = Atom Nil !appl_832 <- appl_830 `pseq` (appl_831 `pseq` klCons appl_830 appl_831) !appl_833 <- appl_832 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_832 !appl_834 <- appl_829 `pseq` (appl_833 `pseq` klCons appl_829 appl_833) !appl_835 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_836 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_837 = Atom Nil !appl_838 <- appl_836 `pseq` (appl_837 `pseq` klCons appl_836 appl_837) !appl_839 <- appl_838 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_838 !appl_840 <- appl_835 `pseq` (appl_839 `pseq` klCons appl_835 appl_839) !appl_841 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_842 <- appl_840 `pseq` (appl_841 `pseq` klCons appl_840 appl_841) !appl_843 <- appl_834 `pseq` (appl_842 `pseq` klCons appl_834 appl_842) !appl_844 <- kl_V3568 `pseq` (appl_843 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_843 kl_V3569 kl_V3570))) appl_828 `pseq` (appl_844 `pseq` kl_do appl_828 appl_844)))) !appl_845 <- kl_V3327t `pseq` applyWrapper appl_827 [kl_V3327t] !appl_846 <- appl_845 `pseq` applyWrapper appl_825 [appl_845] appl_824 `pseq` (appl_846 `pseq` kl_do appl_824 appl_846) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_847 <- kl_V3336t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3336t kl_V3569) !appl_848 <- appl_847 `pseq` applyWrapper appl_801 [appl_847] !appl_849 <- appl_848 `pseq` applyWrapper appl_799 [appl_848] appl_798 `pseq` (appl_849 `pseq` kl_do appl_798 appl_849)))) !appl_850 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_850 `pseq` applyWrapper appl_795 [appl_850] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3340 of !(kl_V3340@(Cons (!kl_V3340h) (!kl_V3340t))) -> pat_cond_686 kl_V3340 kl_V3340h kl_V3340t _ -> pat_cond_793))) !appl_851 <- kl_V3338t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3338t kl_V3569) appl_851 `pseq` applyWrapper appl_685 [appl_851] pat_cond_852 = do do !kl_if_853 <- kl_V3339 `pseq` kl_shen_pvarP kl_V3339 case kl_if_853 of Atom (B (True)) -> do !appl_854 <- kl_V3339 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3339 (ApplC (wrapNamed "*" multiply)) kl_V3569) let !appl_855 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_856 <- kl_V3339 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3339 kl_V3569) appl_856 `pseq` (kl_Result `pseq` kl_do appl_856 kl_Result)))) let !appl_857 = ApplC (Func "lambda" (Context (\(!kl_V3345) -> do let pat_cond_858 kl_V3345 kl_V3345h kl_V3345t = do let !appl_859 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_860 = ApplC (Func "lambda" (Context (\(!kl_V3346) -> do let !appl_861 = Atom Nil !kl_if_862 <- appl_861 `pseq` (kl_V3346 `pseq` eq appl_861 kl_V3346) case kl_if_862 of Atom (B (True)) -> do let !appl_863 = ApplC (Func "lambda" (Context (\(!kl_V3347) -> do let !appl_864 = Atom Nil !kl_if_865 <- appl_864 `pseq` (kl_V3347 `pseq` eq appl_864 kl_V3347) case kl_if_865 of Atom (B (True)) -> do let !appl_866 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_867 <- kl_shen_incinfs !appl_868 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_869 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_870 = Atom Nil !appl_871 <- appl_869 `pseq` (appl_870 `pseq` klCons appl_869 appl_870) !appl_872 <- appl_871 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_871 !appl_873 <- appl_868 `pseq` (appl_872 `pseq` klCons appl_868 appl_872) !appl_874 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_875 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_876 = Atom Nil !appl_877 <- appl_875 `pseq` (appl_876 `pseq` klCons appl_875 appl_876) !appl_878 <- appl_877 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_877 !appl_879 <- appl_874 `pseq` (appl_878 `pseq` klCons appl_874 appl_878) !appl_880 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_881 <- appl_879 `pseq` (appl_880 `pseq` klCons appl_879 appl_880) !appl_882 <- appl_873 `pseq` (appl_881 `pseq` klCons appl_873 appl_881) !appl_883 <- kl_V3568 `pseq` (appl_882 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_882 kl_V3569 kl_V3570))) appl_867 `pseq` (appl_883 `pseq` kl_do appl_867 appl_883)))) kl_V3327t `pseq` applyWrapper appl_866 [kl_V3327t] Atom (B (False)) -> do do !kl_if_884 <- kl_V3347 `pseq` kl_shen_pvarP kl_V3347 case kl_if_884 of Atom (B (True)) -> do let !appl_885 = Atom Nil !appl_886 <- kl_V3347 `pseq` (appl_885 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3347 appl_885 kl_V3569)) let !appl_887 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_888 <- kl_V3347 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3347 kl_V3569) appl_888 `pseq` (kl_Result `pseq` kl_do appl_888 kl_Result)))) let !appl_889 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_890 <- kl_shen_incinfs !appl_891 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_892 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_893 = Atom Nil !appl_894 <- appl_892 `pseq` (appl_893 `pseq` klCons appl_892 appl_893) !appl_895 <- appl_894 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_894 !appl_896 <- appl_891 `pseq` (appl_895 `pseq` klCons appl_891 appl_895) !appl_897 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_898 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_899 = Atom Nil !appl_900 <- appl_898 `pseq` (appl_899 `pseq` klCons appl_898 appl_899) !appl_901 <- appl_900 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_900 !appl_902 <- appl_897 `pseq` (appl_901 `pseq` klCons appl_897 appl_901) !appl_903 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_904 <- appl_902 `pseq` (appl_903 `pseq` klCons appl_902 appl_903) !appl_905 <- appl_896 `pseq` (appl_904 `pseq` klCons appl_896 appl_904) !appl_906 <- kl_V3568 `pseq` (appl_905 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_905 kl_V3569 kl_V3570))) appl_890 `pseq` (appl_906 `pseq` kl_do appl_890 appl_906)))) !appl_907 <- kl_V3327t `pseq` applyWrapper appl_889 [kl_V3327t] !appl_908 <- appl_907 `pseq` applyWrapper appl_887 [appl_907] appl_886 `pseq` (appl_908 `pseq` kl_do appl_886 appl_908) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_909 <- kl_V3336t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3336t kl_V3569) appl_909 `pseq` applyWrapper appl_863 [appl_909] Atom (B (False)) -> do do !kl_if_910 <- kl_V3346 `pseq` kl_shen_pvarP kl_V3346 case kl_if_910 of Atom (B (True)) -> do let !appl_911 = Atom Nil !appl_912 <- kl_V3346 `pseq` (appl_911 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3346 appl_911 kl_V3569)) let !appl_913 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_914 <- kl_V3346 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3346 kl_V3569) appl_914 `pseq` (kl_Result `pseq` kl_do appl_914 kl_Result)))) let !appl_915 = ApplC (Func "lambda" (Context (\(!kl_V3348) -> do let !appl_916 = Atom Nil !kl_if_917 <- appl_916 `pseq` (kl_V3348 `pseq` eq appl_916 kl_V3348) case kl_if_917 of Atom (B (True)) -> do let !appl_918 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_919 <- kl_shen_incinfs !appl_920 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_921 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_922 = Atom Nil !appl_923 <- appl_921 `pseq` (appl_922 `pseq` klCons appl_921 appl_922) !appl_924 <- appl_923 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_923 !appl_925 <- appl_920 `pseq` (appl_924 `pseq` klCons appl_920 appl_924) !appl_926 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_927 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_928 = Atom Nil !appl_929 <- appl_927 `pseq` (appl_928 `pseq` klCons appl_927 appl_928) !appl_930 <- appl_929 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_929 !appl_931 <- appl_926 `pseq` (appl_930 `pseq` klCons appl_926 appl_930) !appl_932 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_933 <- appl_931 `pseq` (appl_932 `pseq` klCons appl_931 appl_932) !appl_934 <- appl_925 `pseq` (appl_933 `pseq` klCons appl_925 appl_933) !appl_935 <- kl_V3568 `pseq` (appl_934 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_934 kl_V3569 kl_V3570))) appl_919 `pseq` (appl_935 `pseq` kl_do appl_919 appl_935)))) kl_V3327t `pseq` applyWrapper appl_918 [kl_V3327t] Atom (B (False)) -> do do !kl_if_936 <- kl_V3348 `pseq` kl_shen_pvarP kl_V3348 case kl_if_936 of Atom (B (True)) -> do let !appl_937 = Atom Nil !appl_938 <- kl_V3348 `pseq` (appl_937 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3348 appl_937 kl_V3569)) let !appl_939 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_940 <- kl_V3348 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3348 kl_V3569) appl_940 `pseq` (kl_Result `pseq` kl_do appl_940 kl_Result)))) let !appl_941 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_942 <- kl_shen_incinfs !appl_943 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_944 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_945 = Atom Nil !appl_946 <- appl_944 `pseq` (appl_945 `pseq` klCons appl_944 appl_945) !appl_947 <- appl_946 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_946 !appl_948 <- appl_943 `pseq` (appl_947 `pseq` klCons appl_943 appl_947) !appl_949 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_950 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_951 = Atom Nil !appl_952 <- appl_950 `pseq` (appl_951 `pseq` klCons appl_950 appl_951) !appl_953 <- appl_952 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_952 !appl_954 <- appl_949 `pseq` (appl_953 `pseq` klCons appl_949 appl_953) !appl_955 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_956 <- appl_954 `pseq` (appl_955 `pseq` klCons appl_954 appl_955) !appl_957 <- appl_948 `pseq` (appl_956 `pseq` klCons appl_948 appl_956) !appl_958 <- kl_V3568 `pseq` (appl_957 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_957 kl_V3569 kl_V3570))) appl_942 `pseq` (appl_958 `pseq` kl_do appl_942 appl_958)))) !appl_959 <- kl_V3327t `pseq` applyWrapper appl_941 [kl_V3327t] !appl_960 <- appl_959 `pseq` applyWrapper appl_939 [appl_959] appl_938 `pseq` (appl_960 `pseq` kl_do appl_938 appl_960) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_961 <- kl_V3336t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3336t kl_V3569) !appl_962 <- appl_961 `pseq` applyWrapper appl_915 [appl_961] !appl_963 <- appl_962 `pseq` applyWrapper appl_913 [appl_962] appl_912 `pseq` (appl_963 `pseq` kl_do appl_912 appl_963) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_964 <- kl_V3345t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3345t kl_V3569) appl_964 `pseq` applyWrapper appl_860 [appl_964]))) kl_V3345h `pseq` applyWrapper appl_859 [kl_V3345h] pat_cond_965 = do do !kl_if_966 <- kl_V3345 `pseq` kl_shen_pvarP kl_V3345 case kl_if_966 of Atom (B (True)) -> do let !appl_967 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_968 = Atom Nil !appl_969 <- kl_B `pseq` (appl_968 `pseq` klCons kl_B appl_968) !appl_970 <- kl_V3345 `pseq` (appl_969 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3345 appl_969 kl_V3569)) let !appl_971 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_972 <- kl_V3345 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3345 kl_V3569) appl_972 `pseq` (kl_Result `pseq` kl_do appl_972 kl_Result)))) let !appl_973 = ApplC (Func "lambda" (Context (\(!kl_V3349) -> do let !appl_974 = Atom Nil !kl_if_975 <- appl_974 `pseq` (kl_V3349 `pseq` eq appl_974 kl_V3349) case kl_if_975 of Atom (B (True)) -> do let !appl_976 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_977 <- kl_shen_incinfs !appl_978 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_979 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_980 = Atom Nil !appl_981 <- appl_979 `pseq` (appl_980 `pseq` klCons appl_979 appl_980) !appl_982 <- appl_981 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_981 !appl_983 <- appl_978 `pseq` (appl_982 `pseq` klCons appl_978 appl_982) !appl_984 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_985 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_986 = Atom Nil !appl_987 <- appl_985 `pseq` (appl_986 `pseq` klCons appl_985 appl_986) !appl_988 <- appl_987 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_987 !appl_989 <- appl_984 `pseq` (appl_988 `pseq` klCons appl_984 appl_988) !appl_990 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_991 <- appl_989 `pseq` (appl_990 `pseq` klCons appl_989 appl_990) !appl_992 <- appl_983 `pseq` (appl_991 `pseq` klCons appl_983 appl_991) !appl_993 <- kl_V3568 `pseq` (appl_992 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_992 kl_V3569 kl_V3570))) appl_977 `pseq` (appl_993 `pseq` kl_do appl_977 appl_993)))) kl_V3327t `pseq` applyWrapper appl_976 [kl_V3327t] Atom (B (False)) -> do do !kl_if_994 <- kl_V3349 `pseq` kl_shen_pvarP kl_V3349 case kl_if_994 of Atom (B (True)) -> do let !appl_995 = Atom Nil !appl_996 <- kl_V3349 `pseq` (appl_995 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3349 appl_995 kl_V3569)) let !appl_997 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_998 <- kl_V3349 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3349 kl_V3569) appl_998 `pseq` (kl_Result `pseq` kl_do appl_998 kl_Result)))) let !appl_999 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1000 <- kl_shen_incinfs !appl_1001 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1002 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1003 = Atom Nil !appl_1004 <- appl_1002 `pseq` (appl_1003 `pseq` klCons appl_1002 appl_1003) !appl_1005 <- appl_1004 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1004 !appl_1006 <- appl_1001 `pseq` (appl_1005 `pseq` klCons appl_1001 appl_1005) !appl_1007 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1008 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_1009 = Atom Nil !appl_1010 <- appl_1008 `pseq` (appl_1009 `pseq` klCons appl_1008 appl_1009) !appl_1011 <- appl_1010 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1010 !appl_1012 <- appl_1007 `pseq` (appl_1011 `pseq` klCons appl_1007 appl_1011) !appl_1013 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1014 <- appl_1012 `pseq` (appl_1013 `pseq` klCons appl_1012 appl_1013) !appl_1015 <- appl_1006 `pseq` (appl_1014 `pseq` klCons appl_1006 appl_1014) !appl_1016 <- kl_V3568 `pseq` (appl_1015 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1015 kl_V3569 kl_V3570))) appl_1000 `pseq` (appl_1016 `pseq` kl_do appl_1000 appl_1016)))) !appl_1017 <- kl_V3327t `pseq` applyWrapper appl_999 [kl_V3327t] !appl_1018 <- appl_1017 `pseq` applyWrapper appl_997 [appl_1017] appl_996 `pseq` (appl_1018 `pseq` kl_do appl_996 appl_1018) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1019 <- kl_V3336t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3336t kl_V3569) !appl_1020 <- appl_1019 `pseq` applyWrapper appl_973 [appl_1019] !appl_1021 <- appl_1020 `pseq` applyWrapper appl_971 [appl_1020] appl_970 `pseq` (appl_1021 `pseq` kl_do appl_970 appl_1021)))) !appl_1022 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_1022 `pseq` applyWrapper appl_967 [appl_1022] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3345 of !(kl_V3345@(Cons (!kl_V3345h) (!kl_V3345t))) -> pat_cond_858 kl_V3345 kl_V3345h kl_V3345t _ -> pat_cond_965))) !appl_1023 <- kl_V3338t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3338t kl_V3569) !appl_1024 <- appl_1023 `pseq` applyWrapper appl_857 [appl_1023] !appl_1025 <- appl_1024 `pseq` applyWrapper appl_855 [appl_1024] appl_854 `pseq` (appl_1025 `pseq` kl_do appl_854 appl_1025) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3339 of kl_V3339@(Atom (UnboundSym "*")) -> pat_cond_684 kl_V3339@(ApplC (PL "*" _)) -> pat_cond_684 kl_V3339@(ApplC (Func "*" _)) -> pat_cond_684 _ -> pat_cond_852))) !appl_1026 <- kl_V3338h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3338h kl_V3569) appl_1026 `pseq` applyWrapper appl_683 [appl_1026] pat_cond_1027 = do do !kl_if_1028 <- kl_V3338 `pseq` kl_shen_pvarP kl_V3338 case kl_if_1028 of Atom (B (True)) -> do let !appl_1029 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_1030 = Atom Nil !appl_1031 <- kl_B `pseq` (appl_1030 `pseq` klCons kl_B appl_1030) !appl_1032 <- appl_1031 `pseq` klCons (ApplC (wrapNamed "*" multiply)) appl_1031 !appl_1033 <- kl_V3338 `pseq` (appl_1032 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3338 appl_1032 kl_V3569)) let !appl_1034 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1035 <- kl_V3338 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3338 kl_V3569) appl_1035 `pseq` (kl_Result `pseq` kl_do appl_1035 kl_Result)))) let !appl_1036 = ApplC (Func "lambda" (Context (\(!kl_V3350) -> do let !appl_1037 = Atom Nil !kl_if_1038 <- appl_1037 `pseq` (kl_V3350 `pseq` eq appl_1037 kl_V3350) case kl_if_1038 of Atom (B (True)) -> do let !appl_1039 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1040 <- kl_shen_incinfs !appl_1041 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1042 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1043 = Atom Nil !appl_1044 <- appl_1042 `pseq` (appl_1043 `pseq` klCons appl_1042 appl_1043) !appl_1045 <- appl_1044 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1044 !appl_1046 <- appl_1041 `pseq` (appl_1045 `pseq` klCons appl_1041 appl_1045) !appl_1047 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1048 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_1049 = Atom Nil !appl_1050 <- appl_1048 `pseq` (appl_1049 `pseq` klCons appl_1048 appl_1049) !appl_1051 <- appl_1050 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1050 !appl_1052 <- appl_1047 `pseq` (appl_1051 `pseq` klCons appl_1047 appl_1051) !appl_1053 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1054 <- appl_1052 `pseq` (appl_1053 `pseq` klCons appl_1052 appl_1053) !appl_1055 <- appl_1046 `pseq` (appl_1054 `pseq` klCons appl_1046 appl_1054) !appl_1056 <- kl_V3568 `pseq` (appl_1055 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1055 kl_V3569 kl_V3570))) appl_1040 `pseq` (appl_1056 `pseq` kl_do appl_1040 appl_1056)))) kl_V3327t `pseq` applyWrapper appl_1039 [kl_V3327t] Atom (B (False)) -> do do !kl_if_1057 <- kl_V3350 `pseq` kl_shen_pvarP kl_V3350 case kl_if_1057 of Atom (B (True)) -> do let !appl_1058 = Atom Nil !appl_1059 <- kl_V3350 `pseq` (appl_1058 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3350 appl_1058 kl_V3569)) let !appl_1060 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1061 <- kl_V3350 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3350 kl_V3569) appl_1061 `pseq` (kl_Result `pseq` kl_do appl_1061 kl_Result)))) let !appl_1062 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1063 <- kl_shen_incinfs !appl_1064 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1065 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1066 = Atom Nil !appl_1067 <- appl_1065 `pseq` (appl_1066 `pseq` klCons appl_1065 appl_1066) !appl_1068 <- appl_1067 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1067 !appl_1069 <- appl_1064 `pseq` (appl_1068 `pseq` klCons appl_1064 appl_1068) !appl_1070 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1071 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_1072 = Atom Nil !appl_1073 <- appl_1071 `pseq` (appl_1072 `pseq` klCons appl_1071 appl_1072) !appl_1074 <- appl_1073 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1073 !appl_1075 <- appl_1070 `pseq` (appl_1074 `pseq` klCons appl_1070 appl_1074) !appl_1076 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1077 <- appl_1075 `pseq` (appl_1076 `pseq` klCons appl_1075 appl_1076) !appl_1078 <- appl_1069 `pseq` (appl_1077 `pseq` klCons appl_1069 appl_1077) !appl_1079 <- kl_V3568 `pseq` (appl_1078 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1078 kl_V3569 kl_V3570))) appl_1063 `pseq` (appl_1079 `pseq` kl_do appl_1063 appl_1079)))) !appl_1080 <- kl_V3327t `pseq` applyWrapper appl_1062 [kl_V3327t] !appl_1081 <- appl_1080 `pseq` applyWrapper appl_1060 [appl_1080] appl_1059 `pseq` (appl_1081 `pseq` kl_do appl_1059 appl_1081) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1082 <- kl_V3336t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3336t kl_V3569) !appl_1083 <- appl_1082 `pseq` applyWrapper appl_1036 [appl_1082] !appl_1084 <- appl_1083 `pseq` applyWrapper appl_1034 [appl_1083] appl_1033 `pseq` (appl_1084 `pseq` kl_do appl_1033 appl_1084)))) !appl_1085 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_1085 `pseq` applyWrapper appl_1029 [appl_1085] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3338 of !(kl_V3338@(Cons (!kl_V3338h) (!kl_V3338t))) -> pat_cond_682 kl_V3338 kl_V3338h kl_V3338t _ -> pat_cond_1027))) !appl_1086 <- kl_V3337t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3337t kl_V3569) appl_1086 `pseq` applyWrapper appl_681 [appl_1086]))) kl_V3337h `pseq` applyWrapper appl_680 [kl_V3337h] pat_cond_1087 = do do !kl_if_1088 <- kl_V3337 `pseq` kl_shen_pvarP kl_V3337 case kl_if_1088 of Atom (B (True)) -> do let !appl_1089 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1090 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_1091 = Atom Nil !appl_1092 <- kl_B `pseq` (appl_1091 `pseq` klCons kl_B appl_1091) !appl_1093 <- appl_1092 `pseq` klCons (ApplC (wrapNamed "*" multiply)) appl_1092 !appl_1094 <- kl_A `pseq` (appl_1093 `pseq` klCons kl_A appl_1093) !appl_1095 <- kl_V3337 `pseq` (appl_1094 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3337 appl_1094 kl_V3569)) let !appl_1096 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1097 <- kl_V3337 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3337 kl_V3569) appl_1097 `pseq` (kl_Result `pseq` kl_do appl_1097 kl_Result)))) let !appl_1098 = ApplC (Func "lambda" (Context (\(!kl_V3351) -> do let !appl_1099 = Atom Nil !kl_if_1100 <- appl_1099 `pseq` (kl_V3351 `pseq` eq appl_1099 kl_V3351) case kl_if_1100 of Atom (B (True)) -> do let !appl_1101 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1102 <- kl_shen_incinfs !appl_1103 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1104 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1105 = Atom Nil !appl_1106 <- appl_1104 `pseq` (appl_1105 `pseq` klCons appl_1104 appl_1105) !appl_1107 <- appl_1106 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1106 !appl_1108 <- appl_1103 `pseq` (appl_1107 `pseq` klCons appl_1103 appl_1107) !appl_1109 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1110 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_1111 = Atom Nil !appl_1112 <- appl_1110 `pseq` (appl_1111 `pseq` klCons appl_1110 appl_1111) !appl_1113 <- appl_1112 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1112 !appl_1114 <- appl_1109 `pseq` (appl_1113 `pseq` klCons appl_1109 appl_1113) !appl_1115 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1116 <- appl_1114 `pseq` (appl_1115 `pseq` klCons appl_1114 appl_1115) !appl_1117 <- appl_1108 `pseq` (appl_1116 `pseq` klCons appl_1108 appl_1116) !appl_1118 <- kl_V3568 `pseq` (appl_1117 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1117 kl_V3569 kl_V3570))) appl_1102 `pseq` (appl_1118 `pseq` kl_do appl_1102 appl_1118)))) kl_V3327t `pseq` applyWrapper appl_1101 [kl_V3327t] Atom (B (False)) -> do do !kl_if_1119 <- kl_V3351 `pseq` kl_shen_pvarP kl_V3351 case kl_if_1119 of Atom (B (True)) -> do let !appl_1120 = Atom Nil !appl_1121 <- kl_V3351 `pseq` (appl_1120 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3351 appl_1120 kl_V3569)) let !appl_1122 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1123 <- kl_V3351 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3351 kl_V3569) appl_1123 `pseq` (kl_Result `pseq` kl_do appl_1123 kl_Result)))) let !appl_1124 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1125 <- kl_shen_incinfs !appl_1126 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1127 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1128 = Atom Nil !appl_1129 <- appl_1127 `pseq` (appl_1128 `pseq` klCons appl_1127 appl_1128) !appl_1130 <- appl_1129 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1129 !appl_1131 <- appl_1126 `pseq` (appl_1130 `pseq` klCons appl_1126 appl_1130) !appl_1132 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1133 <- kl_B `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_B kl_V3569) let !appl_1134 = Atom Nil !appl_1135 <- appl_1133 `pseq` (appl_1134 `pseq` klCons appl_1133 appl_1134) !appl_1136 <- appl_1135 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1135 !appl_1137 <- appl_1132 `pseq` (appl_1136 `pseq` klCons appl_1132 appl_1136) !appl_1138 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1139 <- appl_1137 `pseq` (appl_1138 `pseq` klCons appl_1137 appl_1138) !appl_1140 <- appl_1131 `pseq` (appl_1139 `pseq` klCons appl_1131 appl_1139) !appl_1141 <- kl_V3568 `pseq` (appl_1140 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1140 kl_V3569 kl_V3570))) appl_1125 `pseq` (appl_1141 `pseq` kl_do appl_1125 appl_1141)))) !appl_1142 <- kl_V3327t `pseq` applyWrapper appl_1124 [kl_V3327t] !appl_1143 <- appl_1142 `pseq` applyWrapper appl_1122 [appl_1142] appl_1121 `pseq` (appl_1143 `pseq` kl_do appl_1121 appl_1143) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1144 <- kl_V3336t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3336t kl_V3569) !appl_1145 <- appl_1144 `pseq` applyWrapper appl_1098 [appl_1144] !appl_1146 <- appl_1145 `pseq` applyWrapper appl_1096 [appl_1145] appl_1095 `pseq` (appl_1146 `pseq` kl_do appl_1095 appl_1146)))) !appl_1147 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_1147 `pseq` applyWrapper appl_1090 [appl_1147]))) !appl_1148 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_1148 `pseq` applyWrapper appl_1089 [appl_1148] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3337 of !(kl_V3337@(Cons (!kl_V3337h) (!kl_V3337t))) -> pat_cond_679 kl_V3337 kl_V3337h kl_V3337t _ -> pat_cond_1087))) !appl_1149 <- kl_V3336h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3336h kl_V3569) appl_1149 `pseq` applyWrapper appl_678 [appl_1149] pat_cond_1150 = do do return (Atom (B False)) in case kl_V3336 of !(kl_V3336@(Cons (!kl_V3336h) (!kl_V3336t))) -> pat_cond_677 kl_V3336 kl_V3336h kl_V3336t _ -> pat_cond_1150))) !appl_1151 <- kl_V3334t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3334t kl_V3569) appl_1151 `pseq` applyWrapper appl_676 [appl_1151] pat_cond_1152 = do do return (Atom (B False)) in case kl_V3335 of kl_V3335@(Atom (UnboundSym ":")) -> pat_cond_675 kl_V3335@(ApplC (PL ":" _)) -> pat_cond_675 kl_V3335@(ApplC (Func ":" _)) -> pat_cond_675 _ -> pat_cond_1152))) !appl_1153 <- kl_V3334h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3334h kl_V3569) appl_1153 `pseq` applyWrapper appl_674 [appl_1153] pat_cond_1154 = do do return (Atom (B False)) in case kl_V3334 of !(kl_V3334@(Cons (!kl_V3334h) (!kl_V3334t))) -> pat_cond_673 kl_V3334 kl_V3334h kl_V3334t _ -> pat_cond_1154))) !appl_1155 <- kl_V3328t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3328t kl_V3569) appl_1155 `pseq` applyWrapper appl_672 [appl_1155] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_1156 <- kl_V3332t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3332t kl_V3569) appl_1156 `pseq` applyWrapper appl_669 [appl_1156]))) kl_V3332h `pseq` applyWrapper appl_668 [kl_V3332h] pat_cond_1157 = do do return (Atom (B False)) in case kl_V3332 of !(kl_V3332@(Cons (!kl_V3332h) (!kl_V3332t))) -> pat_cond_667 kl_V3332 kl_V3332h kl_V3332t _ -> pat_cond_1157))) !appl_1158 <- kl_V3331t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3331t kl_V3569) appl_1158 `pseq` applyWrapper appl_666 [appl_1158]))) kl_V3331h `pseq` applyWrapper appl_665 [kl_V3331h] pat_cond_1159 = do do return (Atom (B False)) in case kl_V3331 of !(kl_V3331@(Cons (!kl_V3331h) (!kl_V3331t))) -> pat_cond_664 kl_V3331 kl_V3331h kl_V3331t _ -> pat_cond_1159))) !appl_1160 <- kl_V3329t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3329t kl_V3569) appl_1160 `pseq` applyWrapper appl_663 [appl_1160] pat_cond_1161 = do do return (Atom (B False)) in case kl_V3330 of kl_V3330@(Atom (UnboundSym "@p")) -> pat_cond_662 kl_V3330@(ApplC (PL "@p" _)) -> pat_cond_662 kl_V3330@(ApplC (Func "@p" _)) -> pat_cond_662 _ -> pat_cond_1161))) !appl_1162 <- kl_V3329h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3329h kl_V3569) appl_1162 `pseq` applyWrapper appl_661 [appl_1162] pat_cond_1163 = do do return (Atom (B False)) in case kl_V3329 of !(kl_V3329@(Cons (!kl_V3329h) (!kl_V3329t))) -> pat_cond_660 kl_V3329 kl_V3329h kl_V3329t _ -> pat_cond_1163))) !appl_1164 <- kl_V3328h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3328h kl_V3569) appl_1164 `pseq` applyWrapper appl_659 [appl_1164] pat_cond_1165 = do do return (Atom (B False)) in case kl_V3328 of !(kl_V3328@(Cons (!kl_V3328h) (!kl_V3328t))) -> pat_cond_658 kl_V3328 kl_V3328h kl_V3328t _ -> pat_cond_1165))) !appl_1166 <- kl_V3327h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3327h kl_V3569) appl_1166 `pseq` applyWrapper appl_657 [appl_1166] pat_cond_1167 = do do return (Atom (B False)) in case kl_V3327 of !(kl_V3327@(Cons (!kl_V3327h) (!kl_V3327t))) -> pat_cond_656 kl_V3327 kl_V3327h kl_V3327t _ -> pat_cond_1167))) !appl_1168 <- kl_V3567 `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3567 kl_V3569) !appl_1169 <- appl_1168 `pseq` applyWrapper appl_655 [appl_1168] appl_1169 `pseq` applyWrapper appl_2 [appl_1169] pat_cond_1170 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_1 kl_Case@(Atom (B (False))) -> pat_cond_1 _ -> pat_cond_1170))) let !appl_1171 = ApplC (Func "lambda" (Context (\(!kl_V3304) -> do let pat_cond_1172 kl_V3304 kl_V3304h kl_V3304t = do let !appl_1173 = ApplC (Func "lambda" (Context (\(!kl_V3305) -> do let pat_cond_1174 kl_V3305 kl_V3305h kl_V3305t = do let !appl_1175 = ApplC (Func "lambda" (Context (\(!kl_V3306) -> do let pat_cond_1176 kl_V3306 kl_V3306h kl_V3306t = do let !appl_1177 = ApplC (Func "lambda" (Context (\(!kl_V3307) -> do let pat_cond_1178 = do let !appl_1179 = ApplC (Func "lambda" (Context (\(!kl_V3308) -> do let pat_cond_1180 kl_V3308 kl_V3308h kl_V3308t = do let !appl_1181 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_1182 = ApplC (Func "lambda" (Context (\(!kl_V3309) -> do let pat_cond_1183 kl_V3309 kl_V3309h kl_V3309t = do let !appl_1184 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_1185 = ApplC (Func "lambda" (Context (\(!kl_V3310) -> do let !appl_1186 = Atom Nil !kl_if_1187 <- appl_1186 `pseq` (kl_V3310 `pseq` eq appl_1186 kl_V3310) case kl_if_1187 of Atom (B (True)) -> do let !appl_1188 = ApplC (Func "lambda" (Context (\(!kl_V3311) -> do let pat_cond_1189 kl_V3311 kl_V3311h kl_V3311t = do let !appl_1190 = ApplC (Func "lambda" (Context (\(!kl_V3312) -> do let pat_cond_1191 = do let !appl_1192 = ApplC (Func "lambda" (Context (\(!kl_V3313) -> do let pat_cond_1193 kl_V3313 kl_V3313h kl_V3313t = do let !appl_1194 = ApplC (Func "lambda" (Context (\(!kl_V3314) -> do let pat_cond_1195 kl_V3314 kl_V3314h kl_V3314t = do let !appl_1196 = ApplC (Func "lambda" (Context (\(!kl_V3315) -> do let pat_cond_1197 = do let !appl_1198 = ApplC (Func "lambda" (Context (\(!kl_V3316) -> do let pat_cond_1199 kl_V3316 kl_V3316h kl_V3316t = do let !appl_1200 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1201 = ApplC (Func "lambda" (Context (\(!kl_V3317) -> do let !appl_1202 = Atom Nil !kl_if_1203 <- appl_1202 `pseq` (kl_V3317 `pseq` eq appl_1202 kl_V3317) case kl_if_1203 of Atom (B (True)) -> do let !appl_1204 = ApplC (Func "lambda" (Context (\(!kl_V3318) -> do let !appl_1205 = Atom Nil !kl_if_1206 <- appl_1205 `pseq` (kl_V3318 `pseq` eq appl_1205 kl_V3318) case kl_if_1206 of Atom (B (True)) -> do let !appl_1207 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1208 <- kl_shen_incinfs !appl_1209 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1210 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1211 = Atom Nil !appl_1212 <- appl_1210 `pseq` (appl_1211 `pseq` klCons appl_1210 appl_1211) !appl_1213 <- appl_1212 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1212 !appl_1214 <- appl_1209 `pseq` (appl_1213 `pseq` klCons appl_1209 appl_1213) !appl_1215 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1216 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1217 = Atom Nil !appl_1218 <- appl_1216 `pseq` (appl_1217 `pseq` klCons appl_1216 appl_1217) !appl_1219 <- appl_1218 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1218 let !appl_1220 = Atom Nil !appl_1221 <- appl_1219 `pseq` (appl_1220 `pseq` klCons appl_1219 appl_1220) !appl_1222 <- appl_1221 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1221 !appl_1223 <- appl_1215 `pseq` (appl_1222 `pseq` klCons appl_1215 appl_1222) !appl_1224 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1225 <- appl_1223 `pseq` (appl_1224 `pseq` klCons appl_1223 appl_1224) !appl_1226 <- appl_1214 `pseq` (appl_1225 `pseq` klCons appl_1214 appl_1225) !appl_1227 <- kl_V3568 `pseq` (appl_1226 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1226 kl_V3569 kl_V3570))) appl_1208 `pseq` (appl_1227 `pseq` kl_do appl_1208 appl_1227)))) kl_V3304t `pseq` applyWrapper appl_1207 [kl_V3304t] Atom (B (False)) -> do do !kl_if_1228 <- kl_V3318 `pseq` kl_shen_pvarP kl_V3318 case kl_if_1228 of Atom (B (True)) -> do let !appl_1229 = Atom Nil !appl_1230 <- kl_V3318 `pseq` (appl_1229 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3318 appl_1229 kl_V3569)) let !appl_1231 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1232 <- kl_V3318 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3318 kl_V3569) appl_1232 `pseq` (kl_Result `pseq` kl_do appl_1232 kl_Result)))) let !appl_1233 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1234 <- kl_shen_incinfs !appl_1235 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1236 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1237 = Atom Nil !appl_1238 <- appl_1236 `pseq` (appl_1237 `pseq` klCons appl_1236 appl_1237) !appl_1239 <- appl_1238 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1238 !appl_1240 <- appl_1235 `pseq` (appl_1239 `pseq` klCons appl_1235 appl_1239) !appl_1241 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1242 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1243 = Atom Nil !appl_1244 <- appl_1242 `pseq` (appl_1243 `pseq` klCons appl_1242 appl_1243) !appl_1245 <- appl_1244 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1244 let !appl_1246 = Atom Nil !appl_1247 <- appl_1245 `pseq` (appl_1246 `pseq` klCons appl_1245 appl_1246) !appl_1248 <- appl_1247 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1247 !appl_1249 <- appl_1241 `pseq` (appl_1248 `pseq` klCons appl_1241 appl_1248) !appl_1250 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1251 <- appl_1249 `pseq` (appl_1250 `pseq` klCons appl_1249 appl_1250) !appl_1252 <- appl_1240 `pseq` (appl_1251 `pseq` klCons appl_1240 appl_1251) !appl_1253 <- kl_V3568 `pseq` (appl_1252 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1252 kl_V3569 kl_V3570))) appl_1234 `pseq` (appl_1253 `pseq` kl_do appl_1234 appl_1253)))) !appl_1254 <- kl_V3304t `pseq` applyWrapper appl_1233 [kl_V3304t] !appl_1255 <- appl_1254 `pseq` applyWrapper appl_1231 [appl_1254] appl_1230 `pseq` (appl_1255 `pseq` kl_do appl_1230 appl_1255) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1256 <- kl_V3313t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3313t kl_V3569) appl_1256 `pseq` applyWrapper appl_1204 [appl_1256] Atom (B (False)) -> do do !kl_if_1257 <- kl_V3317 `pseq` kl_shen_pvarP kl_V3317 case kl_if_1257 of Atom (B (True)) -> do let !appl_1258 = Atom Nil !appl_1259 <- kl_V3317 `pseq` (appl_1258 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3317 appl_1258 kl_V3569)) let !appl_1260 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1261 <- kl_V3317 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3317 kl_V3569) appl_1261 `pseq` (kl_Result `pseq` kl_do appl_1261 kl_Result)))) let !appl_1262 = ApplC (Func "lambda" (Context (\(!kl_V3319) -> do let !appl_1263 = Atom Nil !kl_if_1264 <- appl_1263 `pseq` (kl_V3319 `pseq` eq appl_1263 kl_V3319) case kl_if_1264 of Atom (B (True)) -> do let !appl_1265 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1266 <- kl_shen_incinfs !appl_1267 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1268 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1269 = Atom Nil !appl_1270 <- appl_1268 `pseq` (appl_1269 `pseq` klCons appl_1268 appl_1269) !appl_1271 <- appl_1270 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1270 !appl_1272 <- appl_1267 `pseq` (appl_1271 `pseq` klCons appl_1267 appl_1271) !appl_1273 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1274 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1275 = Atom Nil !appl_1276 <- appl_1274 `pseq` (appl_1275 `pseq` klCons appl_1274 appl_1275) !appl_1277 <- appl_1276 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1276 let !appl_1278 = Atom Nil !appl_1279 <- appl_1277 `pseq` (appl_1278 `pseq` klCons appl_1277 appl_1278) !appl_1280 <- appl_1279 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1279 !appl_1281 <- appl_1273 `pseq` (appl_1280 `pseq` klCons appl_1273 appl_1280) !appl_1282 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1283 <- appl_1281 `pseq` (appl_1282 `pseq` klCons appl_1281 appl_1282) !appl_1284 <- appl_1272 `pseq` (appl_1283 `pseq` klCons appl_1272 appl_1283) !appl_1285 <- kl_V3568 `pseq` (appl_1284 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1284 kl_V3569 kl_V3570))) appl_1266 `pseq` (appl_1285 `pseq` kl_do appl_1266 appl_1285)))) kl_V3304t `pseq` applyWrapper appl_1265 [kl_V3304t] Atom (B (False)) -> do do !kl_if_1286 <- kl_V3319 `pseq` kl_shen_pvarP kl_V3319 case kl_if_1286 of Atom (B (True)) -> do let !appl_1287 = Atom Nil !appl_1288 <- kl_V3319 `pseq` (appl_1287 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3319 appl_1287 kl_V3569)) let !appl_1289 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1290 <- kl_V3319 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3319 kl_V3569) appl_1290 `pseq` (kl_Result `pseq` kl_do appl_1290 kl_Result)))) let !appl_1291 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1292 <- kl_shen_incinfs !appl_1293 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1294 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1295 = Atom Nil !appl_1296 <- appl_1294 `pseq` (appl_1295 `pseq` klCons appl_1294 appl_1295) !appl_1297 <- appl_1296 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1296 !appl_1298 <- appl_1293 `pseq` (appl_1297 `pseq` klCons appl_1293 appl_1297) !appl_1299 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1300 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1301 = Atom Nil !appl_1302 <- appl_1300 `pseq` (appl_1301 `pseq` klCons appl_1300 appl_1301) !appl_1303 <- appl_1302 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1302 let !appl_1304 = Atom Nil !appl_1305 <- appl_1303 `pseq` (appl_1304 `pseq` klCons appl_1303 appl_1304) !appl_1306 <- appl_1305 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1305 !appl_1307 <- appl_1299 `pseq` (appl_1306 `pseq` klCons appl_1299 appl_1306) !appl_1308 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1309 <- appl_1307 `pseq` (appl_1308 `pseq` klCons appl_1307 appl_1308) !appl_1310 <- appl_1298 `pseq` (appl_1309 `pseq` klCons appl_1298 appl_1309) !appl_1311 <- kl_V3568 `pseq` (appl_1310 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1310 kl_V3569 kl_V3570))) appl_1292 `pseq` (appl_1311 `pseq` kl_do appl_1292 appl_1311)))) !appl_1312 <- kl_V3304t `pseq` applyWrapper appl_1291 [kl_V3304t] !appl_1313 <- appl_1312 `pseq` applyWrapper appl_1289 [appl_1312] appl_1288 `pseq` (appl_1313 `pseq` kl_do appl_1288 appl_1313) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1314 <- kl_V3313t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3313t kl_V3569) !appl_1315 <- appl_1314 `pseq` applyWrapper appl_1262 [appl_1314] !appl_1316 <- appl_1315 `pseq` applyWrapper appl_1260 [appl_1315] appl_1259 `pseq` (appl_1316 `pseq` kl_do appl_1259 appl_1316) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1317 <- kl_V3316t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3316t kl_V3569) appl_1317 `pseq` applyWrapper appl_1201 [appl_1317]))) kl_V3316h `pseq` applyWrapper appl_1200 [kl_V3316h] pat_cond_1318 = do do !kl_if_1319 <- kl_V3316 `pseq` kl_shen_pvarP kl_V3316 case kl_if_1319 of Atom (B (True)) -> do let !appl_1320 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1321 = Atom Nil !appl_1322 <- kl_A `pseq` (appl_1321 `pseq` klCons kl_A appl_1321) !appl_1323 <- kl_V3316 `pseq` (appl_1322 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3316 appl_1322 kl_V3569)) let !appl_1324 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1325 <- kl_V3316 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3316 kl_V3569) appl_1325 `pseq` (kl_Result `pseq` kl_do appl_1325 kl_Result)))) let !appl_1326 = ApplC (Func "lambda" (Context (\(!kl_V3320) -> do let !appl_1327 = Atom Nil !kl_if_1328 <- appl_1327 `pseq` (kl_V3320 `pseq` eq appl_1327 kl_V3320) case kl_if_1328 of Atom (B (True)) -> do let !appl_1329 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1330 <- kl_shen_incinfs !appl_1331 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1332 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1333 = Atom Nil !appl_1334 <- appl_1332 `pseq` (appl_1333 `pseq` klCons appl_1332 appl_1333) !appl_1335 <- appl_1334 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1334 !appl_1336 <- appl_1331 `pseq` (appl_1335 `pseq` klCons appl_1331 appl_1335) !appl_1337 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1338 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1339 = Atom Nil !appl_1340 <- appl_1338 `pseq` (appl_1339 `pseq` klCons appl_1338 appl_1339) !appl_1341 <- appl_1340 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1340 let !appl_1342 = Atom Nil !appl_1343 <- appl_1341 `pseq` (appl_1342 `pseq` klCons appl_1341 appl_1342) !appl_1344 <- appl_1343 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1343 !appl_1345 <- appl_1337 `pseq` (appl_1344 `pseq` klCons appl_1337 appl_1344) !appl_1346 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1347 <- appl_1345 `pseq` (appl_1346 `pseq` klCons appl_1345 appl_1346) !appl_1348 <- appl_1336 `pseq` (appl_1347 `pseq` klCons appl_1336 appl_1347) !appl_1349 <- kl_V3568 `pseq` (appl_1348 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1348 kl_V3569 kl_V3570))) appl_1330 `pseq` (appl_1349 `pseq` kl_do appl_1330 appl_1349)))) kl_V3304t `pseq` applyWrapper appl_1329 [kl_V3304t] Atom (B (False)) -> do do !kl_if_1350 <- kl_V3320 `pseq` kl_shen_pvarP kl_V3320 case kl_if_1350 of Atom (B (True)) -> do let !appl_1351 = Atom Nil !appl_1352 <- kl_V3320 `pseq` (appl_1351 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3320 appl_1351 kl_V3569)) let !appl_1353 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1354 <- kl_V3320 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3320 kl_V3569) appl_1354 `pseq` (kl_Result `pseq` kl_do appl_1354 kl_Result)))) let !appl_1355 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1356 <- kl_shen_incinfs !appl_1357 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1358 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1359 = Atom Nil !appl_1360 <- appl_1358 `pseq` (appl_1359 `pseq` klCons appl_1358 appl_1359) !appl_1361 <- appl_1360 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1360 !appl_1362 <- appl_1357 `pseq` (appl_1361 `pseq` klCons appl_1357 appl_1361) !appl_1363 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1364 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1365 = Atom Nil !appl_1366 <- appl_1364 `pseq` (appl_1365 `pseq` klCons appl_1364 appl_1365) !appl_1367 <- appl_1366 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1366 let !appl_1368 = Atom Nil !appl_1369 <- appl_1367 `pseq` (appl_1368 `pseq` klCons appl_1367 appl_1368) !appl_1370 <- appl_1369 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1369 !appl_1371 <- appl_1363 `pseq` (appl_1370 `pseq` klCons appl_1363 appl_1370) !appl_1372 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1373 <- appl_1371 `pseq` (appl_1372 `pseq` klCons appl_1371 appl_1372) !appl_1374 <- appl_1362 `pseq` (appl_1373 `pseq` klCons appl_1362 appl_1373) !appl_1375 <- kl_V3568 `pseq` (appl_1374 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1374 kl_V3569 kl_V3570))) appl_1356 `pseq` (appl_1375 `pseq` kl_do appl_1356 appl_1375)))) !appl_1376 <- kl_V3304t `pseq` applyWrapper appl_1355 [kl_V3304t] !appl_1377 <- appl_1376 `pseq` applyWrapper appl_1353 [appl_1376] appl_1352 `pseq` (appl_1377 `pseq` kl_do appl_1352 appl_1377) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1378 <- kl_V3313t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3313t kl_V3569) !appl_1379 <- appl_1378 `pseq` applyWrapper appl_1326 [appl_1378] !appl_1380 <- appl_1379 `pseq` applyWrapper appl_1324 [appl_1379] appl_1323 `pseq` (appl_1380 `pseq` kl_do appl_1323 appl_1380)))) !appl_1381 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_1381 `pseq` applyWrapper appl_1320 [appl_1381] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3316 of !(kl_V3316@(Cons (!kl_V3316h) (!kl_V3316t))) -> pat_cond_1199 kl_V3316 kl_V3316h kl_V3316t _ -> pat_cond_1318))) !appl_1382 <- kl_V3314t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3314t kl_V3569) appl_1382 `pseq` applyWrapper appl_1198 [appl_1382] pat_cond_1383 = do do !kl_if_1384 <- kl_V3315 `pseq` kl_shen_pvarP kl_V3315 case kl_if_1384 of Atom (B (True)) -> do !appl_1385 <- kl_V3315 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3315 (Core.Types.Atom (Core.Types.UnboundSym "list")) kl_V3569) let !appl_1386 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1387 <- kl_V3315 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3315 kl_V3569) appl_1387 `pseq` (kl_Result `pseq` kl_do appl_1387 kl_Result)))) let !appl_1388 = ApplC (Func "lambda" (Context (\(!kl_V3321) -> do let pat_cond_1389 kl_V3321 kl_V3321h kl_V3321t = do let !appl_1390 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1391 = ApplC (Func "lambda" (Context (\(!kl_V3322) -> do let !appl_1392 = Atom Nil !kl_if_1393 <- appl_1392 `pseq` (kl_V3322 `pseq` eq appl_1392 kl_V3322) case kl_if_1393 of Atom (B (True)) -> do let !appl_1394 = ApplC (Func "lambda" (Context (\(!kl_V3323) -> do let !appl_1395 = Atom Nil !kl_if_1396 <- appl_1395 `pseq` (kl_V3323 `pseq` eq appl_1395 kl_V3323) case kl_if_1396 of Atom (B (True)) -> do let !appl_1397 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1398 <- kl_shen_incinfs !appl_1399 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1400 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1401 = Atom Nil !appl_1402 <- appl_1400 `pseq` (appl_1401 `pseq` klCons appl_1400 appl_1401) !appl_1403 <- appl_1402 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1402 !appl_1404 <- appl_1399 `pseq` (appl_1403 `pseq` klCons appl_1399 appl_1403) !appl_1405 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1406 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1407 = Atom Nil !appl_1408 <- appl_1406 `pseq` (appl_1407 `pseq` klCons appl_1406 appl_1407) !appl_1409 <- appl_1408 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1408 let !appl_1410 = Atom Nil !appl_1411 <- appl_1409 `pseq` (appl_1410 `pseq` klCons appl_1409 appl_1410) !appl_1412 <- appl_1411 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1411 !appl_1413 <- appl_1405 `pseq` (appl_1412 `pseq` klCons appl_1405 appl_1412) !appl_1414 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1415 <- appl_1413 `pseq` (appl_1414 `pseq` klCons appl_1413 appl_1414) !appl_1416 <- appl_1404 `pseq` (appl_1415 `pseq` klCons appl_1404 appl_1415) !appl_1417 <- kl_V3568 `pseq` (appl_1416 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1416 kl_V3569 kl_V3570))) appl_1398 `pseq` (appl_1417 `pseq` kl_do appl_1398 appl_1417)))) kl_V3304t `pseq` applyWrapper appl_1397 [kl_V3304t] Atom (B (False)) -> do do !kl_if_1418 <- kl_V3323 `pseq` kl_shen_pvarP kl_V3323 case kl_if_1418 of Atom (B (True)) -> do let !appl_1419 = Atom Nil !appl_1420 <- kl_V3323 `pseq` (appl_1419 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3323 appl_1419 kl_V3569)) let !appl_1421 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1422 <- kl_V3323 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3323 kl_V3569) appl_1422 `pseq` (kl_Result `pseq` kl_do appl_1422 kl_Result)))) let !appl_1423 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1424 <- kl_shen_incinfs !appl_1425 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1426 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1427 = Atom Nil !appl_1428 <- appl_1426 `pseq` (appl_1427 `pseq` klCons appl_1426 appl_1427) !appl_1429 <- appl_1428 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1428 !appl_1430 <- appl_1425 `pseq` (appl_1429 `pseq` klCons appl_1425 appl_1429) !appl_1431 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1432 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1433 = Atom Nil !appl_1434 <- appl_1432 `pseq` (appl_1433 `pseq` klCons appl_1432 appl_1433) !appl_1435 <- appl_1434 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1434 let !appl_1436 = Atom Nil !appl_1437 <- appl_1435 `pseq` (appl_1436 `pseq` klCons appl_1435 appl_1436) !appl_1438 <- appl_1437 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1437 !appl_1439 <- appl_1431 `pseq` (appl_1438 `pseq` klCons appl_1431 appl_1438) !appl_1440 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1441 <- appl_1439 `pseq` (appl_1440 `pseq` klCons appl_1439 appl_1440) !appl_1442 <- appl_1430 `pseq` (appl_1441 `pseq` klCons appl_1430 appl_1441) !appl_1443 <- kl_V3568 `pseq` (appl_1442 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1442 kl_V3569 kl_V3570))) appl_1424 `pseq` (appl_1443 `pseq` kl_do appl_1424 appl_1443)))) !appl_1444 <- kl_V3304t `pseq` applyWrapper appl_1423 [kl_V3304t] !appl_1445 <- appl_1444 `pseq` applyWrapper appl_1421 [appl_1444] appl_1420 `pseq` (appl_1445 `pseq` kl_do appl_1420 appl_1445) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1446 <- kl_V3313t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3313t kl_V3569) appl_1446 `pseq` applyWrapper appl_1394 [appl_1446] Atom (B (False)) -> do do !kl_if_1447 <- kl_V3322 `pseq` kl_shen_pvarP kl_V3322 case kl_if_1447 of Atom (B (True)) -> do let !appl_1448 = Atom Nil !appl_1449 <- kl_V3322 `pseq` (appl_1448 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3322 appl_1448 kl_V3569)) let !appl_1450 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1451 <- kl_V3322 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3322 kl_V3569) appl_1451 `pseq` (kl_Result `pseq` kl_do appl_1451 kl_Result)))) let !appl_1452 = ApplC (Func "lambda" (Context (\(!kl_V3324) -> do let !appl_1453 = Atom Nil !kl_if_1454 <- appl_1453 `pseq` (kl_V3324 `pseq` eq appl_1453 kl_V3324) case kl_if_1454 of Atom (B (True)) -> do let !appl_1455 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1456 <- kl_shen_incinfs !appl_1457 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1458 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1459 = Atom Nil !appl_1460 <- appl_1458 `pseq` (appl_1459 `pseq` klCons appl_1458 appl_1459) !appl_1461 <- appl_1460 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1460 !appl_1462 <- appl_1457 `pseq` (appl_1461 `pseq` klCons appl_1457 appl_1461) !appl_1463 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1464 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1465 = Atom Nil !appl_1466 <- appl_1464 `pseq` (appl_1465 `pseq` klCons appl_1464 appl_1465) !appl_1467 <- appl_1466 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1466 let !appl_1468 = Atom Nil !appl_1469 <- appl_1467 `pseq` (appl_1468 `pseq` klCons appl_1467 appl_1468) !appl_1470 <- appl_1469 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1469 !appl_1471 <- appl_1463 `pseq` (appl_1470 `pseq` klCons appl_1463 appl_1470) !appl_1472 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1473 <- appl_1471 `pseq` (appl_1472 `pseq` klCons appl_1471 appl_1472) !appl_1474 <- appl_1462 `pseq` (appl_1473 `pseq` klCons appl_1462 appl_1473) !appl_1475 <- kl_V3568 `pseq` (appl_1474 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1474 kl_V3569 kl_V3570))) appl_1456 `pseq` (appl_1475 `pseq` kl_do appl_1456 appl_1475)))) kl_V3304t `pseq` applyWrapper appl_1455 [kl_V3304t] Atom (B (False)) -> do do !kl_if_1476 <- kl_V3324 `pseq` kl_shen_pvarP kl_V3324 case kl_if_1476 of Atom (B (True)) -> do let !appl_1477 = Atom Nil !appl_1478 <- kl_V3324 `pseq` (appl_1477 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3324 appl_1477 kl_V3569)) let !appl_1479 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1480 <- kl_V3324 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3324 kl_V3569) appl_1480 `pseq` (kl_Result `pseq` kl_do appl_1480 kl_Result)))) let !appl_1481 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1482 <- kl_shen_incinfs !appl_1483 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1484 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1485 = Atom Nil !appl_1486 <- appl_1484 `pseq` (appl_1485 `pseq` klCons appl_1484 appl_1485) !appl_1487 <- appl_1486 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1486 !appl_1488 <- appl_1483 `pseq` (appl_1487 `pseq` klCons appl_1483 appl_1487) !appl_1489 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1490 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1491 = Atom Nil !appl_1492 <- appl_1490 `pseq` (appl_1491 `pseq` klCons appl_1490 appl_1491) !appl_1493 <- appl_1492 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1492 let !appl_1494 = Atom Nil !appl_1495 <- appl_1493 `pseq` (appl_1494 `pseq` klCons appl_1493 appl_1494) !appl_1496 <- appl_1495 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1495 !appl_1497 <- appl_1489 `pseq` (appl_1496 `pseq` klCons appl_1489 appl_1496) !appl_1498 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1499 <- appl_1497 `pseq` (appl_1498 `pseq` klCons appl_1497 appl_1498) !appl_1500 <- appl_1488 `pseq` (appl_1499 `pseq` klCons appl_1488 appl_1499) !appl_1501 <- kl_V3568 `pseq` (appl_1500 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1500 kl_V3569 kl_V3570))) appl_1482 `pseq` (appl_1501 `pseq` kl_do appl_1482 appl_1501)))) !appl_1502 <- kl_V3304t `pseq` applyWrapper appl_1481 [kl_V3304t] !appl_1503 <- appl_1502 `pseq` applyWrapper appl_1479 [appl_1502] appl_1478 `pseq` (appl_1503 `pseq` kl_do appl_1478 appl_1503) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1504 <- kl_V3313t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3313t kl_V3569) !appl_1505 <- appl_1504 `pseq` applyWrapper appl_1452 [appl_1504] !appl_1506 <- appl_1505 `pseq` applyWrapper appl_1450 [appl_1505] appl_1449 `pseq` (appl_1506 `pseq` kl_do appl_1449 appl_1506) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1507 <- kl_V3321t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3321t kl_V3569) appl_1507 `pseq` applyWrapper appl_1391 [appl_1507]))) kl_V3321h `pseq` applyWrapper appl_1390 [kl_V3321h] pat_cond_1508 = do do !kl_if_1509 <- kl_V3321 `pseq` kl_shen_pvarP kl_V3321 case kl_if_1509 of Atom (B (True)) -> do let !appl_1510 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1511 = Atom Nil !appl_1512 <- kl_A `pseq` (appl_1511 `pseq` klCons kl_A appl_1511) !appl_1513 <- kl_V3321 `pseq` (appl_1512 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3321 appl_1512 kl_V3569)) let !appl_1514 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1515 <- kl_V3321 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3321 kl_V3569) appl_1515 `pseq` (kl_Result `pseq` kl_do appl_1515 kl_Result)))) let !appl_1516 = ApplC (Func "lambda" (Context (\(!kl_V3325) -> do let !appl_1517 = Atom Nil !kl_if_1518 <- appl_1517 `pseq` (kl_V3325 `pseq` eq appl_1517 kl_V3325) case kl_if_1518 of Atom (B (True)) -> do let !appl_1519 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1520 <- kl_shen_incinfs !appl_1521 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1522 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1523 = Atom Nil !appl_1524 <- appl_1522 `pseq` (appl_1523 `pseq` klCons appl_1522 appl_1523) !appl_1525 <- appl_1524 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1524 !appl_1526 <- appl_1521 `pseq` (appl_1525 `pseq` klCons appl_1521 appl_1525) !appl_1527 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1528 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1529 = Atom Nil !appl_1530 <- appl_1528 `pseq` (appl_1529 `pseq` klCons appl_1528 appl_1529) !appl_1531 <- appl_1530 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1530 let !appl_1532 = Atom Nil !appl_1533 <- appl_1531 `pseq` (appl_1532 `pseq` klCons appl_1531 appl_1532) !appl_1534 <- appl_1533 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1533 !appl_1535 <- appl_1527 `pseq` (appl_1534 `pseq` klCons appl_1527 appl_1534) !appl_1536 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1537 <- appl_1535 `pseq` (appl_1536 `pseq` klCons appl_1535 appl_1536) !appl_1538 <- appl_1526 `pseq` (appl_1537 `pseq` klCons appl_1526 appl_1537) !appl_1539 <- kl_V3568 `pseq` (appl_1538 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1538 kl_V3569 kl_V3570))) appl_1520 `pseq` (appl_1539 `pseq` kl_do appl_1520 appl_1539)))) kl_V3304t `pseq` applyWrapper appl_1519 [kl_V3304t] Atom (B (False)) -> do do !kl_if_1540 <- kl_V3325 `pseq` kl_shen_pvarP kl_V3325 case kl_if_1540 of Atom (B (True)) -> do let !appl_1541 = Atom Nil !appl_1542 <- kl_V3325 `pseq` (appl_1541 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3325 appl_1541 kl_V3569)) let !appl_1543 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1544 <- kl_V3325 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3325 kl_V3569) appl_1544 `pseq` (kl_Result `pseq` kl_do appl_1544 kl_Result)))) let !appl_1545 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1546 <- kl_shen_incinfs !appl_1547 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1548 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1549 = Atom Nil !appl_1550 <- appl_1548 `pseq` (appl_1549 `pseq` klCons appl_1548 appl_1549) !appl_1551 <- appl_1550 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1550 !appl_1552 <- appl_1547 `pseq` (appl_1551 `pseq` klCons appl_1547 appl_1551) !appl_1553 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1554 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1555 = Atom Nil !appl_1556 <- appl_1554 `pseq` (appl_1555 `pseq` klCons appl_1554 appl_1555) !appl_1557 <- appl_1556 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1556 let !appl_1558 = Atom Nil !appl_1559 <- appl_1557 `pseq` (appl_1558 `pseq` klCons appl_1557 appl_1558) !appl_1560 <- appl_1559 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1559 !appl_1561 <- appl_1553 `pseq` (appl_1560 `pseq` klCons appl_1553 appl_1560) !appl_1562 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1563 <- appl_1561 `pseq` (appl_1562 `pseq` klCons appl_1561 appl_1562) !appl_1564 <- appl_1552 `pseq` (appl_1563 `pseq` klCons appl_1552 appl_1563) !appl_1565 <- kl_V3568 `pseq` (appl_1564 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1564 kl_V3569 kl_V3570))) appl_1546 `pseq` (appl_1565 `pseq` kl_do appl_1546 appl_1565)))) !appl_1566 <- kl_V3304t `pseq` applyWrapper appl_1545 [kl_V3304t] !appl_1567 <- appl_1566 `pseq` applyWrapper appl_1543 [appl_1566] appl_1542 `pseq` (appl_1567 `pseq` kl_do appl_1542 appl_1567) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1568 <- kl_V3313t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3313t kl_V3569) !appl_1569 <- appl_1568 `pseq` applyWrapper appl_1516 [appl_1568] !appl_1570 <- appl_1569 `pseq` applyWrapper appl_1514 [appl_1569] appl_1513 `pseq` (appl_1570 `pseq` kl_do appl_1513 appl_1570)))) !appl_1571 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_1571 `pseq` applyWrapper appl_1510 [appl_1571] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3321 of !(kl_V3321@(Cons (!kl_V3321h) (!kl_V3321t))) -> pat_cond_1389 kl_V3321 kl_V3321h kl_V3321t _ -> pat_cond_1508))) !appl_1572 <- kl_V3314t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3314t kl_V3569) !appl_1573 <- appl_1572 `pseq` applyWrapper appl_1388 [appl_1572] !appl_1574 <- appl_1573 `pseq` applyWrapper appl_1386 [appl_1573] appl_1385 `pseq` (appl_1574 `pseq` kl_do appl_1385 appl_1574) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3315 of kl_V3315@(Atom (UnboundSym "list")) -> pat_cond_1197 kl_V3315@(ApplC (PL "list" _)) -> pat_cond_1197 kl_V3315@(ApplC (Func "list" _)) -> pat_cond_1197 _ -> pat_cond_1383))) !appl_1575 <- kl_V3314h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3314h kl_V3569) appl_1575 `pseq` applyWrapper appl_1196 [appl_1575] pat_cond_1576 = do do !kl_if_1577 <- kl_V3314 `pseq` kl_shen_pvarP kl_V3314 case kl_if_1577 of Atom (B (True)) -> do let !appl_1578 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1579 = Atom Nil !appl_1580 <- kl_A `pseq` (appl_1579 `pseq` klCons kl_A appl_1579) !appl_1581 <- appl_1580 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1580 !appl_1582 <- kl_V3314 `pseq` (appl_1581 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3314 appl_1581 kl_V3569)) let !appl_1583 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1584 <- kl_V3314 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3314 kl_V3569) appl_1584 `pseq` (kl_Result `pseq` kl_do appl_1584 kl_Result)))) let !appl_1585 = ApplC (Func "lambda" (Context (\(!kl_V3326) -> do let !appl_1586 = Atom Nil !kl_if_1587 <- appl_1586 `pseq` (kl_V3326 `pseq` eq appl_1586 kl_V3326) case kl_if_1587 of Atom (B (True)) -> do let !appl_1588 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1589 <- kl_shen_incinfs !appl_1590 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1591 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1592 = Atom Nil !appl_1593 <- appl_1591 `pseq` (appl_1592 `pseq` klCons appl_1591 appl_1592) !appl_1594 <- appl_1593 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1593 !appl_1595 <- appl_1590 `pseq` (appl_1594 `pseq` klCons appl_1590 appl_1594) !appl_1596 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1597 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1598 = Atom Nil !appl_1599 <- appl_1597 `pseq` (appl_1598 `pseq` klCons appl_1597 appl_1598) !appl_1600 <- appl_1599 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1599 let !appl_1601 = Atom Nil !appl_1602 <- appl_1600 `pseq` (appl_1601 `pseq` klCons appl_1600 appl_1601) !appl_1603 <- appl_1602 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1602 !appl_1604 <- appl_1596 `pseq` (appl_1603 `pseq` klCons appl_1596 appl_1603) !appl_1605 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1606 <- appl_1604 `pseq` (appl_1605 `pseq` klCons appl_1604 appl_1605) !appl_1607 <- appl_1595 `pseq` (appl_1606 `pseq` klCons appl_1595 appl_1606) !appl_1608 <- kl_V3568 `pseq` (appl_1607 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1607 kl_V3569 kl_V3570))) appl_1589 `pseq` (appl_1608 `pseq` kl_do appl_1589 appl_1608)))) kl_V3304t `pseq` applyWrapper appl_1588 [kl_V3304t] Atom (B (False)) -> do do !kl_if_1609 <- kl_V3326 `pseq` kl_shen_pvarP kl_V3326 case kl_if_1609 of Atom (B (True)) -> do let !appl_1610 = Atom Nil !appl_1611 <- kl_V3326 `pseq` (appl_1610 `pseq` (kl_V3569 `pseq` kl_shen_bindv kl_V3326 appl_1610 kl_V3569)) let !appl_1612 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1613 <- kl_V3326 `pseq` (kl_V3569 `pseq` kl_shen_unbindv kl_V3326 kl_V3569) appl_1613 `pseq` (kl_Result `pseq` kl_do appl_1613 kl_Result)))) let !appl_1614 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1615 <- kl_shen_incinfs !appl_1616 <- kl_X `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_X kl_V3569) !appl_1617 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1618 = Atom Nil !appl_1619 <- appl_1617 `pseq` (appl_1618 `pseq` klCons appl_1617 appl_1618) !appl_1620 <- appl_1619 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1619 !appl_1621 <- appl_1616 `pseq` (appl_1620 `pseq` klCons appl_1616 appl_1620) !appl_1622 <- kl_Y `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Y kl_V3569) !appl_1623 <- kl_A `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_A kl_V3569) let !appl_1624 = Atom Nil !appl_1625 <- appl_1623 `pseq` (appl_1624 `pseq` klCons appl_1623 appl_1624) !appl_1626 <- appl_1625 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_1625 let !appl_1627 = Atom Nil !appl_1628 <- appl_1626 `pseq` (appl_1627 `pseq` klCons appl_1626 appl_1627) !appl_1629 <- appl_1628 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_1628 !appl_1630 <- appl_1622 `pseq` (appl_1629 `pseq` klCons appl_1622 appl_1629) !appl_1631 <- kl_Hyp `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_Hyp kl_V3569) !appl_1632 <- appl_1630 `pseq` (appl_1631 `pseq` klCons appl_1630 appl_1631) !appl_1633 <- appl_1621 `pseq` (appl_1632 `pseq` klCons appl_1621 appl_1632) !appl_1634 <- kl_V3568 `pseq` (appl_1633 `pseq` (kl_V3569 `pseq` (kl_V3570 `pseq` kl_bind kl_V3568 appl_1633 kl_V3569 kl_V3570))) appl_1615 `pseq` (appl_1634 `pseq` kl_do appl_1615 appl_1634)))) !appl_1635 <- kl_V3304t `pseq` applyWrapper appl_1614 [kl_V3304t] !appl_1636 <- appl_1635 `pseq` applyWrapper appl_1612 [appl_1635] appl_1611 `pseq` (appl_1636 `pseq` kl_do appl_1611 appl_1636) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_1637 <- kl_V3313t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3313t kl_V3569) !appl_1638 <- appl_1637 `pseq` applyWrapper appl_1585 [appl_1637] !appl_1639 <- appl_1638 `pseq` applyWrapper appl_1583 [appl_1638] appl_1582 `pseq` (appl_1639 `pseq` kl_do appl_1582 appl_1639)))) !appl_1640 <- kl_V3569 `pseq` kl_shen_newpv kl_V3569 appl_1640 `pseq` applyWrapper appl_1578 [appl_1640] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3314 of !(kl_V3314@(Cons (!kl_V3314h) (!kl_V3314t))) -> pat_cond_1195 kl_V3314 kl_V3314h kl_V3314t _ -> pat_cond_1576))) !appl_1641 <- kl_V3313h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3313h kl_V3569) appl_1641 `pseq` applyWrapper appl_1194 [appl_1641] pat_cond_1642 = do do return (Atom (B False)) in case kl_V3313 of !(kl_V3313@(Cons (!kl_V3313h) (!kl_V3313t))) -> pat_cond_1193 kl_V3313 kl_V3313h kl_V3313t _ -> pat_cond_1642))) !appl_1643 <- kl_V3311t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3311t kl_V3569) appl_1643 `pseq` applyWrapper appl_1192 [appl_1643] pat_cond_1644 = do do return (Atom (B False)) in case kl_V3312 of kl_V3312@(Atom (UnboundSym ":")) -> pat_cond_1191 kl_V3312@(ApplC (PL ":" _)) -> pat_cond_1191 kl_V3312@(ApplC (Func ":" _)) -> pat_cond_1191 _ -> pat_cond_1644))) !appl_1645 <- kl_V3311h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3311h kl_V3569) appl_1645 `pseq` applyWrapper appl_1190 [appl_1645] pat_cond_1646 = do do return (Atom (B False)) in case kl_V3311 of !(kl_V3311@(Cons (!kl_V3311h) (!kl_V3311t))) -> pat_cond_1189 kl_V3311 kl_V3311h kl_V3311t _ -> pat_cond_1646))) !appl_1647 <- kl_V3305t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3305t kl_V3569) appl_1647 `pseq` applyWrapper appl_1188 [appl_1647] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_1648 <- kl_V3309t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3309t kl_V3569) appl_1648 `pseq` applyWrapper appl_1185 [appl_1648]))) kl_V3309h `pseq` applyWrapper appl_1184 [kl_V3309h] pat_cond_1649 = do do return (Atom (B False)) in case kl_V3309 of !(kl_V3309@(Cons (!kl_V3309h) (!kl_V3309t))) -> pat_cond_1183 kl_V3309 kl_V3309h kl_V3309t _ -> pat_cond_1649))) !appl_1650 <- kl_V3308t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3308t kl_V3569) appl_1650 `pseq` applyWrapper appl_1182 [appl_1650]))) kl_V3308h `pseq` applyWrapper appl_1181 [kl_V3308h] pat_cond_1651 = do do return (Atom (B False)) in case kl_V3308 of !(kl_V3308@(Cons (!kl_V3308h) (!kl_V3308t))) -> pat_cond_1180 kl_V3308 kl_V3308h kl_V3308t _ -> pat_cond_1651))) !appl_1652 <- kl_V3306t `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3306t kl_V3569) appl_1652 `pseq` applyWrapper appl_1179 [appl_1652] pat_cond_1653 = do do return (Atom (B False)) in case kl_V3307 of kl_V3307@(Atom (UnboundSym "cons")) -> pat_cond_1178 kl_V3307@(ApplC (PL "cons" _)) -> pat_cond_1178 kl_V3307@(ApplC (Func "cons" _)) -> pat_cond_1178 _ -> pat_cond_1653))) !appl_1654 <- kl_V3306h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3306h kl_V3569) appl_1654 `pseq` applyWrapper appl_1177 [appl_1654] pat_cond_1655 = do do return (Atom (B False)) in case kl_V3306 of !(kl_V3306@(Cons (!kl_V3306h) (!kl_V3306t))) -> pat_cond_1176 kl_V3306 kl_V3306h kl_V3306t _ -> pat_cond_1655))) !appl_1656 <- kl_V3305h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3305h kl_V3569) appl_1656 `pseq` applyWrapper appl_1175 [appl_1656] pat_cond_1657 = do do return (Atom (B False)) in case kl_V3305 of !(kl_V3305@(Cons (!kl_V3305h) (!kl_V3305t))) -> pat_cond_1174 kl_V3305 kl_V3305h kl_V3305t _ -> pat_cond_1657))) !appl_1658 <- kl_V3304h `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3304h kl_V3569) appl_1658 `pseq` applyWrapper appl_1173 [appl_1658] pat_cond_1659 = do do return (Atom (B False)) in case kl_V3304 of !(kl_V3304@(Cons (!kl_V3304h) (!kl_V3304t))) -> pat_cond_1172 kl_V3304 kl_V3304h kl_V3304t _ -> pat_cond_1659))) !appl_1660 <- kl_V3567 `pseq` (kl_V3569 `pseq` kl_shen_lazyderef kl_V3567 kl_V3569) !appl_1661 <- appl_1660 `pseq` applyWrapper appl_1171 [appl_1660] appl_1661 `pseq` applyWrapper appl_0 [appl_1661] kl_shen_show :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_show (!kl_V3587) (!kl_V3588) (!kl_V3589) (!kl_V3590) = do !kl_if_0 <- value (Core.Types.Atom (Core.Types.UnboundSym "shen.*spy*")) case kl_if_0 of Atom (B (True)) -> do !appl_1 <- kl_shen_line !appl_2 <- kl_V3587 `pseq` (kl_V3589 `pseq` kl_shen_deref kl_V3587 kl_V3589) !appl_3 <- appl_2 `pseq` kl_shen_show_p appl_2 !appl_4 <- kl_nl (Core.Types.Atom (Core.Types.N (Core.Types.KI 1))) !appl_5 <- kl_nl (Core.Types.Atom (Core.Types.N (Core.Types.KI 1))) !appl_6 <- kl_V3588 `pseq` (kl_V3589 `pseq` kl_shen_deref kl_V3588 kl_V3589) !appl_7 <- appl_6 `pseq` kl_shen_show_assumptions appl_6 (Core.Types.Atom (Core.Types.N (Core.Types.KI 1))) !appl_8 <- kl_stoutput !appl_9 <- appl_8 `pseq` kl_shen_prhush (Core.Types.Atom (Core.Types.Str "\n> ")) appl_8 !appl_10 <- kl_shen_pause_for_user !appl_11 <- kl_V3590 `pseq` kl_thaw kl_V3590 !appl_12 <- appl_10 `pseq` (appl_11 `pseq` kl_do appl_10 appl_11) !appl_13 <- appl_9 `pseq` (appl_12 `pseq` kl_do appl_9 appl_12) !appl_14 <- appl_7 `pseq` (appl_13 `pseq` kl_do appl_7 appl_13) !appl_15 <- appl_5 `pseq` (appl_14 `pseq` kl_do appl_5 appl_14) !appl_16 <- appl_4 `pseq` (appl_15 `pseq` kl_do appl_4 appl_15) !appl_17 <- appl_3 `pseq` (appl_16 `pseq` kl_do appl_3 appl_16) appl_1 `pseq` (appl_17 `pseq` kl_do appl_1 appl_17) Atom (B (False)) -> do do kl_V3590 `pseq` kl_thaw kl_V3590 _ -> throwError "if: expected boolean" kl_shen_line :: Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_line = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Infs) -> do !appl_1 <- let pat_cond_2 = do return (Core.Types.Atom (Core.Types.Str "")) pat_cond_3 = do do return (Core.Types.Atom (Core.Types.Str "s")) in case kl_Infs of kl_Infs@(Atom (N (KI 1))) -> pat_cond_2 _ -> pat_cond_3 !appl_4 <- appl_1 `pseq` kl_shen_app appl_1 (Core.Types.Atom (Core.Types.Str " \n?- ")) (Core.Types.Atom (Core.Types.UnboundSym "shen.a")) !appl_5 <- appl_4 `pseq` cn (Core.Types.Atom (Core.Types.Str " inference")) appl_4 !appl_6 <- kl_Infs `pseq` (appl_5 `pseq` kl_shen_app kl_Infs appl_5 (Core.Types.Atom (Core.Types.UnboundSym "shen.a"))) !appl_7 <- appl_6 `pseq` cn (Core.Types.Atom (Core.Types.Str "____________________________________________________________ ")) appl_6 !appl_8 <- kl_stoutput appl_7 `pseq` (appl_8 `pseq` kl_shen_prhush appl_7 appl_8)))) !appl_9 <- kl_inferences appl_9 `pseq` applyWrapper appl_0 [appl_9] kl_shen_show_p :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_show_p (!kl_V3592) = do !kl_if_0 <- let pat_cond_1 kl_V3592 kl_V3592h kl_V3592t = do !kl_if_2 <- let pat_cond_3 kl_V3592t kl_V3592th kl_V3592tt = do !kl_if_4 <- let pat_cond_5 = do !kl_if_6 <- let pat_cond_7 kl_V3592tt kl_V3592tth kl_V3592ttt = do let !appl_8 = Atom Nil !kl_if_9 <- appl_8 `pseq` (kl_V3592ttt `pseq` eq appl_8 kl_V3592ttt) case kl_if_9 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_10 = do do return (Atom (B False)) in case kl_V3592tt of !(kl_V3592tt@(Cons (!kl_V3592tth) (!kl_V3592ttt))) -> pat_cond_7 kl_V3592tt kl_V3592tth kl_V3592ttt _ -> pat_cond_10 case kl_if_6 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_11 = do do return (Atom (B False)) in case kl_V3592th of kl_V3592th@(Atom (UnboundSym ":")) -> pat_cond_5 kl_V3592th@(ApplC (PL ":" _)) -> pat_cond_5 kl_V3592th@(ApplC (Func ":" _)) -> pat_cond_5 _ -> pat_cond_11 case kl_if_4 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_12 = do do return (Atom (B False)) in case kl_V3592t of !(kl_V3592t@(Cons (!kl_V3592th) (!kl_V3592tt))) -> pat_cond_3 kl_V3592t kl_V3592th kl_V3592tt _ -> pat_cond_12 case kl_if_2 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_13 = do do return (Atom (B False)) in case kl_V3592 of !(kl_V3592@(Cons (!kl_V3592h) (!kl_V3592t))) -> pat_cond_1 kl_V3592 kl_V3592h kl_V3592t _ -> pat_cond_13 case kl_if_0 of Atom (B (True)) -> do !appl_14 <- kl_V3592 `pseq` hd kl_V3592 !appl_15 <- kl_V3592 `pseq` tl kl_V3592 !appl_16 <- appl_15 `pseq` tl appl_15 !appl_17 <- appl_16 `pseq` hd appl_16 !appl_18 <- appl_17 `pseq` kl_shen_app appl_17 (Core.Types.Atom (Core.Types.Str "")) (Core.Types.Atom (Core.Types.UnboundSym "shen.r")) !appl_19 <- appl_18 `pseq` cn (Core.Types.Atom (Core.Types.Str " : ")) appl_18 !appl_20 <- appl_14 `pseq` (appl_19 `pseq` kl_shen_app appl_14 appl_19 (Core.Types.Atom (Core.Types.UnboundSym "shen.r"))) !appl_21 <- kl_stoutput appl_20 `pseq` (appl_21 `pseq` kl_shen_prhush appl_20 appl_21) Atom (B (False)) -> do do !appl_22 <- kl_V3592 `pseq` kl_shen_app kl_V3592 (Core.Types.Atom (Core.Types.Str "")) (Core.Types.Atom (Core.Types.UnboundSym "shen.r")) !appl_23 <- kl_stoutput appl_22 `pseq` (appl_23 `pseq` kl_shen_prhush appl_22 appl_23) _ -> throwError "if: expected boolean" kl_shen_show_assumptions :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_show_assumptions (!kl_V3597) (!kl_V3598) = do let !appl_0 = Atom Nil !kl_if_1 <- appl_0 `pseq` (kl_V3597 `pseq` eq appl_0 kl_V3597) case kl_if_1 of Atom (B (True)) -> do return (Core.Types.Atom (Core.Types.UnboundSym "shen.skip")) Atom (B (False)) -> do let pat_cond_2 kl_V3597 kl_V3597h kl_V3597t = do !appl_3 <- kl_V3598 `pseq` kl_shen_app kl_V3598 (Core.Types.Atom (Core.Types.Str ". ")) (Core.Types.Atom (Core.Types.UnboundSym "shen.a")) !appl_4 <- kl_stoutput !appl_5 <- appl_3 `pseq` (appl_4 `pseq` kl_shen_prhush appl_3 appl_4) !appl_6 <- kl_V3597h `pseq` kl_shen_show_p kl_V3597h !appl_7 <- kl_nl (Core.Types.Atom (Core.Types.N (Core.Types.KI 1))) !appl_8 <- kl_V3598 `pseq` add kl_V3598 (Core.Types.Atom (Core.Types.N (Core.Types.KI 1))) !appl_9 <- kl_V3597t `pseq` (appl_8 `pseq` kl_shen_show_assumptions kl_V3597t appl_8) !appl_10 <- appl_7 `pseq` (appl_9 `pseq` kl_do appl_7 appl_9) !appl_11 <- appl_6 `pseq` (appl_10 `pseq` kl_do appl_6 appl_10) appl_5 `pseq` (appl_11 `pseq` kl_do appl_5 appl_11) pat_cond_12 = do do kl_shen_f_error (ApplC (wrapNamed "shen.show-assumptions" kl_shen_show_assumptions)) in case kl_V3597 of !(kl_V3597@(Cons (!kl_V3597h) (!kl_V3597t))) -> pat_cond_2 kl_V3597 kl_V3597h kl_V3597t _ -> pat_cond_12 _ -> throwError "if: expected boolean" kl_shen_pause_for_user :: Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_pause_for_user = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Byte) -> do let pat_cond_1 = do simpleError (Core.Types.Atom (Core.Types.Str "input aborted\n")) pat_cond_2 = do do kl_nl (Core.Types.Atom (Core.Types.N (Core.Types.KI 1))) in case kl_Byte of kl_Byte@(Atom (N (KI 94))) -> pat_cond_1 _ -> pat_cond_2))) !appl_3 <- kl_stinput !appl_4 <- appl_3 `pseq` readByte appl_3 appl_4 `pseq` applyWrapper appl_0 [appl_4] kl_shen_typedfP :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_typedfP (!kl_V3600) = do !appl_0 <- value (Core.Types.Atom (Core.Types.UnboundSym "shen.*signedfuncs*")) !appl_1 <- kl_V3600 `pseq` (appl_0 `pseq` kl_assoc kl_V3600 appl_0) appl_1 `pseq` consP appl_1 kl_shen_sigf :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_sigf (!kl_V3602) = do kl_V3602 `pseq` kl_concat (Core.Types.Atom (Core.Types.UnboundSym "shen.type-signature-of-")) kl_V3602 kl_shen_placeholder :: Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_placeholder = do kl_gensym (Core.Types.Atom (Core.Types.UnboundSym "&&")) kl_shen_base :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_base (!kl_V3607) (!kl_V3608) (!kl_V3609) (!kl_V3610) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_3 = do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_5 = do let !appl_6 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_7 = do let !appl_8 = ApplC (Func "lambda" (Context (\(!kl_V3295) -> do let !appl_9 = Atom Nil !kl_if_10 <- appl_9 `pseq` (kl_V3295 `pseq` eq appl_9 kl_V3295) case kl_if_10 of Atom (B (True)) -> do let !appl_11 = ApplC (Func "lambda" (Context (\(!kl_V3296) -> do let pat_cond_12 kl_V3296 kl_V3296h kl_V3296t = do let !appl_13 = ApplC (Func "lambda" (Context (\(!kl_V3297) -> do let pat_cond_14 = do let !appl_15 = ApplC (Func "lambda" (Context (\(!kl_V3298) -> do let pat_cond_16 kl_V3298 kl_V3298h kl_V3298t = do let !appl_17 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_18 = ApplC (Func "lambda" (Context (\(!kl_V3299) -> do let !appl_19 = Atom Nil !kl_if_20 <- appl_19 `pseq` (kl_V3299 `pseq` eq appl_19 kl_V3299) case kl_if_20 of Atom (B (True)) -> do !appl_21 <- kl_shen_incinfs !appl_22 <- kl_V3610 `pseq` kl_thaw kl_V3610 appl_21 `pseq` (appl_22 `pseq` kl_do appl_21 appl_22) Atom (B (False)) -> do do !kl_if_23 <- kl_V3299 `pseq` kl_shen_pvarP kl_V3299 case kl_if_23 of Atom (B (True)) -> do let !appl_24 = Atom Nil !appl_25 <- kl_V3299 `pseq` (appl_24 `pseq` (kl_V3609 `pseq` kl_shen_bindv kl_V3299 appl_24 kl_V3609)) let !appl_26 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_27 <- kl_V3299 `pseq` (kl_V3609 `pseq` kl_shen_unbindv kl_V3299 kl_V3609) appl_27 `pseq` (kl_Result `pseq` kl_do appl_27 kl_Result)))) !appl_28 <- kl_shen_incinfs !appl_29 <- kl_V3610 `pseq` kl_thaw kl_V3610 !appl_30 <- appl_28 `pseq` (appl_29 `pseq` kl_do appl_28 appl_29) !appl_31 <- appl_30 `pseq` applyWrapper appl_26 [appl_30] appl_25 `pseq` (appl_31 `pseq` kl_do appl_25 appl_31) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_32 <- kl_V3298t `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3298t kl_V3609) appl_32 `pseq` applyWrapper appl_18 [appl_32]))) kl_V3298h `pseq` applyWrapper appl_17 [kl_V3298h] pat_cond_33 = do do !kl_if_34 <- kl_V3298 `pseq` kl_shen_pvarP kl_V3298 case kl_if_34 of Atom (B (True)) -> do let !appl_35 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_36 = Atom Nil !appl_37 <- kl_A `pseq` (appl_36 `pseq` klCons kl_A appl_36) !appl_38 <- kl_V3298 `pseq` (appl_37 `pseq` (kl_V3609 `pseq` kl_shen_bindv kl_V3298 appl_37 kl_V3609)) let !appl_39 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_40 <- kl_V3298 `pseq` (kl_V3609 `pseq` kl_shen_unbindv kl_V3298 kl_V3609) appl_40 `pseq` (kl_Result `pseq` kl_do appl_40 kl_Result)))) !appl_41 <- kl_shen_incinfs !appl_42 <- kl_V3610 `pseq` kl_thaw kl_V3610 !appl_43 <- appl_41 `pseq` (appl_42 `pseq` kl_do appl_41 appl_42) !appl_44 <- appl_43 `pseq` applyWrapper appl_39 [appl_43] appl_38 `pseq` (appl_44 `pseq` kl_do appl_38 appl_44)))) !appl_45 <- kl_V3609 `pseq` kl_shen_newpv kl_V3609 appl_45 `pseq` applyWrapper appl_35 [appl_45] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3298 of !(kl_V3298@(Cons (!kl_V3298h) (!kl_V3298t))) -> pat_cond_16 kl_V3298 kl_V3298h kl_V3298t _ -> pat_cond_33))) !appl_46 <- kl_V3296t `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3296t kl_V3609) appl_46 `pseq` applyWrapper appl_15 [appl_46] pat_cond_47 = do do !kl_if_48 <- kl_V3297 `pseq` kl_shen_pvarP kl_V3297 case kl_if_48 of Atom (B (True)) -> do !appl_49 <- kl_V3297 `pseq` (kl_V3609 `pseq` kl_shen_bindv kl_V3297 (Core.Types.Atom (Core.Types.UnboundSym "list")) kl_V3609) let !appl_50 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_51 <- kl_V3297 `pseq` (kl_V3609 `pseq` kl_shen_unbindv kl_V3297 kl_V3609) appl_51 `pseq` (kl_Result `pseq` kl_do appl_51 kl_Result)))) let !appl_52 = ApplC (Func "lambda" (Context (\(!kl_V3300) -> do let pat_cond_53 kl_V3300 kl_V3300h kl_V3300t = do let !appl_54 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_55 = ApplC (Func "lambda" (Context (\(!kl_V3301) -> do let !appl_56 = Atom Nil !kl_if_57 <- appl_56 `pseq` (kl_V3301 `pseq` eq appl_56 kl_V3301) case kl_if_57 of Atom (B (True)) -> do !appl_58 <- kl_shen_incinfs !appl_59 <- kl_V3610 `pseq` kl_thaw kl_V3610 appl_58 `pseq` (appl_59 `pseq` kl_do appl_58 appl_59) Atom (B (False)) -> do do !kl_if_60 <- kl_V3301 `pseq` kl_shen_pvarP kl_V3301 case kl_if_60 of Atom (B (True)) -> do let !appl_61 = Atom Nil !appl_62 <- kl_V3301 `pseq` (appl_61 `pseq` (kl_V3609 `pseq` kl_shen_bindv kl_V3301 appl_61 kl_V3609)) let !appl_63 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_64 <- kl_V3301 `pseq` (kl_V3609 `pseq` kl_shen_unbindv kl_V3301 kl_V3609) appl_64 `pseq` (kl_Result `pseq` kl_do appl_64 kl_Result)))) !appl_65 <- kl_shen_incinfs !appl_66 <- kl_V3610 `pseq` kl_thaw kl_V3610 !appl_67 <- appl_65 `pseq` (appl_66 `pseq` kl_do appl_65 appl_66) !appl_68 <- appl_67 `pseq` applyWrapper appl_63 [appl_67] appl_62 `pseq` (appl_68 `pseq` kl_do appl_62 appl_68) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_69 <- kl_V3300t `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3300t kl_V3609) appl_69 `pseq` applyWrapper appl_55 [appl_69]))) kl_V3300h `pseq` applyWrapper appl_54 [kl_V3300h] pat_cond_70 = do do !kl_if_71 <- kl_V3300 `pseq` kl_shen_pvarP kl_V3300 case kl_if_71 of Atom (B (True)) -> do let !appl_72 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_73 = Atom Nil !appl_74 <- kl_A `pseq` (appl_73 `pseq` klCons kl_A appl_73) !appl_75 <- kl_V3300 `pseq` (appl_74 `pseq` (kl_V3609 `pseq` kl_shen_bindv kl_V3300 appl_74 kl_V3609)) let !appl_76 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_77 <- kl_V3300 `pseq` (kl_V3609 `pseq` kl_shen_unbindv kl_V3300 kl_V3609) appl_77 `pseq` (kl_Result `pseq` kl_do appl_77 kl_Result)))) !appl_78 <- kl_shen_incinfs !appl_79 <- kl_V3610 `pseq` kl_thaw kl_V3610 !appl_80 <- appl_78 `pseq` (appl_79 `pseq` kl_do appl_78 appl_79) !appl_81 <- appl_80 `pseq` applyWrapper appl_76 [appl_80] appl_75 `pseq` (appl_81 `pseq` kl_do appl_75 appl_81)))) !appl_82 <- kl_V3609 `pseq` kl_shen_newpv kl_V3609 appl_82 `pseq` applyWrapper appl_72 [appl_82] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3300 of !(kl_V3300@(Cons (!kl_V3300h) (!kl_V3300t))) -> pat_cond_53 kl_V3300 kl_V3300h kl_V3300t _ -> pat_cond_70))) !appl_83 <- kl_V3296t `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3296t kl_V3609) !appl_84 <- appl_83 `pseq` applyWrapper appl_52 [appl_83] !appl_85 <- appl_84 `pseq` applyWrapper appl_50 [appl_84] appl_49 `pseq` (appl_85 `pseq` kl_do appl_49 appl_85) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3297 of kl_V3297@(Atom (UnboundSym "list")) -> pat_cond_14 kl_V3297@(ApplC (PL "list" _)) -> pat_cond_14 kl_V3297@(ApplC (Func "list" _)) -> pat_cond_14 _ -> pat_cond_47))) !appl_86 <- kl_V3296h `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3296h kl_V3609) appl_86 `pseq` applyWrapper appl_13 [appl_86] pat_cond_87 = do do !kl_if_88 <- kl_V3296 `pseq` kl_shen_pvarP kl_V3296 case kl_if_88 of Atom (B (True)) -> do let !appl_89 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_90 = Atom Nil !appl_91 <- kl_A `pseq` (appl_90 `pseq` klCons kl_A appl_90) !appl_92 <- appl_91 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "list")) appl_91 !appl_93 <- kl_V3296 `pseq` (appl_92 `pseq` (kl_V3609 `pseq` kl_shen_bindv kl_V3296 appl_92 kl_V3609)) let !appl_94 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_95 <- kl_V3296 `pseq` (kl_V3609 `pseq` kl_shen_unbindv kl_V3296 kl_V3609) appl_95 `pseq` (kl_Result `pseq` kl_do appl_95 kl_Result)))) !appl_96 <- kl_shen_incinfs !appl_97 <- kl_V3610 `pseq` kl_thaw kl_V3610 !appl_98 <- appl_96 `pseq` (appl_97 `pseq` kl_do appl_96 appl_97) !appl_99 <- appl_98 `pseq` applyWrapper appl_94 [appl_98] appl_93 `pseq` (appl_99 `pseq` kl_do appl_93 appl_99)))) !appl_100 <- kl_V3609 `pseq` kl_shen_newpv kl_V3609 appl_100 `pseq` applyWrapper appl_89 [appl_100] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3296 of !(kl_V3296@(Cons (!kl_V3296h) (!kl_V3296t))) -> pat_cond_12 kl_V3296 kl_V3296h kl_V3296t _ -> pat_cond_87))) !appl_101 <- kl_V3608 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3608 kl_V3609) appl_101 `pseq` applyWrapper appl_11 [appl_101] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_102 <- kl_V3607 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3607 kl_V3609) appl_102 `pseq` applyWrapper appl_8 [appl_102] pat_cond_103 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_7 kl_Case@(Atom (B (False))) -> pat_cond_7 _ -> pat_cond_103))) let !appl_104 = ApplC (Func "lambda" (Context (\(!kl_V3294) -> do let pat_cond_105 = do !appl_106 <- kl_shen_incinfs !appl_107 <- kl_V3607 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3607 kl_V3609) !appl_108 <- appl_107 `pseq` kl_symbolP appl_107 let !appl_109 = ApplC (PL "thunk" (do !appl_110 <- kl_V3607 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3607 kl_V3609) !appl_111 <- appl_110 `pseq` kl_shen_ueP appl_110 !appl_112 <- appl_111 `pseq` kl_not appl_111 appl_112 `pseq` (kl_V3609 `pseq` (kl_V3610 `pseq` kl_fwhen appl_112 kl_V3609 kl_V3610)))) !appl_113 <- appl_108 `pseq` (kl_V3609 `pseq` (appl_109 `pseq` kl_fwhen appl_108 kl_V3609 appl_109)) appl_106 `pseq` (appl_113 `pseq` kl_do appl_106 appl_113) pat_cond_114 = do do !kl_if_115 <- kl_V3294 `pseq` kl_shen_pvarP kl_V3294 case kl_if_115 of Atom (B (True)) -> do !appl_116 <- kl_V3294 `pseq` (kl_V3609 `pseq` kl_shen_bindv kl_V3294 (Core.Types.Atom (Core.Types.UnboundSym "symbol")) kl_V3609) let !appl_117 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_118 <- kl_V3294 `pseq` (kl_V3609 `pseq` kl_shen_unbindv kl_V3294 kl_V3609) appl_118 `pseq` (kl_Result `pseq` kl_do appl_118 kl_Result)))) !appl_119 <- kl_shen_incinfs !appl_120 <- kl_V3607 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3607 kl_V3609) !appl_121 <- appl_120 `pseq` kl_symbolP appl_120 let !appl_122 = ApplC (PL "thunk" (do !appl_123 <- kl_V3607 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3607 kl_V3609) !appl_124 <- appl_123 `pseq` kl_shen_ueP appl_123 !appl_125 <- appl_124 `pseq` kl_not appl_124 appl_125 `pseq` (kl_V3609 `pseq` (kl_V3610 `pseq` kl_fwhen appl_125 kl_V3609 kl_V3610)))) !appl_126 <- appl_121 `pseq` (kl_V3609 `pseq` (appl_122 `pseq` kl_fwhen appl_121 kl_V3609 appl_122)) !appl_127 <- appl_119 `pseq` (appl_126 `pseq` kl_do appl_119 appl_126) !appl_128 <- appl_127 `pseq` applyWrapper appl_117 [appl_127] appl_116 `pseq` (appl_128 `pseq` kl_do appl_116 appl_128) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3294 of kl_V3294@(Atom (UnboundSym "symbol")) -> pat_cond_105 kl_V3294@(ApplC (PL "symbol" _)) -> pat_cond_105 kl_V3294@(ApplC (Func "symbol" _)) -> pat_cond_105 _ -> pat_cond_114))) !appl_129 <- kl_V3608 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3608 kl_V3609) !appl_130 <- appl_129 `pseq` applyWrapper appl_104 [appl_129] appl_130 `pseq` applyWrapper appl_6 [appl_130] pat_cond_131 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_5 kl_Case@(Atom (B (False))) -> pat_cond_5 _ -> pat_cond_131))) let !appl_132 = ApplC (Func "lambda" (Context (\(!kl_V3293) -> do let pat_cond_133 = do !appl_134 <- kl_shen_incinfs !appl_135 <- kl_V3607 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3607 kl_V3609) !appl_136 <- appl_135 `pseq` stringP appl_135 !appl_137 <- appl_136 `pseq` (kl_V3609 `pseq` (kl_V3610 `pseq` kl_fwhen appl_136 kl_V3609 kl_V3610)) appl_134 `pseq` (appl_137 `pseq` kl_do appl_134 appl_137) pat_cond_138 = do do !kl_if_139 <- kl_V3293 `pseq` kl_shen_pvarP kl_V3293 case kl_if_139 of Atom (B (True)) -> do !appl_140 <- kl_V3293 `pseq` (kl_V3609 `pseq` kl_shen_bindv kl_V3293 (Core.Types.Atom (Core.Types.UnboundSym "string")) kl_V3609) let !appl_141 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_142 <- kl_V3293 `pseq` (kl_V3609 `pseq` kl_shen_unbindv kl_V3293 kl_V3609) appl_142 `pseq` (kl_Result `pseq` kl_do appl_142 kl_Result)))) !appl_143 <- kl_shen_incinfs !appl_144 <- kl_V3607 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3607 kl_V3609) !appl_145 <- appl_144 `pseq` stringP appl_144 !appl_146 <- appl_145 `pseq` (kl_V3609 `pseq` (kl_V3610 `pseq` kl_fwhen appl_145 kl_V3609 kl_V3610)) !appl_147 <- appl_143 `pseq` (appl_146 `pseq` kl_do appl_143 appl_146) !appl_148 <- appl_147 `pseq` applyWrapper appl_141 [appl_147] appl_140 `pseq` (appl_148 `pseq` kl_do appl_140 appl_148) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3293 of kl_V3293@(Atom (UnboundSym "string")) -> pat_cond_133 kl_V3293@(ApplC (PL "string" _)) -> pat_cond_133 kl_V3293@(ApplC (Func "string" _)) -> pat_cond_133 _ -> pat_cond_138))) !appl_149 <- kl_V3608 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3608 kl_V3609) !appl_150 <- appl_149 `pseq` applyWrapper appl_132 [appl_149] appl_150 `pseq` applyWrapper appl_4 [appl_150] pat_cond_151 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_3 kl_Case@(Atom (B (False))) -> pat_cond_3 _ -> pat_cond_151))) let !appl_152 = ApplC (Func "lambda" (Context (\(!kl_V3292) -> do let pat_cond_153 = do !appl_154 <- kl_shen_incinfs !appl_155 <- kl_V3607 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3607 kl_V3609) !appl_156 <- appl_155 `pseq` kl_booleanP appl_155 !appl_157 <- appl_156 `pseq` (kl_V3609 `pseq` (kl_V3610 `pseq` kl_fwhen appl_156 kl_V3609 kl_V3610)) appl_154 `pseq` (appl_157 `pseq` kl_do appl_154 appl_157) pat_cond_158 = do do !kl_if_159 <- kl_V3292 `pseq` kl_shen_pvarP kl_V3292 case kl_if_159 of Atom (B (True)) -> do !appl_160 <- kl_V3292 `pseq` (kl_V3609 `pseq` kl_shen_bindv kl_V3292 (Core.Types.Atom (Core.Types.UnboundSym "boolean")) kl_V3609) let !appl_161 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_162 <- kl_V3292 `pseq` (kl_V3609 `pseq` kl_shen_unbindv kl_V3292 kl_V3609) appl_162 `pseq` (kl_Result `pseq` kl_do appl_162 kl_Result)))) !appl_163 <- kl_shen_incinfs !appl_164 <- kl_V3607 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3607 kl_V3609) !appl_165 <- appl_164 `pseq` kl_booleanP appl_164 !appl_166 <- appl_165 `pseq` (kl_V3609 `pseq` (kl_V3610 `pseq` kl_fwhen appl_165 kl_V3609 kl_V3610)) !appl_167 <- appl_163 `pseq` (appl_166 `pseq` kl_do appl_163 appl_166) !appl_168 <- appl_167 `pseq` applyWrapper appl_161 [appl_167] appl_160 `pseq` (appl_168 `pseq` kl_do appl_160 appl_168) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3292 of kl_V3292@(Atom (UnboundSym "boolean")) -> pat_cond_153 kl_V3292@(ApplC (PL "boolean" _)) -> pat_cond_153 kl_V3292@(ApplC (Func "boolean" _)) -> pat_cond_153 _ -> pat_cond_158))) !appl_169 <- kl_V3608 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3608 kl_V3609) !appl_170 <- appl_169 `pseq` applyWrapper appl_152 [appl_169] appl_170 `pseq` applyWrapper appl_2 [appl_170] pat_cond_171 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_1 kl_Case@(Atom (B (False))) -> pat_cond_1 _ -> pat_cond_171))) let !appl_172 = ApplC (Func "lambda" (Context (\(!kl_V3291) -> do let pat_cond_173 = do !appl_174 <- kl_shen_incinfs !appl_175 <- kl_V3607 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3607 kl_V3609) !appl_176 <- appl_175 `pseq` numberP appl_175 !appl_177 <- appl_176 `pseq` (kl_V3609 `pseq` (kl_V3610 `pseq` kl_fwhen appl_176 kl_V3609 kl_V3610)) appl_174 `pseq` (appl_177 `pseq` kl_do appl_174 appl_177) pat_cond_178 = do do !kl_if_179 <- kl_V3291 `pseq` kl_shen_pvarP kl_V3291 case kl_if_179 of Atom (B (True)) -> do !appl_180 <- kl_V3291 `pseq` (kl_V3609 `pseq` kl_shen_bindv kl_V3291 (Core.Types.Atom (Core.Types.UnboundSym "number")) kl_V3609) let !appl_181 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_182 <- kl_V3291 `pseq` (kl_V3609 `pseq` kl_shen_unbindv kl_V3291 kl_V3609) appl_182 `pseq` (kl_Result `pseq` kl_do appl_182 kl_Result)))) !appl_183 <- kl_shen_incinfs !appl_184 <- kl_V3607 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3607 kl_V3609) !appl_185 <- appl_184 `pseq` numberP appl_184 !appl_186 <- appl_185 `pseq` (kl_V3609 `pseq` (kl_V3610 `pseq` kl_fwhen appl_185 kl_V3609 kl_V3610)) !appl_187 <- appl_183 `pseq` (appl_186 `pseq` kl_do appl_183 appl_186) !appl_188 <- appl_187 `pseq` applyWrapper appl_181 [appl_187] appl_180 `pseq` (appl_188 `pseq` kl_do appl_180 appl_188) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3291 of kl_V3291@(Atom (UnboundSym "number")) -> pat_cond_173 kl_V3291@(ApplC (PL "number" _)) -> pat_cond_173 kl_V3291@(ApplC (Func "number" _)) -> pat_cond_173 _ -> pat_cond_178))) !appl_189 <- kl_V3608 `pseq` (kl_V3609 `pseq` kl_shen_lazyderef kl_V3608 kl_V3609) !appl_190 <- appl_189 `pseq` applyWrapper appl_172 [appl_189] appl_190 `pseq` applyWrapper appl_0 [appl_190] kl_shen_by_hypothesis :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_by_hypothesis (!kl_V3616) (!kl_V3617) (!kl_V3618) (!kl_V3619) (!kl_V3620) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_V3288) -> do let pat_cond_3 kl_V3288 kl_V3288h kl_V3288t = do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_5 <- kl_shen_incinfs !appl_6 <- kl_V3616 `pseq` (kl_V3617 `pseq` (kl_Hyp `pseq` (kl_V3619 `pseq` (kl_V3620 `pseq` kl_shen_by_hypothesis kl_V3616 kl_V3617 kl_Hyp kl_V3619 kl_V3620)))) appl_5 `pseq` (appl_6 `pseq` kl_do appl_5 appl_6)))) kl_V3288t `pseq` applyWrapper appl_4 [kl_V3288t] pat_cond_7 = do do return (Atom (B False)) in case kl_V3288 of !(kl_V3288@(Cons (!kl_V3288h) (!kl_V3288t))) -> pat_cond_3 kl_V3288 kl_V3288h kl_V3288t _ -> pat_cond_7))) !appl_8 <- kl_V3618 `pseq` (kl_V3619 `pseq` kl_shen_lazyderef kl_V3618 kl_V3619) appl_8 `pseq` applyWrapper appl_2 [appl_8] pat_cond_9 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_1 kl_Case@(Atom (B (False))) -> pat_cond_1 _ -> pat_cond_9))) let !appl_10 = ApplC (Func "lambda" (Context (\(!kl_V3282) -> do let pat_cond_11 kl_V3282 kl_V3282h kl_V3282t = do let !appl_12 = ApplC (Func "lambda" (Context (\(!kl_V3283) -> do let pat_cond_13 kl_V3283 kl_V3283h kl_V3283t = do let !appl_14 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_15 = ApplC (Func "lambda" (Context (\(!kl_V3284) -> do let pat_cond_16 kl_V3284 kl_V3284h kl_V3284t = do let !appl_17 = ApplC (Func "lambda" (Context (\(!kl_V3285) -> do let pat_cond_18 = do let !appl_19 = ApplC (Func "lambda" (Context (\(!kl_V3286) -> do let pat_cond_20 kl_V3286 kl_V3286h kl_V3286t = do let !appl_21 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_22 = ApplC (Func "lambda" (Context (\(!kl_V3287) -> do let !appl_23 = Atom Nil !kl_if_24 <- appl_23 `pseq` (kl_V3287 `pseq` eq appl_23 kl_V3287) case kl_if_24 of Atom (B (True)) -> do !appl_25 <- kl_shen_incinfs let !appl_26 = ApplC (PL "thunk" (do kl_V3617 `pseq` (kl_B `pseq` (kl_V3619 `pseq` (kl_V3620 `pseq` kl_unifyExcl kl_V3617 kl_B kl_V3619 kl_V3620))))) !appl_27 <- kl_V3616 `pseq` (kl_Y `pseq` (kl_V3619 `pseq` (appl_26 `pseq` kl_identical kl_V3616 kl_Y kl_V3619 appl_26))) appl_25 `pseq` (appl_27 `pseq` kl_do appl_25 appl_27) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_28 <- kl_V3286t `pseq` (kl_V3619 `pseq` kl_shen_lazyderef kl_V3286t kl_V3619) appl_28 `pseq` applyWrapper appl_22 [appl_28]))) kl_V3286h `pseq` applyWrapper appl_21 [kl_V3286h] pat_cond_29 = do do return (Atom (B False)) in case kl_V3286 of !(kl_V3286@(Cons (!kl_V3286h) (!kl_V3286t))) -> pat_cond_20 kl_V3286 kl_V3286h kl_V3286t _ -> pat_cond_29))) !appl_30 <- kl_V3284t `pseq` (kl_V3619 `pseq` kl_shen_lazyderef kl_V3284t kl_V3619) appl_30 `pseq` applyWrapper appl_19 [appl_30] pat_cond_31 = do do return (Atom (B False)) in case kl_V3285 of kl_V3285@(Atom (UnboundSym ":")) -> pat_cond_18 kl_V3285@(ApplC (PL ":" _)) -> pat_cond_18 kl_V3285@(ApplC (Func ":" _)) -> pat_cond_18 _ -> pat_cond_31))) !appl_32 <- kl_V3284h `pseq` (kl_V3619 `pseq` kl_shen_lazyderef kl_V3284h kl_V3619) appl_32 `pseq` applyWrapper appl_17 [appl_32] pat_cond_33 = do do return (Atom (B False)) in case kl_V3284 of !(kl_V3284@(Cons (!kl_V3284h) (!kl_V3284t))) -> pat_cond_16 kl_V3284 kl_V3284h kl_V3284t _ -> pat_cond_33))) !appl_34 <- kl_V3283t `pseq` (kl_V3619 `pseq` kl_shen_lazyderef kl_V3283t kl_V3619) appl_34 `pseq` applyWrapper appl_15 [appl_34]))) kl_V3283h `pseq` applyWrapper appl_14 [kl_V3283h] pat_cond_35 = do do return (Atom (B False)) in case kl_V3283 of !(kl_V3283@(Cons (!kl_V3283h) (!kl_V3283t))) -> pat_cond_13 kl_V3283 kl_V3283h kl_V3283t _ -> pat_cond_35))) !appl_36 <- kl_V3282h `pseq` (kl_V3619 `pseq` kl_shen_lazyderef kl_V3282h kl_V3619) appl_36 `pseq` applyWrapper appl_12 [appl_36] pat_cond_37 = do do return (Atom (B False)) in case kl_V3282 of !(kl_V3282@(Cons (!kl_V3282h) (!kl_V3282t))) -> pat_cond_11 kl_V3282 kl_V3282h kl_V3282t _ -> pat_cond_37))) !appl_38 <- kl_V3618 `pseq` (kl_V3619 `pseq` kl_shen_lazyderef kl_V3618 kl_V3619) !appl_39 <- appl_38 `pseq` applyWrapper appl_10 [appl_38] appl_39 `pseq` applyWrapper appl_0 [appl_39] kl_shen_tMult_def :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_tMult_def (!kl_V3626) (!kl_V3627) (!kl_V3628) (!kl_V3629) (!kl_V3630) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_V3276) -> do let pat_cond_1 kl_V3276 kl_V3276h kl_V3276t = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_V3277) -> do let pat_cond_3 = do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_V3278) -> do let pat_cond_5 kl_V3278 kl_V3278h kl_V3278t = do let !appl_6 = ApplC (Func "lambda" (Context (\(!kl_F) -> do let !appl_7 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_8 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_9 = ApplC (Func "lambda" (Context (\(!kl_E) -> do !appl_10 <- kl_shen_incinfs let !appl_11 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do kl_Y `pseq` kl_shen_LBsigPlusrulesRB kl_Y))) let !appl_12 = ApplC (Func "lambda" (Context (\(!kl_E) -> do let pat_cond_13 kl_E kl_Eh kl_Et = do !appl_14 <- kl_E `pseq` kl_shen_app kl_E (Core.Types.Atom (Core.Types.Str "\n")) (Core.Types.Atom (Core.Types.UnboundSym "shen.s")) !appl_15 <- appl_14 `pseq` cn (Core.Types.Atom (Core.Types.Str "parse error here: ")) appl_14 appl_15 `pseq` simpleError appl_15 pat_cond_16 = do do simpleError (Core.Types.Atom (Core.Types.Str "parse error\n")) in case kl_E of !(kl_E@(Cons (!kl_Eh) (!kl_Et))) -> pat_cond_13 kl_E kl_Eh kl_Et _ -> pat_cond_16))) !appl_17 <- appl_11 `pseq` (kl_X `pseq` (appl_12 `pseq` kl_compile appl_11 kl_X appl_12)) !appl_18 <- appl_17 `pseq` (kl_F `pseq` (kl_V3627 `pseq` (kl_V3628 `pseq` (kl_V3629 `pseq` (kl_V3630 `pseq` kl_shen_tMult_defh appl_17 kl_F kl_V3627 kl_V3628 kl_V3629 kl_V3630))))) appl_10 `pseq` (appl_18 `pseq` kl_do appl_10 appl_18)))) !appl_19 <- kl_V3629 `pseq` kl_shen_newpv kl_V3629 appl_19 `pseq` applyWrapper appl_9 [appl_19]))) !appl_20 <- kl_V3629 `pseq` kl_shen_newpv kl_V3629 appl_20 `pseq` applyWrapper appl_8 [appl_20]))) kl_V3278t `pseq` applyWrapper appl_7 [kl_V3278t]))) kl_V3278h `pseq` applyWrapper appl_6 [kl_V3278h] pat_cond_21 = do do return (Atom (B False)) in case kl_V3278 of !(kl_V3278@(Cons (!kl_V3278h) (!kl_V3278t))) -> pat_cond_5 kl_V3278 kl_V3278h kl_V3278t _ -> pat_cond_21))) !appl_22 <- kl_V3276t `pseq` (kl_V3629 `pseq` kl_shen_lazyderef kl_V3276t kl_V3629) appl_22 `pseq` applyWrapper appl_4 [appl_22] pat_cond_23 = do do return (Atom (B False)) in case kl_V3277 of kl_V3277@(Atom (UnboundSym "define")) -> pat_cond_3 kl_V3277@(ApplC (PL "define" _)) -> pat_cond_3 kl_V3277@(ApplC (Func "define" _)) -> pat_cond_3 _ -> pat_cond_23))) !appl_24 <- kl_V3276h `pseq` (kl_V3629 `pseq` kl_shen_lazyderef kl_V3276h kl_V3629) appl_24 `pseq` applyWrapper appl_2 [appl_24] pat_cond_25 = do do return (Atom (B False)) in case kl_V3276 of !(kl_V3276@(Cons (!kl_V3276h) (!kl_V3276t))) -> pat_cond_1 kl_V3276 kl_V3276h kl_V3276t _ -> pat_cond_25))) !appl_26 <- kl_V3626 `pseq` (kl_V3629 `pseq` kl_shen_lazyderef kl_V3626 kl_V3629) appl_26 `pseq` applyWrapper appl_0 [appl_26] kl_shen_tMult_defh :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_tMult_defh (!kl_V3637) (!kl_V3638) (!kl_V3639) (!kl_V3640) (!kl_V3641) (!kl_V3642) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_V3272) -> do let pat_cond_1 kl_V3272 kl_V3272h kl_V3272t = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_Sig) -> do let !appl_3 = ApplC (Func "lambda" (Context (\(!kl_Rules) -> do !appl_4 <- kl_shen_incinfs !appl_5 <- kl_Sig `pseq` kl_shen_ue_sig kl_Sig !appl_6 <- kl_Sig `pseq` (appl_5 `pseq` (kl_V3638 `pseq` (kl_V3639 `pseq` (kl_V3640 `pseq` (kl_Rules `pseq` (kl_V3641 `pseq` (kl_V3642 `pseq` kl_shen_tMult_defhh kl_Sig appl_5 kl_V3638 kl_V3639 kl_V3640 kl_Rules kl_V3641 kl_V3642))))))) appl_4 `pseq` (appl_6 `pseq` kl_do appl_4 appl_6)))) kl_V3272t `pseq` applyWrapper appl_3 [kl_V3272t]))) kl_V3272h `pseq` applyWrapper appl_2 [kl_V3272h] pat_cond_7 = do do return (Atom (B False)) in case kl_V3272 of !(kl_V3272@(Cons (!kl_V3272h) (!kl_V3272t))) -> pat_cond_1 kl_V3272 kl_V3272h kl_V3272t _ -> pat_cond_7))) !appl_8 <- kl_V3637 `pseq` (kl_V3641 `pseq` kl_shen_lazyderef kl_V3637 kl_V3641) appl_8 `pseq` applyWrapper appl_0 [appl_8] kl_shen_tMult_defhh :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_tMult_defhh (!kl_V3651) (!kl_V3652) (!kl_V3653) (!kl_V3654) (!kl_V3655) (!kl_V3656) (!kl_V3657) (!kl_V3658) = do !appl_0 <- kl_shen_incinfs let !appl_1 = Atom Nil !appl_2 <- kl_V3652 `pseq` (appl_1 `pseq` klCons kl_V3652 appl_1) !appl_3 <- appl_2 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_2 !appl_4 <- kl_V3653 `pseq` (appl_3 `pseq` klCons kl_V3653 appl_3) !appl_5 <- appl_4 `pseq` (kl_V3655 `pseq` klCons appl_4 kl_V3655) let !appl_6 = ApplC (PL "thunk" (do kl_V3653 `pseq` (kl_V3651 `pseq` (kl_V3654 `pseq` (kl_V3657 `pseq` (kl_V3658 `pseq` kl_shen_memo kl_V3653 kl_V3651 kl_V3654 kl_V3657 kl_V3658)))))) !appl_7 <- kl_V3656 `pseq` (kl_V3652 `pseq` (kl_V3653 `pseq` (appl_5 `pseq` (kl_V3657 `pseq` (appl_6 `pseq` kl_shen_tMult_rules kl_V3656 kl_V3652 (Core.Types.Atom (Core.Types.N (Core.Types.KI 1))) kl_V3653 appl_5 kl_V3657 appl_6))))) appl_0 `pseq` (appl_7 `pseq` kl_do appl_0 appl_7) kl_shen_memo :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_memo (!kl_V3664) (!kl_V3665) (!kl_V3666) (!kl_V3667) (!kl_V3668) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Jnk) -> do !appl_1 <- kl_shen_incinfs let !appl_2 = ApplC (PL "thunk" (do !appl_3 <- kl_V3664 `pseq` (kl_V3667 `pseq` kl_shen_lazyderef kl_V3664 kl_V3667) !appl_4 <- kl_V3666 `pseq` (kl_V3667 `pseq` kl_shen_lazyderef kl_V3666 kl_V3667) !appl_5 <- appl_3 `pseq` (appl_4 `pseq` kl_declare appl_3 appl_4) kl_Jnk `pseq` (appl_5 `pseq` (kl_V3667 `pseq` (kl_V3668 `pseq` kl_bind kl_Jnk appl_5 kl_V3667 kl_V3668))))) !appl_6 <- kl_V3666 `pseq` (kl_V3665 `pseq` (kl_V3667 `pseq` (appl_2 `pseq` kl_unifyExcl kl_V3666 kl_V3665 kl_V3667 appl_2))) appl_1 `pseq` (appl_6 `pseq` kl_do appl_1 appl_6)))) !appl_7 <- kl_V3667 `pseq` kl_shen_newpv kl_V3667 appl_7 `pseq` applyWrapper appl_0 [appl_7] kl_shen_LBsigPlusrulesRB :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_LBsigPlusrulesRB (!kl_V3670) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Parse_shen_LBsignatureRB) -> do !appl_1 <- kl_fail !appl_2 <- appl_1 `pseq` (kl_Parse_shen_LBsignatureRB `pseq` eq appl_1 kl_Parse_shen_LBsignatureRB) !kl_if_3 <- appl_2 `pseq` kl_not appl_2 case kl_if_3 of Atom (B (True)) -> do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_Parse_shen_LBnon_ll_rulesRB) -> do !appl_5 <- kl_fail !appl_6 <- appl_5 `pseq` (kl_Parse_shen_LBnon_ll_rulesRB `pseq` eq appl_5 kl_Parse_shen_LBnon_ll_rulesRB) !kl_if_7 <- appl_6 `pseq` kl_not appl_6 case kl_if_7 of Atom (B (True)) -> do !appl_8 <- kl_Parse_shen_LBnon_ll_rulesRB `pseq` hd kl_Parse_shen_LBnon_ll_rulesRB !appl_9 <- kl_Parse_shen_LBsignatureRB `pseq` kl_shen_hdtl kl_Parse_shen_LBsignatureRB !appl_10 <- kl_Parse_shen_LBnon_ll_rulesRB `pseq` kl_shen_hdtl kl_Parse_shen_LBnon_ll_rulesRB !appl_11 <- appl_9 `pseq` (appl_10 `pseq` klCons appl_9 appl_10) appl_8 `pseq` (appl_11 `pseq` kl_shen_pair appl_8 appl_11) Atom (B (False)) -> do do kl_fail _ -> throwError "if: expected boolean"))) !appl_12 <- kl_Parse_shen_LBsignatureRB `pseq` kl_shen_LBnon_ll_rulesRB kl_Parse_shen_LBsignatureRB appl_12 `pseq` applyWrapper appl_4 [appl_12] Atom (B (False)) -> do do kl_fail _ -> throwError "if: expected boolean"))) !appl_13 <- kl_V3670 `pseq` kl_shen_LBsignatureRB kl_V3670 appl_13 `pseq` applyWrapper appl_0 [appl_13] kl_shen_LBnon_ll_rulesRB :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_LBnon_ll_rulesRB (!kl_V3672) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_YaccParse) -> do !appl_1 <- kl_fail !kl_if_2 <- kl_YaccParse `pseq` (appl_1 `pseq` eq kl_YaccParse appl_1) case kl_if_2 of Atom (B (True)) -> do let !appl_3 = ApplC (Func "lambda" (Context (\(!kl_Parse_shen_LBruleRB) -> do !appl_4 <- kl_fail !appl_5 <- appl_4 `pseq` (kl_Parse_shen_LBruleRB `pseq` eq appl_4 kl_Parse_shen_LBruleRB) !kl_if_6 <- appl_5 `pseq` kl_not appl_5 case kl_if_6 of Atom (B (True)) -> do !appl_7 <- kl_Parse_shen_LBruleRB `pseq` hd kl_Parse_shen_LBruleRB !appl_8 <- kl_Parse_shen_LBruleRB `pseq` kl_shen_hdtl kl_Parse_shen_LBruleRB let !appl_9 = Atom Nil !appl_10 <- appl_8 `pseq` (appl_9 `pseq` klCons appl_8 appl_9) appl_7 `pseq` (appl_10 `pseq` kl_shen_pair appl_7 appl_10) Atom (B (False)) -> do do kl_fail _ -> throwError "if: expected boolean"))) !appl_11 <- kl_V3672 `pseq` kl_shen_LBruleRB kl_V3672 appl_11 `pseq` applyWrapper appl_3 [appl_11] Atom (B (False)) -> do do return kl_YaccParse _ -> throwError "if: expected boolean"))) let !appl_12 = ApplC (Func "lambda" (Context (\(!kl_Parse_shen_LBruleRB) -> do !appl_13 <- kl_fail !appl_14 <- appl_13 `pseq` (kl_Parse_shen_LBruleRB `pseq` eq appl_13 kl_Parse_shen_LBruleRB) !kl_if_15 <- appl_14 `pseq` kl_not appl_14 case kl_if_15 of Atom (B (True)) -> do let !appl_16 = ApplC (Func "lambda" (Context (\(!kl_Parse_shen_LBnon_ll_rulesRB) -> do !appl_17 <- kl_fail !appl_18 <- appl_17 `pseq` (kl_Parse_shen_LBnon_ll_rulesRB `pseq` eq appl_17 kl_Parse_shen_LBnon_ll_rulesRB) !kl_if_19 <- appl_18 `pseq` kl_not appl_18 case kl_if_19 of Atom (B (True)) -> do !appl_20 <- kl_Parse_shen_LBnon_ll_rulesRB `pseq` hd kl_Parse_shen_LBnon_ll_rulesRB !appl_21 <- kl_Parse_shen_LBruleRB `pseq` kl_shen_hdtl kl_Parse_shen_LBruleRB !appl_22 <- kl_Parse_shen_LBnon_ll_rulesRB `pseq` kl_shen_hdtl kl_Parse_shen_LBnon_ll_rulesRB !appl_23 <- appl_21 `pseq` (appl_22 `pseq` klCons appl_21 appl_22) appl_20 `pseq` (appl_23 `pseq` kl_shen_pair appl_20 appl_23) Atom (B (False)) -> do do kl_fail _ -> throwError "if: expected boolean"))) !appl_24 <- kl_Parse_shen_LBruleRB `pseq` kl_shen_LBnon_ll_rulesRB kl_Parse_shen_LBruleRB appl_24 `pseq` applyWrapper appl_16 [appl_24] Atom (B (False)) -> do do kl_fail _ -> throwError "if: expected boolean"))) !appl_25 <- kl_V3672 `pseq` kl_shen_LBruleRB kl_V3672 !appl_26 <- appl_25 `pseq` applyWrapper appl_12 [appl_25] appl_26 `pseq` applyWrapper appl_0 [appl_26] kl_shen_ue :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_ue (!kl_V3674) = do !kl_if_0 <- let pat_cond_1 kl_V3674 kl_V3674h kl_V3674t = do !kl_if_2 <- let pat_cond_3 kl_V3674t kl_V3674th kl_V3674tt = do let !appl_4 = Atom Nil !kl_if_5 <- appl_4 `pseq` (kl_V3674tt `pseq` eq appl_4 kl_V3674tt) !kl_if_6 <- case kl_if_5 of Atom (B (True)) -> do let pat_cond_7 = do return (Atom (B True)) pat_cond_8 = do do return (Atom (B False)) in case kl_V3674h of kl_V3674h@(Atom (UnboundSym "protect")) -> pat_cond_7 kl_V3674h@(ApplC (PL "protect" _)) -> pat_cond_7 kl_V3674h@(ApplC (Func "protect" _)) -> pat_cond_7 _ -> pat_cond_8 Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" case kl_if_6 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_9 = do do return (Atom (B False)) in case kl_V3674t of !(kl_V3674t@(Cons (!kl_V3674th) (!kl_V3674tt))) -> pat_cond_3 kl_V3674t kl_V3674th kl_V3674tt _ -> pat_cond_9 case kl_if_2 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_10 = do do return (Atom (B False)) in case kl_V3674 of !(kl_V3674@(Cons (!kl_V3674h) (!kl_V3674t))) -> pat_cond_1 kl_V3674 kl_V3674h kl_V3674t _ -> pat_cond_10 case kl_if_0 of Atom (B (True)) -> do return kl_V3674 Atom (B (False)) -> do let pat_cond_11 kl_V3674 kl_V3674h kl_V3674t = do let !appl_12 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do kl_Z `pseq` kl_shen_ue kl_Z))) appl_12 `pseq` (kl_V3674 `pseq` kl_map appl_12 kl_V3674) pat_cond_13 = do !kl_if_14 <- kl_V3674 `pseq` kl_variableP kl_V3674 case kl_if_14 of Atom (B (True)) -> do kl_V3674 `pseq` kl_concat (Core.Types.Atom (Core.Types.UnboundSym "&&")) kl_V3674 Atom (B (False)) -> do do return kl_V3674 _ -> throwError "if: expected boolean" in case kl_V3674 of !(kl_V3674@(Cons (!kl_V3674h) (!kl_V3674t))) -> pat_cond_11 kl_V3674 kl_V3674h kl_V3674t _ -> pat_cond_13 _ -> throwError "if: expected boolean" kl_shen_ue_sig :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_ue_sig (!kl_V3676) = do let pat_cond_0 kl_V3676 kl_V3676h kl_V3676t = do let !appl_1 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do kl_Z `pseq` kl_shen_ue_sig kl_Z))) appl_1 `pseq` (kl_V3676 `pseq` kl_map appl_1 kl_V3676) pat_cond_2 = do !kl_if_3 <- kl_V3676 `pseq` kl_variableP kl_V3676 case kl_if_3 of Atom (B (True)) -> do kl_V3676 `pseq` kl_concat (Core.Types.Atom (Core.Types.UnboundSym "&&&")) kl_V3676 Atom (B (False)) -> do do return kl_V3676 _ -> throwError "if: expected boolean" in case kl_V3676 of !(kl_V3676@(Cons (!kl_V3676h) (!kl_V3676t))) -> pat_cond_0 kl_V3676 kl_V3676h kl_V3676t _ -> pat_cond_2 kl_shen_ues :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_ues (!kl_V3682) = do !kl_if_0 <- kl_V3682 `pseq` kl_shen_ueP kl_V3682 case kl_if_0 of Atom (B (True)) -> do let !appl_1 = Atom Nil kl_V3682 `pseq` (appl_1 `pseq` klCons kl_V3682 appl_1) Atom (B (False)) -> do let pat_cond_2 kl_V3682 kl_V3682h kl_V3682t = do !appl_3 <- kl_V3682h `pseq` kl_shen_ues kl_V3682h !appl_4 <- kl_V3682t `pseq` kl_shen_ues kl_V3682t appl_3 `pseq` (appl_4 `pseq` kl_union appl_3 appl_4) pat_cond_5 = do do return (Atom Nil) in case kl_V3682 of !(kl_V3682@(Cons (!kl_V3682h) (!kl_V3682t))) -> pat_cond_2 kl_V3682 kl_V3682h kl_V3682t _ -> pat_cond_5 _ -> throwError "if: expected boolean" kl_shen_ueP :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_ueP (!kl_V3684) = do !kl_if_0 <- kl_V3684 `pseq` kl_symbolP kl_V3684 case kl_if_0 of Atom (B (True)) -> do !appl_1 <- kl_V3684 `pseq` str kl_V3684 !kl_if_2 <- appl_1 `pseq` kl_shen_ue_hP appl_1 case kl_if_2 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" kl_shen_ue_hP :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_ue_hP (!kl_V3692) = do !kl_if_0 <- kl_V3692 `pseq` kl_shen_PlusstringP kl_V3692 !kl_if_1 <- case kl_if_0 of Atom (B (True)) -> do !appl_2 <- kl_V3692 `pseq` pos kl_V3692 (Core.Types.Atom (Core.Types.N (Core.Types.KI 0))) !kl_if_3 <- appl_2 `pseq` eq (Core.Types.Atom (Core.Types.Str "&")) appl_2 !kl_if_4 <- case kl_if_3 of Atom (B (True)) -> do !appl_5 <- kl_V3692 `pseq` tlstr kl_V3692 !kl_if_6 <- appl_5 `pseq` kl_shen_PlusstringP appl_5 !kl_if_7 <- case kl_if_6 of Atom (B (True)) -> do !appl_8 <- kl_V3692 `pseq` tlstr kl_V3692 !appl_9 <- appl_8 `pseq` pos appl_8 (Core.Types.Atom (Core.Types.N (Core.Types.KI 0))) !kl_if_10 <- appl_9 `pseq` eq (Core.Types.Atom (Core.Types.Str "&")) appl_9 case kl_if_10 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" case kl_if_7 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" case kl_if_4 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" case kl_if_1 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" kl_shen_tMult_rules :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_tMult_rules (!kl_V3700) (!kl_V3701) (!kl_V3702) (!kl_V3703) (!kl_V3704) (!kl_V3705) (!kl_V3706) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Throwcontrol) -> do let !appl_1 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_2 = do let !appl_3 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_4 = do let !appl_5 = ApplC (Func "lambda" (Context (\(!kl_Err) -> do !appl_6 <- kl_shen_incinfs !appl_7 <- kl_V3702 `pseq` (kl_V3705 `pseq` kl_shen_lazyderef kl_V3702 kl_V3705) !appl_8 <- kl_V3703 `pseq` (kl_V3705 `pseq` kl_shen_lazyderef kl_V3703 kl_V3705) !appl_9 <- appl_8 `pseq` kl_shen_app appl_8 (Core.Types.Atom (Core.Types.Str "")) (Core.Types.Atom (Core.Types.UnboundSym "shen.a")) !appl_10 <- appl_9 `pseq` cn (Core.Types.Atom (Core.Types.Str " of ")) appl_9 !appl_11 <- appl_7 `pseq` (appl_10 `pseq` kl_shen_app appl_7 appl_10 (Core.Types.Atom (Core.Types.UnboundSym "shen.a"))) !appl_12 <- appl_11 `pseq` cn (Core.Types.Atom (Core.Types.Str "type error in rule ")) appl_11 !appl_13 <- appl_12 `pseq` simpleError appl_12 !appl_14 <- kl_Err `pseq` (appl_13 `pseq` (kl_V3705 `pseq` (kl_V3706 `pseq` kl_bind kl_Err appl_13 kl_V3705 kl_V3706))) appl_6 `pseq` (appl_14 `pseq` kl_do appl_6 appl_14)))) !appl_15 <- kl_V3705 `pseq` kl_shen_newpv kl_V3705 appl_15 `pseq` applyWrapper appl_5 [appl_15] pat_cond_16 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_4 kl_Case@(Atom (B (False))) -> pat_cond_4 _ -> pat_cond_16))) let !appl_17 = ApplC (Func "lambda" (Context (\(!kl_V3257) -> do let pat_cond_18 kl_V3257 kl_V3257h kl_V3257t = do let !appl_19 = ApplC (Func "lambda" (Context (\(!kl_Rule) -> do let !appl_20 = ApplC (Func "lambda" (Context (\(!kl_Rules) -> do !appl_21 <- kl_shen_incinfs !appl_22 <- kl_Rule `pseq` kl_shen_ue kl_Rule let !appl_23 = ApplC (PL "thunk" (do let !appl_24 = ApplC (PL "thunk" (do !appl_25 <- kl_V3702 `pseq` add kl_V3702 (Core.Types.Atom (Core.Types.N (Core.Types.KI 1))) kl_Rules `pseq` (kl_V3701 `pseq` (appl_25 `pseq` (kl_V3703 `pseq` (kl_V3704 `pseq` (kl_V3705 `pseq` (kl_V3706 `pseq` kl_shen_tMult_rules kl_Rules kl_V3701 appl_25 kl_V3703 kl_V3704 kl_V3705 kl_V3706)))))))) kl_Throwcontrol `pseq` (kl_V3705 `pseq` (appl_24 `pseq` kl_cut kl_Throwcontrol kl_V3705 appl_24)))) !appl_26 <- appl_22 `pseq` (kl_V3701 `pseq` (kl_V3704 `pseq` (kl_V3705 `pseq` (appl_23 `pseq` kl_shen_tMult_rule appl_22 kl_V3701 kl_V3704 kl_V3705 appl_23)))) appl_21 `pseq` (appl_26 `pseq` kl_do appl_21 appl_26)))) kl_V3257t `pseq` applyWrapper appl_20 [kl_V3257t]))) kl_V3257h `pseq` applyWrapper appl_19 [kl_V3257h] pat_cond_27 = do do return (Atom (B False)) in case kl_V3257 of !(kl_V3257@(Cons (!kl_V3257h) (!kl_V3257t))) -> pat_cond_18 kl_V3257 kl_V3257h kl_V3257t _ -> pat_cond_27))) !appl_28 <- kl_V3700 `pseq` (kl_V3705 `pseq` kl_shen_lazyderef kl_V3700 kl_V3705) !appl_29 <- appl_28 `pseq` applyWrapper appl_17 [appl_28] appl_29 `pseq` applyWrapper appl_3 [appl_29] pat_cond_30 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_2 kl_Case@(Atom (B (False))) -> pat_cond_2 _ -> pat_cond_30))) let !appl_31 = ApplC (Func "lambda" (Context (\(!kl_V3256) -> do let !appl_32 = Atom Nil !kl_if_33 <- appl_32 `pseq` (kl_V3256 `pseq` eq appl_32 kl_V3256) case kl_if_33 of Atom (B (True)) -> do !appl_34 <- kl_shen_incinfs !appl_35 <- kl_V3706 `pseq` kl_thaw kl_V3706 appl_34 `pseq` (appl_35 `pseq` kl_do appl_34 appl_35) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_36 <- kl_V3700 `pseq` (kl_V3705 `pseq` kl_shen_lazyderef kl_V3700 kl_V3705) !appl_37 <- appl_36 `pseq` applyWrapper appl_31 [appl_36] !appl_38 <- appl_37 `pseq` applyWrapper appl_1 [appl_37] kl_Throwcontrol `pseq` (appl_38 `pseq` kl_shen_cutpoint kl_Throwcontrol appl_38)))) !appl_39 <- kl_shen_catchpoint appl_39 `pseq` applyWrapper appl_0 [appl_39] kl_shen_tMult_rule :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_tMult_rule (!kl_V3712) (!kl_V3713) (!kl_V3714) (!kl_V3715) (!kl_V3716) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Throwcontrol) -> do let !appl_1 = ApplC (Func "lambda" (Context (\(!kl_V3248) -> do let pat_cond_2 kl_V3248 kl_V3248h kl_V3248t = do let !appl_3 = ApplC (Func "lambda" (Context (\(!kl_Patterns) -> do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_V3249) -> do let pat_cond_5 kl_V3249 kl_V3249h kl_V3249t = do let !appl_6 = ApplC (Func "lambda" (Context (\(!kl_Action) -> do let !appl_7 = ApplC (Func "lambda" (Context (\(!kl_V3250) -> do let !appl_8 = Atom Nil !kl_if_9 <- appl_8 `pseq` (kl_V3250 `pseq` eq appl_8 kl_V3250) case kl_if_9 of Atom (B (True)) -> do let !appl_10 = ApplC (Func "lambda" (Context (\(!kl_NewHyps) -> do !appl_11 <- kl_shen_incinfs !appl_12 <- kl_Patterns `pseq` kl_shen_placeholders kl_Patterns let !appl_13 = ApplC (PL "thunk" (do let !appl_14 = ApplC (PL "thunk" (do let !appl_15 = ApplC (PL "thunk" (do !appl_16 <- kl_Action `pseq` kl_shen_ue kl_Action !appl_17 <- appl_16 `pseq` kl_shen_curry appl_16 !appl_18 <- kl_Patterns `pseq` (kl_V3713 `pseq` kl_shen_result_type kl_Patterns kl_V3713) !appl_19 <- kl_Patterns `pseq` (kl_V3713 `pseq` (kl_V3714 `pseq` kl_shen_patthyps kl_Patterns kl_V3713 kl_V3714)) appl_17 `pseq` (appl_18 `pseq` (appl_19 `pseq` (kl_V3715 `pseq` (kl_V3716 `pseq` kl_shen_tMult_action appl_17 appl_18 appl_19 kl_V3715 kl_V3716)))))) kl_Throwcontrol `pseq` (kl_V3715 `pseq` (appl_15 `pseq` kl_cut kl_Throwcontrol kl_V3715 appl_15)))) kl_Patterns `pseq` (kl_V3713 `pseq` (kl_NewHyps `pseq` (kl_V3715 `pseq` (appl_14 `pseq` kl_shen_tMult_patterns kl_Patterns kl_V3713 kl_NewHyps kl_V3715 appl_14)))))) !appl_20 <- appl_12 `pseq` (kl_V3714 `pseq` (kl_NewHyps `pseq` (kl_V3715 `pseq` (appl_13 `pseq` kl_shen_newhyps appl_12 kl_V3714 kl_NewHyps kl_V3715 appl_13)))) appl_11 `pseq` (appl_20 `pseq` kl_do appl_11 appl_20)))) !appl_21 <- kl_V3715 `pseq` kl_shen_newpv kl_V3715 appl_21 `pseq` applyWrapper appl_10 [appl_21] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_22 <- kl_V3249t `pseq` (kl_V3715 `pseq` kl_shen_lazyderef kl_V3249t kl_V3715) appl_22 `pseq` applyWrapper appl_7 [appl_22]))) kl_V3249h `pseq` applyWrapper appl_6 [kl_V3249h] pat_cond_23 = do do return (Atom (B False)) in case kl_V3249 of !(kl_V3249@(Cons (!kl_V3249h) (!kl_V3249t))) -> pat_cond_5 kl_V3249 kl_V3249h kl_V3249t _ -> pat_cond_23))) !appl_24 <- kl_V3248t `pseq` (kl_V3715 `pseq` kl_shen_lazyderef kl_V3248t kl_V3715) appl_24 `pseq` applyWrapper appl_4 [appl_24]))) kl_V3248h `pseq` applyWrapper appl_3 [kl_V3248h] pat_cond_25 = do do return (Atom (B False)) in case kl_V3248 of !(kl_V3248@(Cons (!kl_V3248h) (!kl_V3248t))) -> pat_cond_2 kl_V3248 kl_V3248h kl_V3248t _ -> pat_cond_25))) !appl_26 <- kl_V3712 `pseq` (kl_V3715 `pseq` kl_shen_lazyderef kl_V3712 kl_V3715) !appl_27 <- appl_26 `pseq` applyWrapper appl_1 [appl_26] kl_Throwcontrol `pseq` (appl_27 `pseq` kl_shen_cutpoint kl_Throwcontrol appl_27)))) !appl_28 <- kl_shen_catchpoint appl_28 `pseq` applyWrapper appl_0 [appl_28] kl_shen_placeholders :: Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_placeholders (!kl_V3722) = do !kl_if_0 <- kl_V3722 `pseq` kl_shen_ueP kl_V3722 case kl_if_0 of Atom (B (True)) -> do let !appl_1 = Atom Nil kl_V3722 `pseq` (appl_1 `pseq` klCons kl_V3722 appl_1) Atom (B (False)) -> do let pat_cond_2 kl_V3722 kl_V3722h kl_V3722t = do !appl_3 <- kl_V3722h `pseq` kl_shen_placeholders kl_V3722h !appl_4 <- kl_V3722t `pseq` kl_shen_placeholders kl_V3722t appl_3 `pseq` (appl_4 `pseq` kl_union appl_3 appl_4) pat_cond_5 = do do return (Atom Nil) in case kl_V3722 of !(kl_V3722@(Cons (!kl_V3722h) (!kl_V3722t))) -> pat_cond_2 kl_V3722 kl_V3722h kl_V3722t _ -> pat_cond_5 _ -> throwError "if: expected boolean" kl_shen_newhyps :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_newhyps (!kl_V3728) (!kl_V3729) (!kl_V3730) (!kl_V3731) (!kl_V3732) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_V3236) -> do let pat_cond_3 kl_V3236 kl_V3236h kl_V3236t = do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_V3231) -> do let !appl_5 = ApplC (Func "lambda" (Context (\(!kl_Vs) -> do let !appl_6 = ApplC (Func "lambda" (Context (\(!kl_V3237) -> do let pat_cond_7 kl_V3237 kl_V3237h kl_V3237t = do let !appl_8 = ApplC (Func "lambda" (Context (\(!kl_V3238) -> do let pat_cond_9 kl_V3238 kl_V3238h kl_V3238t = do let !appl_10 = ApplC (Func "lambda" (Context (\(!kl_V) -> do let !appl_11 = ApplC (Func "lambda" (Context (\(!kl_V3239) -> do let pat_cond_12 kl_V3239 kl_V3239h kl_V3239t = do let !appl_13 = ApplC (Func "lambda" (Context (\(!kl_V3240) -> do let pat_cond_14 = do let !appl_15 = ApplC (Func "lambda" (Context (\(!kl_V3241) -> do let pat_cond_16 kl_V3241 kl_V3241h kl_V3241t = do let !appl_17 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_18 = ApplC (Func "lambda" (Context (\(!kl_V3242) -> do let !appl_19 = Atom Nil !kl_if_20 <- appl_19 `pseq` (kl_V3242 `pseq` eq appl_19 kl_V3242) case kl_if_20 of Atom (B (True)) -> do let !appl_21 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_22 <- kl_shen_incinfs let !appl_23 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3729 `pseq` (kl_NewHyp `pseq` (kl_V3731 `pseq` (kl_V3732 `pseq` kl_shen_newhyps kl_Vs kl_V3729 kl_NewHyp kl_V3731 kl_V3732)))))) !appl_24 <- kl_V `pseq` (kl_V3231 `pseq` (kl_V3731 `pseq` (appl_23 `pseq` kl_unifyExcl kl_V kl_V3231 kl_V3731 appl_23))) appl_22 `pseq` (appl_24 `pseq` kl_do appl_22 appl_24)))) kl_V3237t `pseq` applyWrapper appl_21 [kl_V3237t] Atom (B (False)) -> do do !kl_if_25 <- kl_V3242 `pseq` kl_shen_pvarP kl_V3242 case kl_if_25 of Atom (B (True)) -> do let !appl_26 = Atom Nil !appl_27 <- kl_V3242 `pseq` (appl_26 `pseq` (kl_V3731 `pseq` kl_shen_bindv kl_V3242 appl_26 kl_V3731)) let !appl_28 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_29 <- kl_V3242 `pseq` (kl_V3731 `pseq` kl_shen_unbindv kl_V3242 kl_V3731) appl_29 `pseq` (kl_Result `pseq` kl_do appl_29 kl_Result)))) let !appl_30 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_31 <- kl_shen_incinfs let !appl_32 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3729 `pseq` (kl_NewHyp `pseq` (kl_V3731 `pseq` (kl_V3732 `pseq` kl_shen_newhyps kl_Vs kl_V3729 kl_NewHyp kl_V3731 kl_V3732)))))) !appl_33 <- kl_V `pseq` (kl_V3231 `pseq` (kl_V3731 `pseq` (appl_32 `pseq` kl_unifyExcl kl_V kl_V3231 kl_V3731 appl_32))) appl_31 `pseq` (appl_33 `pseq` kl_do appl_31 appl_33)))) !appl_34 <- kl_V3237t `pseq` applyWrapper appl_30 [kl_V3237t] !appl_35 <- appl_34 `pseq` applyWrapper appl_28 [appl_34] appl_27 `pseq` (appl_35 `pseq` kl_do appl_27 appl_35) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_36 <- kl_V3241t `pseq` (kl_V3731 `pseq` kl_shen_lazyderef kl_V3241t kl_V3731) appl_36 `pseq` applyWrapper appl_18 [appl_36]))) kl_V3241h `pseq` applyWrapper appl_17 [kl_V3241h] pat_cond_37 = do do !kl_if_38 <- kl_V3241 `pseq` kl_shen_pvarP kl_V3241 case kl_if_38 of Atom (B (True)) -> do let !appl_39 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_40 = Atom Nil !appl_41 <- kl_A `pseq` (appl_40 `pseq` klCons kl_A appl_40) !appl_42 <- kl_V3241 `pseq` (appl_41 `pseq` (kl_V3731 `pseq` kl_shen_bindv kl_V3241 appl_41 kl_V3731)) let !appl_43 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_44 <- kl_V3241 `pseq` (kl_V3731 `pseq` kl_shen_unbindv kl_V3241 kl_V3731) appl_44 `pseq` (kl_Result `pseq` kl_do appl_44 kl_Result)))) let !appl_45 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_46 <- kl_shen_incinfs let !appl_47 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3729 `pseq` (kl_NewHyp `pseq` (kl_V3731 `pseq` (kl_V3732 `pseq` kl_shen_newhyps kl_Vs kl_V3729 kl_NewHyp kl_V3731 kl_V3732)))))) !appl_48 <- kl_V `pseq` (kl_V3231 `pseq` (kl_V3731 `pseq` (appl_47 `pseq` kl_unifyExcl kl_V kl_V3231 kl_V3731 appl_47))) appl_46 `pseq` (appl_48 `pseq` kl_do appl_46 appl_48)))) !appl_49 <- kl_V3237t `pseq` applyWrapper appl_45 [kl_V3237t] !appl_50 <- appl_49 `pseq` applyWrapper appl_43 [appl_49] appl_42 `pseq` (appl_50 `pseq` kl_do appl_42 appl_50)))) !appl_51 <- kl_V3731 `pseq` kl_shen_newpv kl_V3731 appl_51 `pseq` applyWrapper appl_39 [appl_51] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3241 of !(kl_V3241@(Cons (!kl_V3241h) (!kl_V3241t))) -> pat_cond_16 kl_V3241 kl_V3241h kl_V3241t _ -> pat_cond_37))) !appl_52 <- kl_V3239t `pseq` (kl_V3731 `pseq` kl_shen_lazyderef kl_V3239t kl_V3731) appl_52 `pseq` applyWrapper appl_15 [appl_52] pat_cond_53 = do do !kl_if_54 <- kl_V3240 `pseq` kl_shen_pvarP kl_V3240 case kl_if_54 of Atom (B (True)) -> do !appl_55 <- kl_V3240 `pseq` (kl_V3731 `pseq` kl_shen_bindv kl_V3240 (Core.Types.Atom (Core.Types.UnboundSym ":")) kl_V3731) let !appl_56 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_57 <- kl_V3240 `pseq` (kl_V3731 `pseq` kl_shen_unbindv kl_V3240 kl_V3731) appl_57 `pseq` (kl_Result `pseq` kl_do appl_57 kl_Result)))) let !appl_58 = ApplC (Func "lambda" (Context (\(!kl_V3243) -> do let pat_cond_59 kl_V3243 kl_V3243h kl_V3243t = do let !appl_60 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_61 = ApplC (Func "lambda" (Context (\(!kl_V3244) -> do let !appl_62 = Atom Nil !kl_if_63 <- appl_62 `pseq` (kl_V3244 `pseq` eq appl_62 kl_V3244) case kl_if_63 of Atom (B (True)) -> do let !appl_64 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_65 <- kl_shen_incinfs let !appl_66 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3729 `pseq` (kl_NewHyp `pseq` (kl_V3731 `pseq` (kl_V3732 `pseq` kl_shen_newhyps kl_Vs kl_V3729 kl_NewHyp kl_V3731 kl_V3732)))))) !appl_67 <- kl_V `pseq` (kl_V3231 `pseq` (kl_V3731 `pseq` (appl_66 `pseq` kl_unifyExcl kl_V kl_V3231 kl_V3731 appl_66))) appl_65 `pseq` (appl_67 `pseq` kl_do appl_65 appl_67)))) kl_V3237t `pseq` applyWrapper appl_64 [kl_V3237t] Atom (B (False)) -> do do !kl_if_68 <- kl_V3244 `pseq` kl_shen_pvarP kl_V3244 case kl_if_68 of Atom (B (True)) -> do let !appl_69 = Atom Nil !appl_70 <- kl_V3244 `pseq` (appl_69 `pseq` (kl_V3731 `pseq` kl_shen_bindv kl_V3244 appl_69 kl_V3731)) let !appl_71 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_72 <- kl_V3244 `pseq` (kl_V3731 `pseq` kl_shen_unbindv kl_V3244 kl_V3731) appl_72 `pseq` (kl_Result `pseq` kl_do appl_72 kl_Result)))) let !appl_73 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_74 <- kl_shen_incinfs let !appl_75 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3729 `pseq` (kl_NewHyp `pseq` (kl_V3731 `pseq` (kl_V3732 `pseq` kl_shen_newhyps kl_Vs kl_V3729 kl_NewHyp kl_V3731 kl_V3732)))))) !appl_76 <- kl_V `pseq` (kl_V3231 `pseq` (kl_V3731 `pseq` (appl_75 `pseq` kl_unifyExcl kl_V kl_V3231 kl_V3731 appl_75))) appl_74 `pseq` (appl_76 `pseq` kl_do appl_74 appl_76)))) !appl_77 <- kl_V3237t `pseq` applyWrapper appl_73 [kl_V3237t] !appl_78 <- appl_77 `pseq` applyWrapper appl_71 [appl_77] appl_70 `pseq` (appl_78 `pseq` kl_do appl_70 appl_78) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean"))) !appl_79 <- kl_V3243t `pseq` (kl_V3731 `pseq` kl_shen_lazyderef kl_V3243t kl_V3731) appl_79 `pseq` applyWrapper appl_61 [appl_79]))) kl_V3243h `pseq` applyWrapper appl_60 [kl_V3243h] pat_cond_80 = do do !kl_if_81 <- kl_V3243 `pseq` kl_shen_pvarP kl_V3243 case kl_if_81 of Atom (B (True)) -> do let !appl_82 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_83 = Atom Nil !appl_84 <- kl_A `pseq` (appl_83 `pseq` klCons kl_A appl_83) !appl_85 <- kl_V3243 `pseq` (appl_84 `pseq` (kl_V3731 `pseq` kl_shen_bindv kl_V3243 appl_84 kl_V3731)) let !appl_86 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_87 <- kl_V3243 `pseq` (kl_V3731 `pseq` kl_shen_unbindv kl_V3243 kl_V3731) appl_87 `pseq` (kl_Result `pseq` kl_do appl_87 kl_Result)))) let !appl_88 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_89 <- kl_shen_incinfs let !appl_90 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3729 `pseq` (kl_NewHyp `pseq` (kl_V3731 `pseq` (kl_V3732 `pseq` kl_shen_newhyps kl_Vs kl_V3729 kl_NewHyp kl_V3731 kl_V3732)))))) !appl_91 <- kl_V `pseq` (kl_V3231 `pseq` (kl_V3731 `pseq` (appl_90 `pseq` kl_unifyExcl kl_V kl_V3231 kl_V3731 appl_90))) appl_89 `pseq` (appl_91 `pseq` kl_do appl_89 appl_91)))) !appl_92 <- kl_V3237t `pseq` applyWrapper appl_88 [kl_V3237t] !appl_93 <- appl_92 `pseq` applyWrapper appl_86 [appl_92] appl_85 `pseq` (appl_93 `pseq` kl_do appl_85 appl_93)))) !appl_94 <- kl_V3731 `pseq` kl_shen_newpv kl_V3731 appl_94 `pseq` applyWrapper appl_82 [appl_94] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3243 of !(kl_V3243@(Cons (!kl_V3243h) (!kl_V3243t))) -> pat_cond_59 kl_V3243 kl_V3243h kl_V3243t _ -> pat_cond_80))) !appl_95 <- kl_V3239t `pseq` (kl_V3731 `pseq` kl_shen_lazyderef kl_V3239t kl_V3731) !appl_96 <- appl_95 `pseq` applyWrapper appl_58 [appl_95] !appl_97 <- appl_96 `pseq` applyWrapper appl_56 [appl_96] appl_55 `pseq` (appl_97 `pseq` kl_do appl_55 appl_97) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3240 of kl_V3240@(Atom (UnboundSym ":")) -> pat_cond_14 kl_V3240@(ApplC (PL ":" _)) -> pat_cond_14 kl_V3240@(ApplC (Func ":" _)) -> pat_cond_14 _ -> pat_cond_53))) !appl_98 <- kl_V3239h `pseq` (kl_V3731 `pseq` kl_shen_lazyderef kl_V3239h kl_V3731) appl_98 `pseq` applyWrapper appl_13 [appl_98] pat_cond_99 = do do !kl_if_100 <- kl_V3239 `pseq` kl_shen_pvarP kl_V3239 case kl_if_100 of Atom (B (True)) -> do let !appl_101 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_102 = Atom Nil !appl_103 <- kl_A `pseq` (appl_102 `pseq` klCons kl_A appl_102) !appl_104 <- appl_103 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_103 !appl_105 <- kl_V3239 `pseq` (appl_104 `pseq` (kl_V3731 `pseq` kl_shen_bindv kl_V3239 appl_104 kl_V3731)) let !appl_106 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_107 <- kl_V3239 `pseq` (kl_V3731 `pseq` kl_shen_unbindv kl_V3239 kl_V3731) appl_107 `pseq` (kl_Result `pseq` kl_do appl_107 kl_Result)))) let !appl_108 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_109 <- kl_shen_incinfs let !appl_110 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3729 `pseq` (kl_NewHyp `pseq` (kl_V3731 `pseq` (kl_V3732 `pseq` kl_shen_newhyps kl_Vs kl_V3729 kl_NewHyp kl_V3731 kl_V3732)))))) !appl_111 <- kl_V `pseq` (kl_V3231 `pseq` (kl_V3731 `pseq` (appl_110 `pseq` kl_unifyExcl kl_V kl_V3231 kl_V3731 appl_110))) appl_109 `pseq` (appl_111 `pseq` kl_do appl_109 appl_111)))) !appl_112 <- kl_V3237t `pseq` applyWrapper appl_108 [kl_V3237t] !appl_113 <- appl_112 `pseq` applyWrapper appl_106 [appl_112] appl_105 `pseq` (appl_113 `pseq` kl_do appl_105 appl_113)))) !appl_114 <- kl_V3731 `pseq` kl_shen_newpv kl_V3731 appl_114 `pseq` applyWrapper appl_101 [appl_114] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3239 of !(kl_V3239@(Cons (!kl_V3239h) (!kl_V3239t))) -> pat_cond_12 kl_V3239 kl_V3239h kl_V3239t _ -> pat_cond_99))) !appl_115 <- kl_V3238t `pseq` (kl_V3731 `pseq` kl_shen_lazyderef kl_V3238t kl_V3731) appl_115 `pseq` applyWrapper appl_11 [appl_115]))) kl_V3238h `pseq` applyWrapper appl_10 [kl_V3238h] pat_cond_116 = do do !kl_if_117 <- kl_V3238 `pseq` kl_shen_pvarP kl_V3238 case kl_if_117 of Atom (B (True)) -> do let !appl_118 = ApplC (Func "lambda" (Context (\(!kl_V) -> do let !appl_119 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_120 = Atom Nil !appl_121 <- kl_A `pseq` (appl_120 `pseq` klCons kl_A appl_120) !appl_122 <- appl_121 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_121 !appl_123 <- kl_V `pseq` (appl_122 `pseq` klCons kl_V appl_122) !appl_124 <- kl_V3238 `pseq` (appl_123 `pseq` (kl_V3731 `pseq` kl_shen_bindv kl_V3238 appl_123 kl_V3731)) let !appl_125 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_126 <- kl_V3238 `pseq` (kl_V3731 `pseq` kl_shen_unbindv kl_V3238 kl_V3731) appl_126 `pseq` (kl_Result `pseq` kl_do appl_126 kl_Result)))) let !appl_127 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_128 <- kl_shen_incinfs let !appl_129 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3729 `pseq` (kl_NewHyp `pseq` (kl_V3731 `pseq` (kl_V3732 `pseq` kl_shen_newhyps kl_Vs kl_V3729 kl_NewHyp kl_V3731 kl_V3732)))))) !appl_130 <- kl_V `pseq` (kl_V3231 `pseq` (kl_V3731 `pseq` (appl_129 `pseq` kl_unifyExcl kl_V kl_V3231 kl_V3731 appl_129))) appl_128 `pseq` (appl_130 `pseq` kl_do appl_128 appl_130)))) !appl_131 <- kl_V3237t `pseq` applyWrapper appl_127 [kl_V3237t] !appl_132 <- appl_131 `pseq` applyWrapper appl_125 [appl_131] appl_124 `pseq` (appl_132 `pseq` kl_do appl_124 appl_132)))) !appl_133 <- kl_V3731 `pseq` kl_shen_newpv kl_V3731 appl_133 `pseq` applyWrapper appl_119 [appl_133]))) !appl_134 <- kl_V3731 `pseq` kl_shen_newpv kl_V3731 appl_134 `pseq` applyWrapper appl_118 [appl_134] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3238 of !(kl_V3238@(Cons (!kl_V3238h) (!kl_V3238t))) -> pat_cond_9 kl_V3238 kl_V3238h kl_V3238t _ -> pat_cond_116))) !appl_135 <- kl_V3237h `pseq` (kl_V3731 `pseq` kl_shen_lazyderef kl_V3237h kl_V3731) appl_135 `pseq` applyWrapper appl_8 [appl_135] pat_cond_136 = do do !kl_if_137 <- kl_V3237 `pseq` kl_shen_pvarP kl_V3237 case kl_if_137 of Atom (B (True)) -> do let !appl_138 = ApplC (Func "lambda" (Context (\(!kl_V) -> do let !appl_139 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_140 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do let !appl_141 = Atom Nil !appl_142 <- kl_A `pseq` (appl_141 `pseq` klCons kl_A appl_141) !appl_143 <- appl_142 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_142 !appl_144 <- kl_V `pseq` (appl_143 `pseq` klCons kl_V appl_143) !appl_145 <- appl_144 `pseq` (kl_NewHyp `pseq` klCons appl_144 kl_NewHyp) !appl_146 <- kl_V3237 `pseq` (appl_145 `pseq` (kl_V3731 `pseq` kl_shen_bindv kl_V3237 appl_145 kl_V3731)) let !appl_147 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_148 <- kl_V3237 `pseq` (kl_V3731 `pseq` kl_shen_unbindv kl_V3237 kl_V3731) appl_148 `pseq` (kl_Result `pseq` kl_do appl_148 kl_Result)))) !appl_149 <- kl_shen_incinfs let !appl_150 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3729 `pseq` (kl_NewHyp `pseq` (kl_V3731 `pseq` (kl_V3732 `pseq` kl_shen_newhyps kl_Vs kl_V3729 kl_NewHyp kl_V3731 kl_V3732)))))) !appl_151 <- kl_V `pseq` (kl_V3231 `pseq` (kl_V3731 `pseq` (appl_150 `pseq` kl_unifyExcl kl_V kl_V3231 kl_V3731 appl_150))) !appl_152 <- appl_149 `pseq` (appl_151 `pseq` kl_do appl_149 appl_151) !appl_153 <- appl_152 `pseq` applyWrapper appl_147 [appl_152] appl_146 `pseq` (appl_153 `pseq` kl_do appl_146 appl_153)))) !appl_154 <- kl_V3731 `pseq` kl_shen_newpv kl_V3731 appl_154 `pseq` applyWrapper appl_140 [appl_154]))) !appl_155 <- kl_V3731 `pseq` kl_shen_newpv kl_V3731 appl_155 `pseq` applyWrapper appl_139 [appl_155]))) !appl_156 <- kl_V3731 `pseq` kl_shen_newpv kl_V3731 appl_156 `pseq` applyWrapper appl_138 [appl_156] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3237 of !(kl_V3237@(Cons (!kl_V3237h) (!kl_V3237t))) -> pat_cond_7 kl_V3237 kl_V3237h kl_V3237t _ -> pat_cond_136))) !appl_157 <- kl_V3730 `pseq` (kl_V3731 `pseq` kl_shen_lazyderef kl_V3730 kl_V3731) appl_157 `pseq` applyWrapper appl_6 [appl_157]))) kl_V3236t `pseq` applyWrapper appl_5 [kl_V3236t]))) kl_V3236h `pseq` applyWrapper appl_4 [kl_V3236h] pat_cond_158 = do do return (Atom (B False)) in case kl_V3236 of !(kl_V3236@(Cons (!kl_V3236h) (!kl_V3236t))) -> pat_cond_3 kl_V3236 kl_V3236h kl_V3236t _ -> pat_cond_158))) !appl_159 <- kl_V3728 `pseq` (kl_V3731 `pseq` kl_shen_lazyderef kl_V3728 kl_V3731) appl_159 `pseq` applyWrapper appl_2 [appl_159] pat_cond_160 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_1 kl_Case@(Atom (B (False))) -> pat_cond_1 _ -> pat_cond_160))) let !appl_161 = ApplC (Func "lambda" (Context (\(!kl_V3235) -> do let !appl_162 = Atom Nil !kl_if_163 <- appl_162 `pseq` (kl_V3235 `pseq` eq appl_162 kl_V3235) case kl_if_163 of Atom (B (True)) -> do !appl_164 <- kl_shen_incinfs !appl_165 <- kl_V3730 `pseq` (kl_V3729 `pseq` (kl_V3731 `pseq` (kl_V3732 `pseq` kl_unifyExcl kl_V3730 kl_V3729 kl_V3731 kl_V3732))) appl_164 `pseq` (appl_165 `pseq` kl_do appl_164 appl_165) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_166 <- kl_V3728 `pseq` (kl_V3731 `pseq` kl_shen_lazyderef kl_V3728 kl_V3731) !appl_167 <- appl_166 `pseq` applyWrapper appl_161 [appl_166] appl_167 `pseq` applyWrapper appl_0 [appl_167] kl_shen_patthyps :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_patthyps (!kl_V3738) (!kl_V3739) (!kl_V3740) = do let !appl_0 = Atom Nil !kl_if_1 <- appl_0 `pseq` (kl_V3738 `pseq` eq appl_0 kl_V3738) case kl_if_1 of Atom (B (True)) -> do return kl_V3740 Atom (B (False)) -> do !kl_if_2 <- let pat_cond_3 kl_V3738 kl_V3738h kl_V3738t = do !kl_if_4 <- let pat_cond_5 kl_V3739 kl_V3739h kl_V3739t = do !kl_if_6 <- let pat_cond_7 kl_V3739t kl_V3739th kl_V3739tt = do !kl_if_8 <- let pat_cond_9 = do !kl_if_10 <- let pat_cond_11 kl_V3739tt kl_V3739tth kl_V3739ttt = do let !appl_12 = Atom Nil !kl_if_13 <- appl_12 `pseq` (kl_V3739ttt `pseq` eq appl_12 kl_V3739ttt) case kl_if_13 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_14 = do do return (Atom (B False)) in case kl_V3739tt of !(kl_V3739tt@(Cons (!kl_V3739tth) (!kl_V3739ttt))) -> pat_cond_11 kl_V3739tt kl_V3739tth kl_V3739ttt _ -> pat_cond_14 case kl_if_10 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_15 = do do return (Atom (B False)) in case kl_V3739th of kl_V3739th@(Atom (UnboundSym "-->")) -> pat_cond_9 kl_V3739th@(ApplC (PL "-->" _)) -> pat_cond_9 kl_V3739th@(ApplC (Func "-->" _)) -> pat_cond_9 _ -> pat_cond_15 case kl_if_8 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_16 = do do return (Atom (B False)) in case kl_V3739t of !(kl_V3739t@(Cons (!kl_V3739th) (!kl_V3739tt))) -> pat_cond_7 kl_V3739t kl_V3739th kl_V3739tt _ -> pat_cond_16 case kl_if_6 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_17 = do do return (Atom (B False)) in case kl_V3739 of !(kl_V3739@(Cons (!kl_V3739h) (!kl_V3739t))) -> pat_cond_5 kl_V3739 kl_V3739h kl_V3739t _ -> pat_cond_17 case kl_if_4 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_18 = do do return (Atom (B False)) in case kl_V3738 of !(kl_V3738@(Cons (!kl_V3738h) (!kl_V3738t))) -> pat_cond_3 kl_V3738 kl_V3738h kl_V3738t _ -> pat_cond_18 case kl_if_2 of Atom (B (True)) -> do !appl_19 <- kl_V3738 `pseq` hd kl_V3738 !appl_20 <- kl_V3739 `pseq` hd kl_V3739 let !appl_21 = Atom Nil !appl_22 <- appl_20 `pseq` (appl_21 `pseq` klCons appl_20 appl_21) !appl_23 <- appl_22 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_22 !appl_24 <- appl_19 `pseq` (appl_23 `pseq` klCons appl_19 appl_23) !appl_25 <- kl_V3738 `pseq` tl kl_V3738 !appl_26 <- kl_V3739 `pseq` tl kl_V3739 !appl_27 <- appl_26 `pseq` tl appl_26 !appl_28 <- appl_27 `pseq` hd appl_27 !appl_29 <- appl_25 `pseq` (appl_28 `pseq` (kl_V3740 `pseq` kl_shen_patthyps appl_25 appl_28 kl_V3740)) appl_24 `pseq` (appl_29 `pseq` kl_adjoin appl_24 appl_29) Atom (B (False)) -> do do kl_shen_f_error (ApplC (wrapNamed "shen.patthyps" kl_shen_patthyps)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean" kl_shen_result_type :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_result_type (!kl_V3747) (!kl_V3748) = do let !appl_0 = Atom Nil !kl_if_1 <- appl_0 `pseq` (kl_V3747 `pseq` eq appl_0 kl_V3747) !kl_if_2 <- case kl_if_1 of Atom (B (True)) -> do !kl_if_3 <- let pat_cond_4 kl_V3748 kl_V3748h kl_V3748t = do !kl_if_5 <- let pat_cond_6 = do !kl_if_7 <- let pat_cond_8 kl_V3748t kl_V3748th kl_V3748tt = do let !appl_9 = Atom Nil !kl_if_10 <- appl_9 `pseq` (kl_V3748tt `pseq` eq appl_9 kl_V3748tt) case kl_if_10 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_11 = do do return (Atom (B False)) in case kl_V3748t of !(kl_V3748t@(Cons (!kl_V3748th) (!kl_V3748tt))) -> pat_cond_8 kl_V3748t kl_V3748th kl_V3748tt _ -> pat_cond_11 case kl_if_7 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_12 = do do return (Atom (B False)) in case kl_V3748h of kl_V3748h@(Atom (UnboundSym "-->")) -> pat_cond_6 kl_V3748h@(ApplC (PL "-->" _)) -> pat_cond_6 kl_V3748h@(ApplC (Func "-->" _)) -> pat_cond_6 _ -> pat_cond_12 case kl_if_5 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_13 = do do return (Atom (B False)) in case kl_V3748 of !(kl_V3748@(Cons (!kl_V3748h) (!kl_V3748t))) -> pat_cond_4 kl_V3748 kl_V3748h kl_V3748t _ -> pat_cond_13 case kl_if_3 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" case kl_if_2 of Atom (B (True)) -> do !appl_14 <- kl_V3748 `pseq` tl kl_V3748 appl_14 `pseq` hd appl_14 Atom (B (False)) -> do let !appl_15 = Atom Nil !kl_if_16 <- appl_15 `pseq` (kl_V3747 `pseq` eq appl_15 kl_V3747) case kl_if_16 of Atom (B (True)) -> do return kl_V3748 Atom (B (False)) -> do !kl_if_17 <- let pat_cond_18 kl_V3747 kl_V3747h kl_V3747t = do !kl_if_19 <- let pat_cond_20 kl_V3748 kl_V3748h kl_V3748t = do !kl_if_21 <- let pat_cond_22 kl_V3748t kl_V3748th kl_V3748tt = do !kl_if_23 <- let pat_cond_24 = do !kl_if_25 <- let pat_cond_26 kl_V3748tt kl_V3748tth kl_V3748ttt = do let !appl_27 = Atom Nil !kl_if_28 <- appl_27 `pseq` (kl_V3748ttt `pseq` eq appl_27 kl_V3748ttt) case kl_if_28 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_29 = do do return (Atom (B False)) in case kl_V3748tt of !(kl_V3748tt@(Cons (!kl_V3748tth) (!kl_V3748ttt))) -> pat_cond_26 kl_V3748tt kl_V3748tth kl_V3748ttt _ -> pat_cond_29 case kl_if_25 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_30 = do do return (Atom (B False)) in case kl_V3748th of kl_V3748th@(Atom (UnboundSym "-->")) -> pat_cond_24 kl_V3748th@(ApplC (PL "-->" _)) -> pat_cond_24 kl_V3748th@(ApplC (Func "-->" _)) -> pat_cond_24 _ -> pat_cond_30 case kl_if_23 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_31 = do do return (Atom (B False)) in case kl_V3748t of !(kl_V3748t@(Cons (!kl_V3748th) (!kl_V3748tt))) -> pat_cond_22 kl_V3748t kl_V3748th kl_V3748tt _ -> pat_cond_31 case kl_if_21 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_32 = do do return (Atom (B False)) in case kl_V3748 of !(kl_V3748@(Cons (!kl_V3748h) (!kl_V3748t))) -> pat_cond_20 kl_V3748 kl_V3748h kl_V3748t _ -> pat_cond_32 case kl_if_19 of Atom (B (True)) -> do return (Atom (B True)) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" pat_cond_33 = do do return (Atom (B False)) in case kl_V3747 of !(kl_V3747@(Cons (!kl_V3747h) (!kl_V3747t))) -> pat_cond_18 kl_V3747 kl_V3747h kl_V3747t _ -> pat_cond_33 case kl_if_17 of Atom (B (True)) -> do !appl_34 <- kl_V3747 `pseq` tl kl_V3747 !appl_35 <- kl_V3748 `pseq` tl kl_V3748 !appl_36 <- appl_35 `pseq` tl appl_35 !appl_37 <- appl_36 `pseq` hd appl_36 appl_34 `pseq` (appl_37 `pseq` kl_shen_result_type appl_34 appl_37) Atom (B (False)) -> do do kl_shen_f_error (ApplC (wrapNamed "shen.result-type" kl_shen_result_type)) _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean" kl_shen_tMult_patterns :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_tMult_patterns (!kl_V3754) (!kl_V3755) (!kl_V3756) (!kl_V3757) (!kl_V3758) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_V3224) -> do let pat_cond_3 kl_V3224 kl_V3224h kl_V3224t = do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_Pattern) -> do let !appl_5 = ApplC (Func "lambda" (Context (\(!kl_Patterns) -> do let !appl_6 = ApplC (Func "lambda" (Context (\(!kl_V3225) -> do let pat_cond_7 kl_V3225 kl_V3225h kl_V3225t = do let !appl_8 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_9 = ApplC (Func "lambda" (Context (\(!kl_V3226) -> do let pat_cond_10 kl_V3226 kl_V3226h kl_V3226t = do let !appl_11 = ApplC (Func "lambda" (Context (\(!kl_V3227) -> do let pat_cond_12 = do let !appl_13 = ApplC (Func "lambda" (Context (\(!kl_V3228) -> do let pat_cond_14 kl_V3228 kl_V3228h kl_V3228t = do let !appl_15 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_16 = ApplC (Func "lambda" (Context (\(!kl_V3229) -> do let !appl_17 = Atom Nil !kl_if_18 <- appl_17 `pseq` (kl_V3229 `pseq` eq appl_17 kl_V3229) case kl_if_18 of Atom (B (True)) -> do !appl_19 <- kl_shen_incinfs let !appl_20 = Atom Nil !appl_21 <- kl_A `pseq` (appl_20 `pseq` klCons kl_A appl_20) !appl_22 <- appl_21 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_21 !appl_23 <- kl_Pattern `pseq` (appl_22 `pseq` klCons kl_Pattern appl_22) let !appl_24 = ApplC (PL "thunk" (do kl_Patterns `pseq` (kl_B `pseq` (kl_V3756 `pseq` (kl_V3757 `pseq` (kl_V3758 `pseq` kl_shen_tMult_patterns kl_Patterns kl_B kl_V3756 kl_V3757 kl_V3758)))))) !appl_25 <- appl_23 `pseq` (kl_V3756 `pseq` (kl_V3757 `pseq` (appl_24 `pseq` kl_shen_tMult appl_23 kl_V3756 kl_V3757 appl_24))) appl_19 `pseq` (appl_25 `pseq` kl_do appl_19 appl_25) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_26 <- kl_V3228t `pseq` (kl_V3757 `pseq` kl_shen_lazyderef kl_V3228t kl_V3757) appl_26 `pseq` applyWrapper appl_16 [appl_26]))) kl_V3228h `pseq` applyWrapper appl_15 [kl_V3228h] pat_cond_27 = do do return (Atom (B False)) in case kl_V3228 of !(kl_V3228@(Cons (!kl_V3228h) (!kl_V3228t))) -> pat_cond_14 kl_V3228 kl_V3228h kl_V3228t _ -> pat_cond_27))) !appl_28 <- kl_V3226t `pseq` (kl_V3757 `pseq` kl_shen_lazyderef kl_V3226t kl_V3757) appl_28 `pseq` applyWrapper appl_13 [appl_28] pat_cond_29 = do do return (Atom (B False)) in case kl_V3227 of kl_V3227@(Atom (UnboundSym "-->")) -> pat_cond_12 kl_V3227@(ApplC (PL "-->" _)) -> pat_cond_12 kl_V3227@(ApplC (Func "-->" _)) -> pat_cond_12 _ -> pat_cond_29))) !appl_30 <- kl_V3226h `pseq` (kl_V3757 `pseq` kl_shen_lazyderef kl_V3226h kl_V3757) appl_30 `pseq` applyWrapper appl_11 [appl_30] pat_cond_31 = do do return (Atom (B False)) in case kl_V3226 of !(kl_V3226@(Cons (!kl_V3226h) (!kl_V3226t))) -> pat_cond_10 kl_V3226 kl_V3226h kl_V3226t _ -> pat_cond_31))) !appl_32 <- kl_V3225t `pseq` (kl_V3757 `pseq` kl_shen_lazyderef kl_V3225t kl_V3757) appl_32 `pseq` applyWrapper appl_9 [appl_32]))) kl_V3225h `pseq` applyWrapper appl_8 [kl_V3225h] pat_cond_33 = do do return (Atom (B False)) in case kl_V3225 of !(kl_V3225@(Cons (!kl_V3225h) (!kl_V3225t))) -> pat_cond_7 kl_V3225 kl_V3225h kl_V3225t _ -> pat_cond_33))) !appl_34 <- kl_V3755 `pseq` (kl_V3757 `pseq` kl_shen_lazyderef kl_V3755 kl_V3757) appl_34 `pseq` applyWrapper appl_6 [appl_34]))) kl_V3224t `pseq` applyWrapper appl_5 [kl_V3224t]))) kl_V3224h `pseq` applyWrapper appl_4 [kl_V3224h] pat_cond_35 = do do return (Atom (B False)) in case kl_V3224 of !(kl_V3224@(Cons (!kl_V3224h) (!kl_V3224t))) -> pat_cond_3 kl_V3224 kl_V3224h kl_V3224t _ -> pat_cond_35))) !appl_36 <- kl_V3754 `pseq` (kl_V3757 `pseq` kl_shen_lazyderef kl_V3754 kl_V3757) appl_36 `pseq` applyWrapper appl_2 [appl_36] pat_cond_37 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_1 kl_Case@(Atom (B (False))) -> pat_cond_1 _ -> pat_cond_37))) let !appl_38 = ApplC (Func "lambda" (Context (\(!kl_V3223) -> do let !appl_39 = Atom Nil !kl_if_40 <- appl_39 `pseq` (kl_V3223 `pseq` eq appl_39 kl_V3223) case kl_if_40 of Atom (B (True)) -> do !appl_41 <- kl_shen_incinfs !appl_42 <- kl_V3758 `pseq` kl_thaw kl_V3758 appl_41 `pseq` (appl_42 `pseq` kl_do appl_41 appl_42) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_43 <- kl_V3754 `pseq` (kl_V3757 `pseq` kl_shen_lazyderef kl_V3754 kl_V3757) !appl_44 <- appl_43 `pseq` applyWrapper appl_38 [appl_43] appl_44 `pseq` applyWrapper appl_0 [appl_44] kl_shen_tMult_action :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_tMult_action (!kl_V3764) (!kl_V3765) (!kl_V3766) (!kl_V3767) (!kl_V3768) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Throwcontrol) -> do let !appl_1 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_2 = do let !appl_3 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_4 = do let !appl_5 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_6 = do !appl_7 <- kl_shen_incinfs let !appl_8 = Atom Nil !appl_9 <- kl_V3765 `pseq` (appl_8 `pseq` klCons kl_V3765 appl_8) !appl_10 <- appl_9 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_9 !appl_11 <- kl_V3764 `pseq` (appl_10 `pseq` klCons kl_V3764 appl_10) !appl_12 <- appl_11 `pseq` (kl_V3766 `pseq` (kl_V3767 `pseq` (kl_V3768 `pseq` kl_shen_tMult appl_11 kl_V3766 kl_V3767 kl_V3768))) appl_7 `pseq` (appl_12 `pseq` kl_do appl_7 appl_12) pat_cond_13 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_6 kl_Case@(Atom (B (False))) -> pat_cond_6 _ -> pat_cond_13))) let !appl_14 = ApplC (Func "lambda" (Context (\(!kl_V3216) -> do let pat_cond_15 kl_V3216 kl_V3216h kl_V3216t = do let !appl_16 = ApplC (Func "lambda" (Context (\(!kl_V3217) -> do let pat_cond_17 = do let !appl_18 = ApplC (Func "lambda" (Context (\(!kl_V3218) -> do let pat_cond_19 kl_V3218 kl_V3218h kl_V3218t = do let !appl_20 = ApplC (Func "lambda" (Context (\(!kl_Action) -> do let !appl_21 = ApplC (Func "lambda" (Context (\(!kl_V3219) -> do let !appl_22 = Atom Nil !kl_if_23 <- appl_22 `pseq` (kl_V3219 `pseq` eq appl_22 kl_V3219) case kl_if_23 of Atom (B (True)) -> do !appl_24 <- kl_shen_incinfs let !appl_25 = ApplC (PL "thunk" (do let !appl_26 = Atom Nil !appl_27 <- kl_Action `pseq` (appl_26 `pseq` klCons kl_Action appl_26) !appl_28 <- appl_27 `pseq` klCons (ApplC (wrapNamed "=" eq)) appl_27 let !appl_29 = Atom Nil !appl_30 <- appl_29 `pseq` klCons (ApplC (PL "fail" kl_fail)) appl_29 let !appl_31 = Atom Nil !appl_32 <- appl_30 `pseq` (appl_31 `pseq` klCons appl_30 appl_31) !appl_33 <- appl_28 `pseq` (appl_32 `pseq` klCons appl_28 appl_32) let !appl_34 = Atom Nil !appl_35 <- appl_33 `pseq` (appl_34 `pseq` klCons appl_33 appl_34) !appl_36 <- appl_35 `pseq` klCons (ApplC (wrapNamed "not" kl_not)) appl_35 let !appl_37 = Atom Nil !appl_38 <- kl_Action `pseq` (appl_37 `pseq` klCons kl_Action appl_37) !appl_39 <- appl_36 `pseq` (appl_38 `pseq` klCons appl_36 appl_38) !appl_40 <- appl_39 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "where")) appl_39 appl_40 `pseq` (kl_V3765 `pseq` (kl_V3766 `pseq` (kl_V3767 `pseq` (kl_V3768 `pseq` kl_shen_tMult_action appl_40 kl_V3765 kl_V3766 kl_V3767 kl_V3768)))))) !appl_41 <- kl_Throwcontrol `pseq` (kl_V3767 `pseq` (appl_25 `pseq` kl_cut kl_Throwcontrol kl_V3767 appl_25)) appl_24 `pseq` (appl_41 `pseq` kl_do appl_24 appl_41) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_42 <- kl_V3218t `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3218t kl_V3767) appl_42 `pseq` applyWrapper appl_21 [appl_42]))) kl_V3218h `pseq` applyWrapper appl_20 [kl_V3218h] pat_cond_43 = do do return (Atom (B False)) in case kl_V3218 of !(kl_V3218@(Cons (!kl_V3218h) (!kl_V3218t))) -> pat_cond_19 kl_V3218 kl_V3218h kl_V3218t _ -> pat_cond_43))) !appl_44 <- kl_V3216t `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3216t kl_V3767) appl_44 `pseq` applyWrapper appl_18 [appl_44] pat_cond_45 = do do return (Atom (B False)) in case kl_V3217 of kl_V3217@(Atom (UnboundSym "shen.choicepoint!")) -> pat_cond_17 kl_V3217@(ApplC (PL "shen.choicepoint!" _)) -> pat_cond_17 kl_V3217@(ApplC (Func "shen.choicepoint!" _)) -> pat_cond_17 _ -> pat_cond_45))) !appl_46 <- kl_V3216h `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3216h kl_V3767) appl_46 `pseq` applyWrapper appl_16 [appl_46] pat_cond_47 = do do return (Atom (B False)) in case kl_V3216 of !(kl_V3216@(Cons (!kl_V3216h) (!kl_V3216t))) -> pat_cond_15 kl_V3216 kl_V3216h kl_V3216t _ -> pat_cond_47))) !appl_48 <- kl_V3764 `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3764 kl_V3767) !appl_49 <- appl_48 `pseq` applyWrapper appl_14 [appl_48] appl_49 `pseq` applyWrapper appl_5 [appl_49] pat_cond_50 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_4 kl_Case@(Atom (B (False))) -> pat_cond_4 _ -> pat_cond_50))) let !appl_51 = ApplC (Func "lambda" (Context (\(!kl_V3205) -> do let pat_cond_52 kl_V3205 kl_V3205h kl_V3205t = do let !appl_53 = ApplC (Func "lambda" (Context (\(!kl_V3206) -> do let pat_cond_54 = do let !appl_55 = ApplC (Func "lambda" (Context (\(!kl_V3207) -> do let pat_cond_56 kl_V3207 kl_V3207h kl_V3207t = do let !appl_57 = ApplC (Func "lambda" (Context (\(!kl_V3208) -> do let pat_cond_58 kl_V3208 kl_V3208h kl_V3208t = do let !appl_59 = ApplC (Func "lambda" (Context (\(!kl_V3209) -> do let pat_cond_60 kl_V3209 kl_V3209h kl_V3209t = do let !appl_61 = ApplC (Func "lambda" (Context (\(!kl_V3210) -> do let pat_cond_62 = do let !appl_63 = ApplC (Func "lambda" (Context (\(!kl_V3211) -> do let pat_cond_64 kl_V3211 kl_V3211h kl_V3211t = do let !appl_65 = ApplC (Func "lambda" (Context (\(!kl_F) -> do let !appl_66 = ApplC (Func "lambda" (Context (\(!kl_V3212) -> do let !appl_67 = Atom Nil !kl_if_68 <- appl_67 `pseq` (kl_V3212 `pseq` eq appl_67 kl_V3212) case kl_if_68 of Atom (B (True)) -> do let !appl_69 = ApplC (Func "lambda" (Context (\(!kl_V3213) -> do let pat_cond_70 kl_V3213 kl_V3213h kl_V3213t = do let !appl_71 = ApplC (Func "lambda" (Context (\(!kl_Action) -> do let !appl_72 = ApplC (Func "lambda" (Context (\(!kl_V3214) -> do let !appl_73 = Atom Nil !kl_if_74 <- appl_73 `pseq` (kl_V3214 `pseq` eq appl_73 kl_V3214) case kl_if_74 of Atom (B (True)) -> do let !appl_75 = ApplC (Func "lambda" (Context (\(!kl_V3215) -> do let !appl_76 = Atom Nil !kl_if_77 <- appl_76 `pseq` (kl_V3215 `pseq` eq appl_76 kl_V3215) case kl_if_77 of Atom (B (True)) -> do !appl_78 <- kl_shen_incinfs let !appl_79 = ApplC (PL "thunk" (do let !appl_80 = Atom Nil !appl_81 <- kl_Action `pseq` (appl_80 `pseq` klCons kl_Action appl_80) !appl_82 <- kl_F `pseq` (appl_81 `pseq` klCons kl_F appl_81) let !appl_83 = Atom Nil !appl_84 <- appl_82 `pseq` (appl_83 `pseq` klCons appl_82 appl_83) !appl_85 <- appl_84 `pseq` klCons (ApplC (wrapNamed "not" kl_not)) appl_84 let !appl_86 = Atom Nil !appl_87 <- kl_Action `pseq` (appl_86 `pseq` klCons kl_Action appl_86) !appl_88 <- appl_85 `pseq` (appl_87 `pseq` klCons appl_85 appl_87) !appl_89 <- appl_88 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "where")) appl_88 appl_89 `pseq` (kl_V3765 `pseq` (kl_V3766 `pseq` (kl_V3767 `pseq` (kl_V3768 `pseq` kl_shen_tMult_action appl_89 kl_V3765 kl_V3766 kl_V3767 kl_V3768)))))) !appl_90 <- kl_Throwcontrol `pseq` (kl_V3767 `pseq` (appl_79 `pseq` kl_cut kl_Throwcontrol kl_V3767 appl_79)) appl_78 `pseq` (appl_90 `pseq` kl_do appl_78 appl_90) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_91 <- kl_V3207t `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3207t kl_V3767) appl_91 `pseq` applyWrapper appl_75 [appl_91] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_92 <- kl_V3213t `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3213t kl_V3767) appl_92 `pseq` applyWrapper appl_72 [appl_92]))) kl_V3213h `pseq` applyWrapper appl_71 [kl_V3213h] pat_cond_93 = do do return (Atom (B False)) in case kl_V3213 of !(kl_V3213@(Cons (!kl_V3213h) (!kl_V3213t))) -> pat_cond_70 kl_V3213 kl_V3213h kl_V3213t _ -> pat_cond_93))) !appl_94 <- kl_V3208t `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3208t kl_V3767) appl_94 `pseq` applyWrapper appl_69 [appl_94] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_95 <- kl_V3211t `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3211t kl_V3767) appl_95 `pseq` applyWrapper appl_66 [appl_95]))) kl_V3211h `pseq` applyWrapper appl_65 [kl_V3211h] pat_cond_96 = do do return (Atom (B False)) in case kl_V3211 of !(kl_V3211@(Cons (!kl_V3211h) (!kl_V3211t))) -> pat_cond_64 kl_V3211 kl_V3211h kl_V3211t _ -> pat_cond_96))) !appl_97 <- kl_V3209t `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3209t kl_V3767) appl_97 `pseq` applyWrapper appl_63 [appl_97] pat_cond_98 = do do return (Atom (B False)) in case kl_V3210 of kl_V3210@(Atom (UnboundSym "fail-if")) -> pat_cond_62 kl_V3210@(ApplC (PL "fail-if" _)) -> pat_cond_62 kl_V3210@(ApplC (Func "fail-if" _)) -> pat_cond_62 _ -> pat_cond_98))) !appl_99 <- kl_V3209h `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3209h kl_V3767) appl_99 `pseq` applyWrapper appl_61 [appl_99] pat_cond_100 = do do return (Atom (B False)) in case kl_V3209 of !(kl_V3209@(Cons (!kl_V3209h) (!kl_V3209t))) -> pat_cond_60 kl_V3209 kl_V3209h kl_V3209t _ -> pat_cond_100))) !appl_101 <- kl_V3208h `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3208h kl_V3767) appl_101 `pseq` applyWrapper appl_59 [appl_101] pat_cond_102 = do do return (Atom (B False)) in case kl_V3208 of !(kl_V3208@(Cons (!kl_V3208h) (!kl_V3208t))) -> pat_cond_58 kl_V3208 kl_V3208h kl_V3208t _ -> pat_cond_102))) !appl_103 <- kl_V3207h `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3207h kl_V3767) appl_103 `pseq` applyWrapper appl_57 [appl_103] pat_cond_104 = do do return (Atom (B False)) in case kl_V3207 of !(kl_V3207@(Cons (!kl_V3207h) (!kl_V3207t))) -> pat_cond_56 kl_V3207 kl_V3207h kl_V3207t _ -> pat_cond_104))) !appl_105 <- kl_V3205t `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3205t kl_V3767) appl_105 `pseq` applyWrapper appl_55 [appl_105] pat_cond_106 = do do return (Atom (B False)) in case kl_V3206 of kl_V3206@(Atom (UnboundSym "shen.choicepoint!")) -> pat_cond_54 kl_V3206@(ApplC (PL "shen.choicepoint!" _)) -> pat_cond_54 kl_V3206@(ApplC (Func "shen.choicepoint!" _)) -> pat_cond_54 _ -> pat_cond_106))) !appl_107 <- kl_V3205h `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3205h kl_V3767) appl_107 `pseq` applyWrapper appl_53 [appl_107] pat_cond_108 = do do return (Atom (B False)) in case kl_V3205 of !(kl_V3205@(Cons (!kl_V3205h) (!kl_V3205t))) -> pat_cond_52 kl_V3205 kl_V3205h kl_V3205t _ -> pat_cond_108))) !appl_109 <- kl_V3764 `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3764 kl_V3767) !appl_110 <- appl_109 `pseq` applyWrapper appl_51 [appl_109] appl_110 `pseq` applyWrapper appl_3 [appl_110] pat_cond_111 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_2 kl_Case@(Atom (B (False))) -> pat_cond_2 _ -> pat_cond_111))) let !appl_112 = ApplC (Func "lambda" (Context (\(!kl_V3200) -> do let pat_cond_113 kl_V3200 kl_V3200h kl_V3200t = do let !appl_114 = ApplC (Func "lambda" (Context (\(!kl_V3201) -> do let pat_cond_115 = do let !appl_116 = ApplC (Func "lambda" (Context (\(!kl_V3202) -> do let pat_cond_117 kl_V3202 kl_V3202h kl_V3202t = do let !appl_118 = ApplC (Func "lambda" (Context (\(!kl_P) -> do let !appl_119 = ApplC (Func "lambda" (Context (\(!kl_V3203) -> do let pat_cond_120 kl_V3203 kl_V3203h kl_V3203t = do let !appl_121 = ApplC (Func "lambda" (Context (\(!kl_Action) -> do let !appl_122 = ApplC (Func "lambda" (Context (\(!kl_V3204) -> do let !appl_123 = Atom Nil !kl_if_124 <- appl_123 `pseq` (kl_V3204 `pseq` eq appl_123 kl_V3204) case kl_if_124 of Atom (B (True)) -> do !appl_125 <- kl_shen_incinfs let !appl_126 = ApplC (PL "thunk" (do let !appl_127 = Atom Nil !appl_128 <- appl_127 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "boolean")) appl_127 !appl_129 <- appl_128 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_128 !appl_130 <- kl_P `pseq` (appl_129 `pseq` klCons kl_P appl_129) let !appl_131 = ApplC (PL "thunk" (do let !appl_132 = ApplC (PL "thunk" (do let !appl_133 = Atom Nil !appl_134 <- appl_133 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym "verified")) appl_133 !appl_135 <- appl_134 `pseq` klCons (Core.Types.Atom (Core.Types.UnboundSym ":")) appl_134 !appl_136 <- kl_P `pseq` (appl_135 `pseq` klCons kl_P appl_135) !appl_137 <- appl_136 `pseq` (kl_V3766 `pseq` klCons appl_136 kl_V3766) kl_Action `pseq` (kl_V3765 `pseq` (appl_137 `pseq` (kl_V3767 `pseq` (kl_V3768 `pseq` kl_shen_tMult_action kl_Action kl_V3765 appl_137 kl_V3767 kl_V3768)))))) kl_Throwcontrol `pseq` (kl_V3767 `pseq` (appl_132 `pseq` kl_cut kl_Throwcontrol kl_V3767 appl_132)))) appl_130 `pseq` (kl_V3766 `pseq` (kl_V3767 `pseq` (appl_131 `pseq` kl_shen_tMult appl_130 kl_V3766 kl_V3767 appl_131))))) !appl_138 <- kl_Throwcontrol `pseq` (kl_V3767 `pseq` (appl_126 `pseq` kl_cut kl_Throwcontrol kl_V3767 appl_126)) appl_125 `pseq` (appl_138 `pseq` kl_do appl_125 appl_138) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean"))) !appl_139 <- kl_V3203t `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3203t kl_V3767) appl_139 `pseq` applyWrapper appl_122 [appl_139]))) kl_V3203h `pseq` applyWrapper appl_121 [kl_V3203h] pat_cond_140 = do do return (Atom (B False)) in case kl_V3203 of !(kl_V3203@(Cons (!kl_V3203h) (!kl_V3203t))) -> pat_cond_120 kl_V3203 kl_V3203h kl_V3203t _ -> pat_cond_140))) !appl_141 <- kl_V3202t `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3202t kl_V3767) appl_141 `pseq` applyWrapper appl_119 [appl_141]))) kl_V3202h `pseq` applyWrapper appl_118 [kl_V3202h] pat_cond_142 = do do return (Atom (B False)) in case kl_V3202 of !(kl_V3202@(Cons (!kl_V3202h) (!kl_V3202t))) -> pat_cond_117 kl_V3202 kl_V3202h kl_V3202t _ -> pat_cond_142))) !appl_143 <- kl_V3200t `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3200t kl_V3767) appl_143 `pseq` applyWrapper appl_116 [appl_143] pat_cond_144 = do do return (Atom (B False)) in case kl_V3201 of kl_V3201@(Atom (UnboundSym "where")) -> pat_cond_115 kl_V3201@(ApplC (PL "where" _)) -> pat_cond_115 kl_V3201@(ApplC (Func "where" _)) -> pat_cond_115 _ -> pat_cond_144))) !appl_145 <- kl_V3200h `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3200h kl_V3767) appl_145 `pseq` applyWrapper appl_114 [appl_145] pat_cond_146 = do do return (Atom (B False)) in case kl_V3200 of !(kl_V3200@(Cons (!kl_V3200h) (!kl_V3200t))) -> pat_cond_113 kl_V3200 kl_V3200h kl_V3200t _ -> pat_cond_146))) !appl_147 <- kl_V3764 `pseq` (kl_V3767 `pseq` kl_shen_lazyderef kl_V3764 kl_V3767) !appl_148 <- appl_147 `pseq` applyWrapper appl_112 [appl_147] !appl_149 <- appl_148 `pseq` applyWrapper appl_1 [appl_148] kl_Throwcontrol `pseq` (appl_149 `pseq` kl_shen_cutpoint kl_Throwcontrol appl_149)))) !appl_150 <- kl_shen_catchpoint appl_150 `pseq` applyWrapper appl_0 [appl_150] kl_findall :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_findall (!kl_V3774) (!kl_V3775) (!kl_V3776) (!kl_V3777) (!kl_V3778) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_1 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_2 <- kl_shen_incinfs !appl_3 <- kl_gensym (Core.Types.Atom (Core.Types.UnboundSym "shen.a")) let !appl_4 = ApplC (PL "thunk" (do !appl_5 <- kl_A `pseq` (kl_V3777 `pseq` kl_shen_lazyderef kl_A kl_V3777) let !appl_6 = Atom Nil !appl_7 <- appl_5 `pseq` (appl_6 `pseq` klSet appl_5 appl_6) let !appl_8 = ApplC (PL "thunk" (do kl_V3774 `pseq` (kl_V3775 `pseq` (kl_V3776 `pseq` (kl_A `pseq` (kl_V3777 `pseq` (kl_V3778 `pseq` kl_shen_findallhelp kl_V3774 kl_V3775 kl_V3776 kl_A kl_V3777 kl_V3778))))))) kl_B `pseq` (appl_7 `pseq` (kl_V3777 `pseq` (appl_8 `pseq` kl_bind kl_B appl_7 kl_V3777 appl_8))))) !appl_9 <- kl_A `pseq` (appl_3 `pseq` (kl_V3777 `pseq` (appl_4 `pseq` kl_bind kl_A appl_3 kl_V3777 appl_4))) appl_2 `pseq` (appl_9 `pseq` kl_do appl_2 appl_9)))) !appl_10 <- kl_V3777 `pseq` kl_shen_newpv kl_V3777 appl_10 `pseq` applyWrapper appl_1 [appl_10]))) !appl_11 <- kl_V3777 `pseq` kl_shen_newpv kl_V3777 appl_11 `pseq` applyWrapper appl_0 [appl_11] kl_shen_findallhelp :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_findallhelp (!kl_V3785) (!kl_V3786) (!kl_V3787) (!kl_V3788) (!kl_V3789) (!kl_V3790) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do !appl_2 <- kl_shen_incinfs !appl_3 <- kl_V3788 `pseq` (kl_V3789 `pseq` kl_shen_lazyderef kl_V3788 kl_V3789) !appl_4 <- appl_3 `pseq` value appl_3 !appl_5 <- kl_V3787 `pseq` (appl_4 `pseq` (kl_V3789 `pseq` (kl_V3790 `pseq` kl_bind kl_V3787 appl_4 kl_V3789 kl_V3790))) appl_2 `pseq` (appl_5 `pseq` kl_do appl_2 appl_5) pat_cond_6 = do do return kl_Case in case kl_Case of kl_Case@(Atom (UnboundSym "false")) -> pat_cond_1 kl_Case@(Atom (B (False))) -> pat_cond_1 _ -> pat_cond_6))) !appl_7 <- kl_shen_incinfs let !appl_8 = ApplC (PL "thunk" (do let !appl_9 = ApplC (PL "thunk" (do kl_V3789 `pseq` (kl_V3790 `pseq` kl_fwhen (Atom (B False)) kl_V3789 kl_V3790))) kl_V3788 `pseq` (kl_V3785 `pseq` (kl_V3789 `pseq` (appl_9 `pseq` kl_shen_remember kl_V3788 kl_V3785 kl_V3789 appl_9))))) !appl_10 <- kl_V3786 `pseq` (kl_V3789 `pseq` (appl_8 `pseq` kl_call kl_V3786 kl_V3789 appl_8)) !appl_11 <- appl_7 `pseq` (appl_10 `pseq` kl_do appl_7 appl_10) appl_11 `pseq` applyWrapper appl_0 [appl_11] kl_shen_remember :: Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLValue -> Core.Types.KLContext Core.Types.Env Core.Types.KLValue kl_shen_remember (!kl_V3795) (!kl_V3796) (!kl_V3797) (!kl_V3798) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_1 <- kl_shen_incinfs !appl_2 <- kl_V3795 `pseq` (kl_V3797 `pseq` kl_shen_deref kl_V3795 kl_V3797) !appl_3 <- kl_V3796 `pseq` (kl_V3797 `pseq` kl_shen_deref kl_V3796 kl_V3797) !appl_4 <- kl_V3795 `pseq` (kl_V3797 `pseq` kl_shen_deref kl_V3795 kl_V3797) !appl_5 <- appl_4 `pseq` value appl_4 !appl_6 <- appl_3 `pseq` (appl_5 `pseq` klCons appl_3 appl_5) !appl_7 <- appl_2 `pseq` (appl_6 `pseq` klSet appl_2 appl_6) !appl_8 <- kl_B `pseq` (appl_7 `pseq` (kl_V3797 `pseq` (kl_V3798 `pseq` kl_bind kl_B appl_7 kl_V3797 kl_V3798))) appl_1 `pseq` (appl_8 `pseq` kl_do appl_1 appl_8)))) !appl_9 <- kl_V3797 `pseq` kl_shen_newpv kl_V3797 appl_9 `pseq` applyWrapper appl_0 [appl_9] expr13 :: Core.Types.KLContext Core.Types.Env Core.Types.KLValue expr13 = do (do return (Core.Types.Atom (Core.Types.Str "Copyright (c) 2015, Mark Tarver\n\nAll rights reserved.\n\nRedistribution and use in source and binary forms, with or without\nmodification, are permitted provided that the following conditions are met:\n1. Redistributions of source code must retain the above copyright\n notice, this list of conditions and the following disclaimer.\n2. Redistributions in binary form must reproduce the above copyright\n notice, this list of conditions and the following disclaimer in the\n documentation and/or other materials provided with the distribution.\n3. The name of Mark Tarver may not be used to endorse or promote products\n derived from this software without specific prior written permission.\n\nTHIS SOFTWARE IS PROVIDED BY Mark Tarver ''AS IS'' AND ANY\nEXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED\nWARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE\nDISCLAIMED. IN NO EVENT SHALL Mark Tarver BE LIABLE FOR ANY\nDIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES\n(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;\nLOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND\nON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\n(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS\nSOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE."))) `catchError` (\(!kl_E) -> do return (Core.Types.Atom (Core.Types.Str "E")))