{-# LANGUAGE BangPatterns #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE Strict #-} {-# LANGUAGE StrictData #-} {-# LANGUAGE ViewPatterns #-} module Backend.TStar where import Control.Monad.Except import Control.Parallel import Environment import Primitives as Primitives import Backend.Utils import Types as Types import 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 :: Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_typecheck (!kl_V3377) (!kl_V3378) = 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 !appl_4 <- kl_Type `pseq` klCons kl_Type (Types.Atom Types.Nil) !appl_5 <- appl_4 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_4 !appl_6 <- kl_Curry `pseq` (appl_5 `pseq` klCons kl_Curry appl_5) appl_6 `pseq` (kl_ProcessN `pseq` (kl_Continuation `pseq` kl_shen_tMult appl_6 (Types.Atom Types.Nil) kl_ProcessN kl_Continuation))))) let !appl_7 = ApplC (PL "thunk" (do kl_Type `pseq` (kl_ProcessN `pseq` kl_return kl_Type kl_ProcessN (Types.Atom (Types.UnboundSym "shen.void"))))) appl_7 `pseq` applyWrapper appl_3 [appl_7]))) !appl_8 <- kl_V3378 `pseq` kl_shen_curry_type kl_V3378 !appl_9 <- appl_8 `pseq` kl_shen_demodulate appl_8 !appl_10 <- appl_9 `pseq` (kl_ProcessN `pseq` kl_shen_insert_prolog_variables appl_9 kl_ProcessN) appl_10 `pseq` applyWrapper appl_2 [appl_10]))) !appl_11 <- kl_shen_start_new_prolog_process appl_11 `pseq` applyWrapper appl_1 [appl_11]))) !appl_12 <- kl_V3377 `pseq` kl_shen_curry kl_V3377 appl_12 `pseq` applyWrapper appl_0 [appl_12] kl_shen_curry :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_curry (!kl_V3380) = do !kl_if_0 <- let pat_cond_1 kl_V3380 kl_V3380h kl_V3380t = do !kl_if_2 <- kl_V3380h `pseq` kl_shen_specialP kl_V3380h 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_V3380 of !(kl_V3380@(Cons (!kl_V3380h) (!kl_V3380t))) -> pat_cond_1 kl_V3380 kl_V3380h kl_V3380t _ -> pat_cond_3 case kl_if_0 of Atom (B (True)) -> do !appl_4 <- kl_V3380 `pseq` hd kl_V3380 let !appl_5 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do kl_Y `pseq` kl_shen_curry kl_Y))) !appl_6 <- kl_V3380 `pseq` tl kl_V3380 !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_V3380 kl_V3380h kl_V3380t = do !kl_if_10 <- let pat_cond_11 kl_V3380t kl_V3380th kl_V3380tt = do !kl_if_12 <- kl_V3380h `pseq` kl_shen_extraspecialP kl_V3380h 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_V3380t of !(kl_V3380t@(Cons (!kl_V3380th) (!kl_V3380tt))) -> pat_cond_11 kl_V3380t kl_V3380th kl_V3380tt _ -> 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_V3380 of !(kl_V3380@(Cons (!kl_V3380h) (!kl_V3380t))) -> pat_cond_9 kl_V3380 kl_V3380h kl_V3380t _ -> pat_cond_14 case kl_if_8 of Atom (B (True)) -> do return kl_V3380 Atom (B (False)) -> do let pat_cond_15 kl_V3380 kl_V3380t kl_V3380th kl_V3380tt kl_V3380tth = do !appl_16 <- kl_V3380th `pseq` kl_shen_curry kl_V3380th !appl_17 <- appl_16 `pseq` (kl_V3380tt `pseq` klCons appl_16 kl_V3380tt) appl_17 `pseq` klCons (ApplC (wrapNamed "type" typeA)) appl_17 pat_cond_18 kl_V3380 kl_V3380h kl_V3380t kl_V3380th kl_V3380tt kl_V3380tth kl_V3380ttt = do !appl_19 <- kl_V3380th `pseq` klCons kl_V3380th (Types.Atom Types.Nil) !appl_20 <- kl_V3380h `pseq` (appl_19 `pseq` klCons kl_V3380h appl_19) !appl_21 <- appl_20 `pseq` (kl_V3380tt `pseq` klCons appl_20 kl_V3380tt) appl_21 `pseq` kl_shen_curry appl_21 pat_cond_22 kl_V3380 kl_V3380h kl_V3380t kl_V3380th = do !appl_23 <- kl_V3380h `pseq` kl_shen_curry kl_V3380h !appl_24 <- kl_V3380th `pseq` kl_shen_curry kl_V3380th !appl_25 <- appl_24 `pseq` klCons appl_24 (Types.Atom Types.Nil) appl_23 `pseq` (appl_25 `pseq` klCons appl_23 appl_25) pat_cond_26 = do do return kl_V3380 in case kl_V3380 of !(kl_V3380@(Cons (Atom (UnboundSym "type")) (!(kl_V3380t@(Cons (!kl_V3380th) (!(kl_V3380tt@(Cons (!kl_V3380tth) (Atom (Nil)))))))))) -> pat_cond_15 kl_V3380 kl_V3380t kl_V3380th kl_V3380tt kl_V3380tth !(kl_V3380@(Cons (ApplC (PL "type" _)) (!(kl_V3380t@(Cons (!kl_V3380th) (!(kl_V3380tt@(Cons (!kl_V3380tth) (Atom (Nil)))))))))) -> pat_cond_15 kl_V3380 kl_V3380t kl_V3380th kl_V3380tt kl_V3380tth !(kl_V3380@(Cons (ApplC (Func "type" _)) (!(kl_V3380t@(Cons (!kl_V3380th) (!(kl_V3380tt@(Cons (!kl_V3380tth) (Atom (Nil)))))))))) -> pat_cond_15 kl_V3380 kl_V3380t kl_V3380th kl_V3380tt kl_V3380tth !(kl_V3380@(Cons (!kl_V3380h) (!(kl_V3380t@(Cons (!kl_V3380th) (!(kl_V3380tt@(Cons (!kl_V3380tth) (!kl_V3380ttt))))))))) -> pat_cond_18 kl_V3380 kl_V3380h kl_V3380t kl_V3380th kl_V3380tt kl_V3380tth kl_V3380ttt !(kl_V3380@(Cons (!kl_V3380h) (!(kl_V3380t@(Cons (!kl_V3380th) (Atom (Nil))))))) -> pat_cond_22 kl_V3380 kl_V3380h kl_V3380t kl_V3380th _ -> pat_cond_26 _ -> throwError "if: expected boolean" _ -> throwError "if: expected boolean" kl_shen_specialP :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_specialP (!kl_V3382) = do !appl_0 <- value (Types.Atom (Types.UnboundSym "shen.*special*")) kl_V3382 `pseq` (appl_0 `pseq` kl_elementP kl_V3382 appl_0) kl_shen_extraspecialP :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_extraspecialP (!kl_V3384) = do !appl_0 <- value (Types.Atom (Types.UnboundSym "shen.*extraspecial*")) kl_V3384 `pseq` (appl_0 `pseq` kl_elementP kl_V3384 appl_0) kl_shen_tMult :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_tMult (!kl_V3389) (!kl_V3390) (!kl_V3391) (!kl_V3392) = 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 (Types.Atom (Types.UnboundSym "shen.*datatypes*")) let !appl_11 = ApplC (PL "thunk" (do kl_V3389 `pseq` (kl_V3390 `pseq` (kl_Datatypes `pseq` (kl_V3391 `pseq` (kl_V3392 `pseq` kl_shen_udefsMult kl_V3389 kl_V3390 kl_Datatypes kl_V3391 kl_V3392)))))) kl_Datatypes `pseq` (appl_10 `pseq` (kl_V3391 `pseq` (appl_11 `pseq` kl_bind kl_Datatypes appl_10 kl_V3391 appl_11))))) !appl_12 <- kl_V3389 `pseq` (kl_V3390 `pseq` (kl_V3391 `pseq` (appl_9 `pseq` kl_shen_show kl_V3389 kl_V3390 kl_V3391 appl_9))) appl_8 `pseq` (appl_12 `pseq` kl_do appl_8 appl_12)))) !appl_13 <- kl_V3391 `pseq` kl_shen_newpv kl_V3391 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_V3370) -> do let pat_cond_16 kl_V3370 kl_V3370h kl_V3370t = do let !appl_17 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_18 = ApplC (Func "lambda" (Context (\(!kl_V3371) -> do let pat_cond_19 kl_V3371 kl_V3371h kl_V3371t = do let !appl_20 = ApplC (Func "lambda" (Context (\(!kl_V3372) -> do let pat_cond_21 = do let !appl_22 = ApplC (Func "lambda" (Context (\(!kl_V3373) -> do let pat_cond_23 kl_V3373 kl_V3373h kl_V3373t = do let !appl_24 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_25 = ApplC (Func "lambda" (Context (\(!kl_V3374) -> do let pat_cond_26 = do !appl_27 <- kl_shen_incinfs !appl_28 <- kl_shen_type_theory_enabledP let !appl_29 = ApplC (PL "thunk" (do let !appl_30 = ApplC (PL "thunk" (do kl_X `pseq` (kl_A `pseq` (kl_V3390 `pseq` (kl_V3391 `pseq` (kl_V3392 `pseq` kl_shen_thMult kl_X kl_A kl_V3390 kl_V3391 kl_V3392)))))) kl_Throwcontrol `pseq` (kl_V3391 `pseq` (appl_30 `pseq` kl_cut kl_Throwcontrol kl_V3391 appl_30)))) !appl_31 <- appl_28 `pseq` (kl_V3391 `pseq` (appl_29 `pseq` kl_fwhen appl_28 kl_V3391 appl_29)) appl_27 `pseq` (appl_31 `pseq` kl_do appl_27 appl_31) pat_cond_32 = do do return (Atom (B False)) in case kl_V3374 of kl_V3374@(Atom (Nil)) -> pat_cond_26 _ -> pat_cond_32))) !appl_33 <- kl_V3373t `pseq` (kl_V3391 `pseq` kl_shen_lazyderef kl_V3373t kl_V3391) appl_33 `pseq` applyWrapper appl_25 [appl_33]))) kl_V3373h `pseq` applyWrapper appl_24 [kl_V3373h] pat_cond_34 = do do return (Atom (B False)) in case kl_V3373 of !(kl_V3373@(Cons (!kl_V3373h) (!kl_V3373t))) -> pat_cond_23 kl_V3373 kl_V3373h kl_V3373t _ -> pat_cond_34))) !appl_35 <- kl_V3371t `pseq` (kl_V3391 `pseq` kl_shen_lazyderef kl_V3371t kl_V3391) appl_35 `pseq` applyWrapper appl_22 [appl_35] pat_cond_36 = do do return (Atom (B False)) in case kl_V3372 of kl_V3372@(Atom (UnboundSym ":")) -> pat_cond_21 kl_V3372@(ApplC (PL ":" _)) -> pat_cond_21 kl_V3372@(ApplC (Func ":" _)) -> pat_cond_21 _ -> pat_cond_36))) !appl_37 <- kl_V3371h `pseq` (kl_V3391 `pseq` kl_shen_lazyderef kl_V3371h kl_V3391) appl_37 `pseq` applyWrapper appl_20 [appl_37] pat_cond_38 = do do return (Atom (B False)) in case kl_V3371 of !(kl_V3371@(Cons (!kl_V3371h) (!kl_V3371t))) -> pat_cond_19 kl_V3371 kl_V3371h kl_V3371t _ -> pat_cond_38))) !appl_39 <- kl_V3370t `pseq` (kl_V3391 `pseq` kl_shen_lazyderef kl_V3370t kl_V3391) appl_39 `pseq` applyWrapper appl_18 [appl_39]))) kl_V3370h `pseq` applyWrapper appl_17 [kl_V3370h] pat_cond_40 = do do return (Atom (B False)) in case kl_V3370 of !(kl_V3370@(Cons (!kl_V3370h) (!kl_V3370t))) -> pat_cond_16 kl_V3370 kl_V3370h kl_V3370t _ -> pat_cond_40))) !appl_41 <- kl_V3389 `pseq` (kl_V3391 `pseq` kl_shen_lazyderef kl_V3389 kl_V3391) !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_V3369) -> do let pat_cond_45 = do !appl_46 <- kl_shen_incinfs let !appl_47 = ApplC (PL "thunk" (do kl_V3391 `pseq` (kl_V3392 `pseq` kl_shen_prolog_failure kl_V3391 kl_V3392))) !appl_48 <- kl_Throwcontrol `pseq` (kl_V3391 `pseq` (appl_47 `pseq` kl_cut kl_Throwcontrol kl_V3391 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_V3369 of kl_V3369@(Atom (UnboundSym "fail")) -> pat_cond_45 kl_V3369@(ApplC (PL "fail" _)) -> pat_cond_45 kl_V3369@(ApplC (Func "fail" _)) -> pat_cond_45 _ -> pat_cond_49))) !appl_50 <- kl_V3389 `pseq` (kl_V3391 `pseq` kl_shen_lazyderef kl_V3389 kl_V3391) !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_V3391 `pseq` (kl_V3392 `pseq` kl_bind kl_Error appl_57 kl_V3391 kl_V3392))))) !appl_58 <- appl_55 `pseq` (kl_V3391 `pseq` (appl_56 `pseq` kl_fwhen appl_55 kl_V3391 appl_56)) appl_54 `pseq` (appl_58 `pseq` kl_do appl_54 appl_58)))) !appl_59 <- kl_V3391 `pseq` kl_shen_newpv kl_V3391 !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 :: Types.KLContext Types.Env Types.KLValue kl_shen_type_theory_enabledP = do value (Types.Atom (Types.UnboundSym "shen.*shen-type-theory-enabled?*")) kl_enable_type_theory :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_enable_type_theory (!kl_V3398) = do let pat_cond_0 = do klSet (Types.Atom (Types.UnboundSym "shen.*shen-type-theory-enabled?*")) (Atom (B True)) pat_cond_1 = do klSet (Types.Atom (Types.UnboundSym "shen.*shen-type-theory-enabled?*")) (Atom (B False)) pat_cond_2 = do do simpleError (Types.Atom (Types.Str "enable-type-theory expects a + or a -\n")) in case kl_V3398 of kl_V3398@(Atom (UnboundSym "+")) -> pat_cond_0 kl_V3398@(ApplC (PL "+" _)) -> pat_cond_0 kl_V3398@(ApplC (Func "+" _)) -> pat_cond_0 kl_V3398@(Atom (UnboundSym "-")) -> pat_cond_1 kl_V3398@(ApplC (PL "-" _)) -> pat_cond_1 kl_V3398@(ApplC (Func "-" _)) -> pat_cond_1 _ -> pat_cond_2 kl_shen_prolog_failure :: Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_prolog_failure (!kl_V3409) (!kl_V3410) = do return (Atom (B False)) kl_shen_maxinfexceededP :: Types.KLContext Types.Env Types.KLValue kl_shen_maxinfexceededP = do !appl_0 <- kl_inferences !appl_1 <- value (Types.Atom (Types.UnboundSym "shen.*maxinferences*")) appl_0 `pseq` (appl_1 `pseq` greaterThan appl_0 appl_1) kl_shen_errormaxinfs :: Types.KLContext Types.Env Types.KLValue kl_shen_errormaxinfs = do simpleError (Types.Atom (Types.Str "maximum inferences exceeded~%")) kl_shen_udefsMult :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_udefsMult (!kl_V3416) (!kl_V3417) (!kl_V3418) (!kl_V3419) (!kl_V3420) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_V3366) -> do let pat_cond_3 kl_V3366 kl_V3366h kl_V3366t = do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_Ds) -> do !appl_5 <- kl_shen_incinfs !appl_6 <- kl_V3416 `pseq` (kl_V3417 `pseq` (kl_Ds `pseq` (kl_V3419 `pseq` (kl_V3420 `pseq` kl_shen_udefsMult kl_V3416 kl_V3417 kl_Ds kl_V3419 kl_V3420)))) appl_5 `pseq` (appl_6 `pseq` kl_do appl_5 appl_6)))) kl_V3366t `pseq` applyWrapper appl_4 [kl_V3366t] pat_cond_7 = do do return (Atom (B False)) in case kl_V3366 of !(kl_V3366@(Cons (!kl_V3366h) (!kl_V3366t))) -> pat_cond_3 kl_V3366 kl_V3366h kl_V3366t _ -> pat_cond_7))) !appl_8 <- kl_V3418 `pseq` (kl_V3419 `pseq` kl_shen_lazyderef kl_V3418 kl_V3419) 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_V3365) -> do let pat_cond_11 kl_V3365 kl_V3365h kl_V3365t = do let !appl_12 = ApplC (Func "lambda" (Context (\(!kl_D) -> do !appl_13 <- kl_shen_incinfs !appl_14 <- kl_V3417 `pseq` klCons kl_V3417 (Types.Atom Types.Nil) !appl_15 <- kl_V3416 `pseq` (appl_14 `pseq` klCons kl_V3416 appl_14) !appl_16 <- kl_D `pseq` (appl_15 `pseq` klCons kl_D appl_15) !appl_17 <- appl_16 `pseq` (kl_V3419 `pseq` (kl_V3420 `pseq` kl_call appl_16 kl_V3419 kl_V3420)) appl_13 `pseq` (appl_17 `pseq` kl_do appl_13 appl_17)))) kl_V3365h `pseq` applyWrapper appl_12 [kl_V3365h] pat_cond_18 = do do return (Atom (B False)) in case kl_V3365 of !(kl_V3365@(Cons (!kl_V3365h) (!kl_V3365t))) -> pat_cond_11 kl_V3365 kl_V3365h kl_V3365t _ -> pat_cond_18))) !appl_19 <- kl_V3418 `pseq` (kl_V3419 `pseq` kl_shen_lazyderef kl_V3418 kl_V3419) !appl_20 <- appl_19 `pseq` applyWrapper appl_10 [appl_19] appl_20 `pseq` applyWrapper appl_0 [appl_20] kl_shen_thMult :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_thMult (!kl_V3426) (!kl_V3427) (!kl_V3428) (!kl_V3429) (!kl_V3430) = 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 (Types.Atom (Types.UnboundSym "shen.*datatypes*")) let !appl_46 = ApplC (PL "thunk" (do !appl_47 <- kl_V3427 `pseq` klCons kl_V3427 (Types.Atom Types.Nil) !appl_48 <- appl_47 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_47 !appl_49 <- kl_V3426 `pseq` (appl_48 `pseq` klCons kl_V3426 appl_48) appl_49 `pseq` (kl_V3428 `pseq` (kl_Datatypes `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_udefsMult appl_49 kl_V3428 kl_Datatypes kl_V3429 kl_V3430)))))) !appl_50 <- kl_Datatypes `pseq` (appl_45 `pseq` (kl_V3429 `pseq` (appl_46 `pseq` kl_bind kl_Datatypes appl_45 kl_V3429 appl_46))) appl_44 `pseq` (appl_50 `pseq` kl_do appl_44 appl_50)))) !appl_51 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_51 `pseq` applyWrapper appl_43 [appl_51] pat_cond_52 = 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_52))) let !appl_53 = ApplC (Func "lambda" (Context (\(!kl_V3359) -> do let pat_cond_54 kl_V3359 kl_V3359h kl_V3359t = do let !appl_55 = ApplC (Func "lambda" (Context (\(!kl_V3360) -> do let pat_cond_56 = do let !appl_57 = ApplC (Func "lambda" (Context (\(!kl_V3361) -> do let pat_cond_58 = do !appl_59 <- kl_shen_incinfs !appl_60 <- kl_V3430 `pseq` kl_thaw kl_V3430 appl_59 `pseq` (appl_60 `pseq` kl_do appl_59 appl_60) pat_cond_61 = do do !kl_if_62 <- kl_V3361 `pseq` kl_shen_pvarP kl_V3361 case kl_if_62 of Atom (B (True)) -> do !appl_63 <- kl_V3361 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3361 (Types.Atom (Types.UnboundSym "symbol")) kl_V3429) let !appl_64 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_65 <- kl_V3361 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3361 kl_V3429) appl_65 `pseq` (kl_Result `pseq` kl_do appl_65 kl_Result)))) !appl_66 <- kl_shen_incinfs !appl_67 <- kl_V3430 `pseq` kl_thaw kl_V3430 !appl_68 <- appl_66 `pseq` (appl_67 `pseq` kl_do appl_66 appl_67) !appl_69 <- appl_68 `pseq` applyWrapper appl_64 [appl_68] appl_63 `pseq` (appl_69 `pseq` kl_do appl_63 appl_69) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3361 of kl_V3361@(Atom (UnboundSym "symbol")) -> pat_cond_58 kl_V3361@(ApplC (PL "symbol" _)) -> pat_cond_58 kl_V3361@(ApplC (Func "symbol" _)) -> pat_cond_58 _ -> pat_cond_61))) !appl_70 <- kl_V3427 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3427 kl_V3429) appl_70 `pseq` applyWrapper appl_57 [appl_70] pat_cond_71 = do do return (Atom (B False)) in case kl_V3360 of kl_V3360@(Atom (UnboundSym "shen.synonyms-help")) -> pat_cond_56 kl_V3360@(ApplC (PL "shen.synonyms-help" _)) -> pat_cond_56 kl_V3360@(ApplC (Func "shen.synonyms-help" _)) -> pat_cond_56 _ -> pat_cond_71))) !appl_72 <- kl_V3359h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3359h kl_V3429) appl_72 `pseq` applyWrapper appl_55 [appl_72] pat_cond_73 = do do return (Atom (B False)) in case kl_V3359 of !(kl_V3359@(Cons (!kl_V3359h) (!kl_V3359t))) -> pat_cond_54 kl_V3359 kl_V3359h kl_V3359t _ -> pat_cond_73))) !appl_74 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_75 <- appl_74 `pseq` applyWrapper appl_53 [appl_74] appl_75 `pseq` applyWrapper appl_41 [appl_75] pat_cond_76 = 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_76))) let !appl_77 = ApplC (Func "lambda" (Context (\(!kl_V3356) -> do let pat_cond_78 kl_V3356 kl_V3356h kl_V3356t = do let !appl_79 = ApplC (Func "lambda" (Context (\(!kl_V3357) -> do let pat_cond_80 = do let !appl_81 = ApplC (Func "lambda" (Context (\(!kl_V3358) -> do let pat_cond_82 = do !appl_83 <- kl_shen_incinfs !appl_84 <- kl_V3430 `pseq` kl_thaw kl_V3430 appl_83 `pseq` (appl_84 `pseq` kl_do appl_83 appl_84) pat_cond_85 = do do !kl_if_86 <- kl_V3358 `pseq` kl_shen_pvarP kl_V3358 case kl_if_86 of Atom (B (True)) -> do !appl_87 <- kl_V3358 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3358 (Types.Atom (Types.UnboundSym "symbol")) kl_V3429) let !appl_88 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_89 <- kl_V3358 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3358 kl_V3429) appl_89 `pseq` (kl_Result `pseq` kl_do appl_89 kl_Result)))) !appl_90 <- kl_shen_incinfs !appl_91 <- kl_V3430 `pseq` kl_thaw kl_V3430 !appl_92 <- appl_90 `pseq` (appl_91 `pseq` kl_do appl_90 appl_91) !appl_93 <- appl_92 `pseq` applyWrapper appl_88 [appl_92] appl_87 `pseq` (appl_93 `pseq` kl_do appl_87 appl_93) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3358 of kl_V3358@(Atom (UnboundSym "symbol")) -> pat_cond_82 kl_V3358@(ApplC (PL "symbol" _)) -> pat_cond_82 kl_V3358@(ApplC (Func "symbol" _)) -> pat_cond_82 _ -> pat_cond_85))) !appl_94 <- kl_V3427 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3427 kl_V3429) appl_94 `pseq` applyWrapper appl_81 [appl_94] pat_cond_95 = do do return (Atom (B False)) in case kl_V3357 of kl_V3357@(Atom (UnboundSym "shen.process-datatype")) -> pat_cond_80 kl_V3357@(ApplC (PL "shen.process-datatype" _)) -> pat_cond_80 kl_V3357@(ApplC (Func "shen.process-datatype" _)) -> pat_cond_80 _ -> pat_cond_95))) !appl_96 <- kl_V3356h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3356h kl_V3429) appl_96 `pseq` applyWrapper appl_79 [appl_96] pat_cond_97 = do do return (Atom (B False)) in case kl_V3356 of !(kl_V3356@(Cons (!kl_V3356h) (!kl_V3356t))) -> pat_cond_78 kl_V3356 kl_V3356h kl_V3356t _ -> pat_cond_97))) !appl_98 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_99 <- appl_98 `pseq` applyWrapper appl_77 [appl_98] appl_99 `pseq` applyWrapper appl_39 [appl_99] pat_cond_100 = 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_100))) let !appl_101 = ApplC (Func "lambda" (Context (\(!kl_V3353) -> do let pat_cond_102 kl_V3353 kl_V3353h kl_V3353t = do let !appl_103 = ApplC (Func "lambda" (Context (\(!kl_V3354) -> do let pat_cond_104 = do let !appl_105 = ApplC (Func "lambda" (Context (\(!kl_V3355) -> do let pat_cond_106 = do !appl_107 <- kl_shen_incinfs !appl_108 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_cut kl_Throwcontrol kl_V3429 kl_V3430)) appl_107 `pseq` (appl_108 `pseq` kl_do appl_107 appl_108) pat_cond_109 = do do !kl_if_110 <- kl_V3355 `pseq` kl_shen_pvarP kl_V3355 case kl_if_110 of Atom (B (True)) -> do !appl_111 <- kl_V3355 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3355 (Types.Atom (Types.UnboundSym "unit")) kl_V3429) let !appl_112 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_113 <- kl_V3355 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3355 kl_V3429) appl_113 `pseq` (kl_Result `pseq` kl_do appl_113 kl_Result)))) !appl_114 <- kl_shen_incinfs !appl_115 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_cut kl_Throwcontrol kl_V3429 kl_V3430)) !appl_116 <- appl_114 `pseq` (appl_115 `pseq` kl_do appl_114 appl_115) !appl_117 <- appl_116 `pseq` applyWrapper appl_112 [appl_116] appl_111 `pseq` (appl_117 `pseq` kl_do appl_111 appl_117) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3355 of kl_V3355@(Atom (UnboundSym "unit")) -> pat_cond_106 kl_V3355@(ApplC (PL "unit" _)) -> pat_cond_106 kl_V3355@(ApplC (Func "unit" _)) -> pat_cond_106 _ -> pat_cond_109))) !appl_118 <- kl_V3427 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3427 kl_V3429) appl_118 `pseq` applyWrapper appl_105 [appl_118] pat_cond_119 = do do return (Atom (B False)) in case kl_V3354 of kl_V3354@(Atom (UnboundSym "defmacro")) -> pat_cond_104 kl_V3354@(ApplC (PL "defmacro" _)) -> pat_cond_104 kl_V3354@(ApplC (Func "defmacro" _)) -> pat_cond_104 _ -> pat_cond_119))) !appl_120 <- kl_V3353h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3353h kl_V3429) appl_120 `pseq` applyWrapper appl_103 [appl_120] pat_cond_121 = do do return (Atom (B False)) in case kl_V3353 of !(kl_V3353@(Cons (!kl_V3353h) (!kl_V3353t))) -> pat_cond_102 kl_V3353 kl_V3353h kl_V3353t _ -> pat_cond_121))) !appl_122 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_123 <- appl_122 `pseq` applyWrapper appl_101 [appl_122] appl_123 `pseq` applyWrapper appl_37 [appl_123] pat_cond_124 = 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_124))) let !appl_125 = ApplC (Func "lambda" (Context (\(!kl_V3350) -> do let pat_cond_126 kl_V3350 kl_V3350h kl_V3350t = do let !appl_127 = ApplC (Func "lambda" (Context (\(!kl_V3351) -> do let pat_cond_128 = do let !appl_129 = ApplC (Func "lambda" (Context (\(!kl_V3352) -> do let pat_cond_130 kl_V3352 kl_V3352h kl_V3352t = do let !appl_131 = ApplC (Func "lambda" (Context (\(!kl_F) -> do let !appl_132 = ApplC (Func "lambda" (Context (\(!kl_X) -> do !appl_133 <- kl_shen_incinfs let !appl_134 = ApplC (PL "thunk" (do !appl_135 <- kl_F `pseq` (kl_X `pseq` klCons kl_F kl_X) !appl_136 <- appl_135 `pseq` klCons (Types.Atom (Types.UnboundSym "define")) appl_135 appl_136 `pseq` (kl_V3427 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_tMult_def appl_136 kl_V3427 kl_V3428 kl_V3429 kl_V3430)))))) !appl_137 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_134 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_134)) appl_133 `pseq` (appl_137 `pseq` kl_do appl_133 appl_137)))) kl_V3352t `pseq` applyWrapper appl_132 [kl_V3352t]))) kl_V3352h `pseq` applyWrapper appl_131 [kl_V3352h] pat_cond_138 = do do return (Atom (B False)) in case kl_V3352 of !(kl_V3352@(Cons (!kl_V3352h) (!kl_V3352t))) -> pat_cond_130 kl_V3352 kl_V3352h kl_V3352t _ -> pat_cond_138))) !appl_139 <- kl_V3350t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3350t kl_V3429) appl_139 `pseq` applyWrapper appl_129 [appl_139] pat_cond_140 = do do return (Atom (B False)) in case kl_V3351 of kl_V3351@(Atom (UnboundSym "define")) -> pat_cond_128 kl_V3351@(ApplC (PL "define" _)) -> pat_cond_128 kl_V3351@(ApplC (Func "define" _)) -> pat_cond_128 _ -> pat_cond_140))) !appl_141 <- kl_V3350h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3350h kl_V3429) appl_141 `pseq` applyWrapper appl_127 [appl_141] pat_cond_142 = do do return (Atom (B False)) in case kl_V3350 of !(kl_V3350@(Cons (!kl_V3350h) (!kl_V3350t))) -> pat_cond_126 kl_V3350 kl_V3350h kl_V3350t _ -> pat_cond_142))) !appl_143 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_144 <- appl_143 `pseq` applyWrapper appl_125 [appl_143] appl_144 `pseq` applyWrapper appl_35 [appl_144] pat_cond_145 = 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_145))) let !appl_146 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_147 <- kl_shen_incinfs let !appl_148 = ApplC (PL "thunk" (do kl_V3426 `pseq` (kl_V3427 `pseq` (kl_NewHyp `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_V3426 kl_V3427 kl_NewHyp kl_V3429 kl_V3430)))))) !appl_149 <- kl_V3428 `pseq` (kl_NewHyp `pseq` (kl_V3429 `pseq` (appl_148 `pseq` kl_shen_tMult_hyps kl_V3428 kl_NewHyp kl_V3429 appl_148))) appl_147 `pseq` (appl_149 `pseq` kl_do appl_147 appl_149)))) !appl_150 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 !appl_151 <- appl_150 `pseq` applyWrapper appl_146 [appl_150] appl_151 `pseq` applyWrapper appl_33 [appl_151] pat_cond_152 = 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_152))) let !appl_153 = ApplC (Func "lambda" (Context (\(!kl_V3345) -> do let pat_cond_154 kl_V3345 kl_V3345h kl_V3345t = do let !appl_155 = ApplC (Func "lambda" (Context (\(!kl_V3346) -> do let pat_cond_156 = do let !appl_157 = ApplC (Func "lambda" (Context (\(!kl_V3347) -> do let pat_cond_158 kl_V3347 kl_V3347h kl_V3347t = do let !appl_159 = ApplC (Func "lambda" (Context (\(!kl_Var) -> do let !appl_160 = ApplC (Func "lambda" (Context (\(!kl_V3348) -> do let pat_cond_161 kl_V3348 kl_V3348h kl_V3348t = do let !appl_162 = ApplC (Func "lambda" (Context (\(!kl_Val) -> do let !appl_163 = ApplC (Func "lambda" (Context (\(!kl_V3349) -> do let pat_cond_164 = do !appl_165 <- kl_shen_incinfs let !appl_166 = ApplC (PL "thunk" (do let !appl_167 = ApplC (PL "thunk" (do let !appl_168 = ApplC (PL "thunk" (do !appl_169 <- kl_Var `pseq` klCons kl_Var (Types.Atom Types.Nil) !appl_170 <- appl_169 `pseq` klCons (ApplC (wrapNamed "value" value)) appl_169 let !appl_171 = ApplC (PL "thunk" (do kl_Val `pseq` (kl_V3427 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Val kl_V3427 kl_V3428 kl_V3429 kl_V3430)))))) appl_170 `pseq` (kl_V3427 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_171 `pseq` kl_shen_thMult appl_170 kl_V3427 kl_V3428 kl_V3429 appl_171)))))) kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_168 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_168)))) kl_Var `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_167 `pseq` kl_shen_thMult kl_Var (Types.Atom (Types.UnboundSym "symbol")) kl_V3428 kl_V3429 appl_167))))) !appl_172 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_166 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_166)) appl_165 `pseq` (appl_172 `pseq` kl_do appl_165 appl_172) pat_cond_173 = do do return (Atom (B False)) in case kl_V3349 of kl_V3349@(Atom (Nil)) -> pat_cond_164 _ -> pat_cond_173))) !appl_174 <- kl_V3348t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3348t kl_V3429) appl_174 `pseq` applyWrapper appl_163 [appl_174]))) kl_V3348h `pseq` applyWrapper appl_162 [kl_V3348h] pat_cond_175 = do do return (Atom (B False)) in case kl_V3348 of !(kl_V3348@(Cons (!kl_V3348h) (!kl_V3348t))) -> pat_cond_161 kl_V3348 kl_V3348h kl_V3348t _ -> pat_cond_175))) !appl_176 <- kl_V3347t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3347t kl_V3429) appl_176 `pseq` applyWrapper appl_160 [appl_176]))) kl_V3347h `pseq` applyWrapper appl_159 [kl_V3347h] pat_cond_177 = do do return (Atom (B False)) in case kl_V3347 of !(kl_V3347@(Cons (!kl_V3347h) (!kl_V3347t))) -> pat_cond_158 kl_V3347 kl_V3347h kl_V3347t _ -> pat_cond_177))) !appl_178 <- kl_V3345t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3345t kl_V3429) appl_178 `pseq` applyWrapper appl_157 [appl_178] pat_cond_179 = do do return (Atom (B False)) in case kl_V3346 of kl_V3346@(Atom (UnboundSym "set")) -> pat_cond_156 kl_V3346@(ApplC (PL "set" _)) -> pat_cond_156 kl_V3346@(ApplC (Func "set" _)) -> pat_cond_156 _ -> pat_cond_179))) !appl_180 <- kl_V3345h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3345h kl_V3429) appl_180 `pseq` applyWrapper appl_155 [appl_180] pat_cond_181 = do do return (Atom (B False)) in case kl_V3345 of !(kl_V3345@(Cons (!kl_V3345h) (!kl_V3345t))) -> pat_cond_154 kl_V3345 kl_V3345h kl_V3345t _ -> pat_cond_181))) !appl_182 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_183 <- appl_182 `pseq` applyWrapper appl_153 [appl_182] appl_183 `pseq` applyWrapper appl_31 [appl_183] pat_cond_184 = 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_184))) let !appl_185 = ApplC (Func "lambda" (Context (\(!kl_V3340) -> do let pat_cond_186 kl_V3340 kl_V3340h kl_V3340t = do let !appl_187 = ApplC (Func "lambda" (Context (\(!kl_V3341) -> do let pat_cond_188 = do let !appl_189 = ApplC (Func "lambda" (Context (\(!kl_V3342) -> do let pat_cond_190 kl_V3342 kl_V3342h kl_V3342t = do let !appl_191 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_192 = ApplC (Func "lambda" (Context (\(!kl_V3343) -> do let pat_cond_193 kl_V3343 kl_V3343h kl_V3343t = do let !appl_194 = ApplC (Func "lambda" (Context (\(!kl_Stream) -> do let !appl_195 = ApplC (Func "lambda" (Context (\(!kl_V3344) -> do let pat_cond_196 = do let !appl_197 = ApplC (Func "lambda" (Context (\(!kl_C) -> do !appl_198 <- kl_shen_incinfs !appl_199 <- kl_A `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_A kl_V3429) !appl_200 <- appl_199 `pseq` kl_shen_demodulate appl_199 let !appl_201 = ApplC (PL "thunk" (do let !appl_202 = ApplC (PL "thunk" (do !appl_203 <- klCons (Types.Atom (Types.UnboundSym "in")) (Types.Atom Types.Nil) !appl_204 <- appl_203 `pseq` klCons (Types.Atom (Types.UnboundSym "stream")) appl_203 kl_Stream `pseq` (appl_204 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Stream appl_204 kl_V3428 kl_V3429 kl_V3430)))))) kl_V3427 `pseq` (kl_C `pseq` (kl_V3429 `pseq` (appl_202 `pseq` kl_unify kl_V3427 kl_C kl_V3429 appl_202))))) !appl_205 <- kl_C `pseq` (appl_200 `pseq` (kl_V3429 `pseq` (appl_201 `pseq` kl_bind kl_C appl_200 kl_V3429 appl_201))) appl_198 `pseq` (appl_205 `pseq` kl_do appl_198 appl_205)))) !appl_206 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_206 `pseq` applyWrapper appl_197 [appl_206] pat_cond_207 = do do return (Atom (B False)) in case kl_V3344 of kl_V3344@(Atom (Nil)) -> pat_cond_196 _ -> pat_cond_207))) !appl_208 <- kl_V3343t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3343t kl_V3429) appl_208 `pseq` applyWrapper appl_195 [appl_208]))) kl_V3343h `pseq` applyWrapper appl_194 [kl_V3343h] pat_cond_209 = do do return (Atom (B False)) in case kl_V3343 of !(kl_V3343@(Cons (!kl_V3343h) (!kl_V3343t))) -> pat_cond_193 kl_V3343 kl_V3343h kl_V3343t _ -> pat_cond_209))) !appl_210 <- kl_V3342t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3342t kl_V3429) appl_210 `pseq` applyWrapper appl_192 [appl_210]))) kl_V3342h `pseq` applyWrapper appl_191 [kl_V3342h] pat_cond_211 = do do return (Atom (B False)) in case kl_V3342 of !(kl_V3342@(Cons (!kl_V3342h) (!kl_V3342t))) -> pat_cond_190 kl_V3342 kl_V3342h kl_V3342t _ -> pat_cond_211))) !appl_212 <- kl_V3340t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3340t kl_V3429) appl_212 `pseq` applyWrapper appl_189 [appl_212] pat_cond_213 = do do return (Atom (B False)) in case kl_V3341 of kl_V3341@(Atom (UnboundSym "input+")) -> pat_cond_188 kl_V3341@(ApplC (PL "input+" _)) -> pat_cond_188 kl_V3341@(ApplC (Func "input+" _)) -> pat_cond_188 _ -> pat_cond_213))) !appl_214 <- kl_V3340h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3340h kl_V3429) appl_214 `pseq` applyWrapper appl_187 [appl_214] pat_cond_215 = do do return (Atom (B False)) in case kl_V3340 of !(kl_V3340@(Cons (!kl_V3340h) (!kl_V3340t))) -> pat_cond_186 kl_V3340 kl_V3340h kl_V3340t _ -> pat_cond_215))) !appl_216 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_217 <- appl_216 `pseq` applyWrapper appl_185 [appl_216] appl_217 `pseq` applyWrapper appl_29 [appl_217] pat_cond_218 = 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_218))) let !appl_219 = ApplC (Func "lambda" (Context (\(!kl_V3335) -> do let pat_cond_220 kl_V3335 kl_V3335h kl_V3335t = do let !appl_221 = ApplC (Func "lambda" (Context (\(!kl_V3336) -> do let pat_cond_222 = do let !appl_223 = ApplC (Func "lambda" (Context (\(!kl_V3337) -> do let pat_cond_224 kl_V3337 kl_V3337h kl_V3337t = do let !appl_225 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_226 = ApplC (Func "lambda" (Context (\(!kl_V3338) -> do let pat_cond_227 kl_V3338 kl_V3338h kl_V3338t = do let !appl_228 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_229 = ApplC (Func "lambda" (Context (\(!kl_V3339) -> do let pat_cond_230 = do !appl_231 <- kl_shen_incinfs let !appl_232 = ApplC (PL "thunk" (do let !appl_233 = ApplC (PL "thunk" (do kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 kl_V3430)))))) kl_A `pseq` (kl_V3427 `pseq` (kl_V3429 `pseq` (appl_233 `pseq` kl_unify kl_A kl_V3427 kl_V3429 appl_233))))) !appl_234 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_232 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_232)) appl_231 `pseq` (appl_234 `pseq` kl_do appl_231 appl_234) pat_cond_235 = do do return (Atom (B False)) in case kl_V3339 of kl_V3339@(Atom (Nil)) -> pat_cond_230 _ -> pat_cond_235))) !appl_236 <- kl_V3338t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3338t kl_V3429) appl_236 `pseq` applyWrapper appl_229 [appl_236]))) kl_V3338h `pseq` applyWrapper appl_228 [kl_V3338h] pat_cond_237 = do do return (Atom (B False)) in case kl_V3338 of !(kl_V3338@(Cons (!kl_V3338h) (!kl_V3338t))) -> pat_cond_227 kl_V3338 kl_V3338h kl_V3338t _ -> pat_cond_237))) !appl_238 <- kl_V3337t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3337t kl_V3429) appl_238 `pseq` applyWrapper appl_226 [appl_238]))) kl_V3337h `pseq` applyWrapper appl_225 [kl_V3337h] pat_cond_239 = do do return (Atom (B False)) in case kl_V3337 of !(kl_V3337@(Cons (!kl_V3337h) (!kl_V3337t))) -> pat_cond_224 kl_V3337 kl_V3337h kl_V3337t _ -> pat_cond_239))) !appl_240 <- kl_V3335t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3335t kl_V3429) appl_240 `pseq` applyWrapper appl_223 [appl_240] pat_cond_241 = do do return (Atom (B False)) in case kl_V3336 of kl_V3336@(Atom (UnboundSym "type")) -> pat_cond_222 kl_V3336@(ApplC (PL "type" _)) -> pat_cond_222 kl_V3336@(ApplC (Func "type" _)) -> pat_cond_222 _ -> pat_cond_241))) !appl_242 <- kl_V3335h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3335h kl_V3429) appl_242 `pseq` applyWrapper appl_221 [appl_242] pat_cond_243 = do do return (Atom (B False)) in case kl_V3335 of !(kl_V3335@(Cons (!kl_V3335h) (!kl_V3335t))) -> pat_cond_220 kl_V3335 kl_V3335h kl_V3335t _ -> pat_cond_243))) !appl_244 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_245 <- appl_244 `pseq` applyWrapper appl_219 [appl_244] appl_245 `pseq` applyWrapper appl_27 [appl_245] pat_cond_246 = 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_246))) let !appl_247 = ApplC (Func "lambda" (Context (\(!kl_V3324) -> do let pat_cond_248 kl_V3324 kl_V3324h kl_V3324t = do let !appl_249 = ApplC (Func "lambda" (Context (\(!kl_V3325) -> do let pat_cond_250 = do let !appl_251 = ApplC (Func "lambda" (Context (\(!kl_V3326) -> do let pat_cond_252 kl_V3326 kl_V3326h kl_V3326t = do let !appl_253 = ApplC (Func "lambda" (Context (\(!kl_FileName) -> do let !appl_254 = ApplC (Func "lambda" (Context (\(!kl_V3327) -> do let pat_cond_255 kl_V3327 kl_V3327h kl_V3327t = do let !appl_256 = ApplC (Func "lambda" (Context (\(!kl_Direction3257) -> do let !appl_257 = ApplC (Func "lambda" (Context (\(!kl_V3328) -> do let pat_cond_258 = do let !appl_259 = ApplC (Func "lambda" (Context (\(!kl_V3329) -> do let pat_cond_260 kl_V3329 kl_V3329h kl_V3329t = do let !appl_261 = ApplC (Func "lambda" (Context (\(!kl_V3330) -> do let pat_cond_262 = do let !appl_263 = ApplC (Func "lambda" (Context (\(!kl_V3331) -> do let pat_cond_264 kl_V3331 kl_V3331h kl_V3331t = do let !appl_265 = ApplC (Func "lambda" (Context (\(!kl_Direction) -> do let !appl_266 = ApplC (Func "lambda" (Context (\(!kl_V3332) -> do let pat_cond_267 = do !appl_268 <- kl_shen_incinfs let !appl_269 = ApplC (PL "thunk" (do let !appl_270 = ApplC (PL "thunk" (do !appl_271 <- kl_Direction `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Direction kl_V3429) !appl_272 <- klCons (Types.Atom (Types.UnboundSym "out")) (Types.Atom Types.Nil) !appl_273 <- appl_272 `pseq` klCons (Types.Atom (Types.UnboundSym "in")) appl_272 !appl_274 <- appl_271 `pseq` (appl_273 `pseq` kl_elementP appl_271 appl_273) let !appl_275 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_FileName (Types.Atom (Types.UnboundSym "string")) kl_V3428 kl_V3429 kl_V3430))))) appl_274 `pseq` (kl_V3429 `pseq` (appl_275 `pseq` kl_fwhen appl_274 kl_V3429 appl_275)))) kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_270 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_270)))) !appl_276 <- kl_Direction `pseq` (kl_Direction3257 `pseq` (kl_V3429 `pseq` (appl_269 `pseq` kl_unifyExcl kl_Direction kl_Direction3257 kl_V3429 appl_269))) appl_268 `pseq` (appl_276 `pseq` kl_do appl_268 appl_276) pat_cond_277 = do do !kl_if_278 <- kl_V3332 `pseq` kl_shen_pvarP kl_V3332 case kl_if_278 of Atom (B (True)) -> do !appl_279 <- kl_V3332 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3332 (Types.Atom Types.Nil) kl_V3429) let !appl_280 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_281 <- kl_V3332 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3332 kl_V3429) appl_281 `pseq` (kl_Result `pseq` kl_do appl_281 kl_Result)))) !appl_282 <- kl_shen_incinfs let !appl_283 = ApplC (PL "thunk" (do let !appl_284 = ApplC (PL "thunk" (do !appl_285 <- kl_Direction `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Direction kl_V3429) !appl_286 <- klCons (Types.Atom (Types.UnboundSym "out")) (Types.Atom Types.Nil) !appl_287 <- appl_286 `pseq` klCons (Types.Atom (Types.UnboundSym "in")) appl_286 !appl_288 <- appl_285 `pseq` (appl_287 `pseq` kl_elementP appl_285 appl_287) let !appl_289 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_FileName (Types.Atom (Types.UnboundSym "string")) kl_V3428 kl_V3429 kl_V3430))))) appl_288 `pseq` (kl_V3429 `pseq` (appl_289 `pseq` kl_fwhen appl_288 kl_V3429 appl_289)))) kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_284 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_284)))) !appl_290 <- kl_Direction `pseq` (kl_Direction3257 `pseq` (kl_V3429 `pseq` (appl_283 `pseq` kl_unifyExcl kl_Direction kl_Direction3257 kl_V3429 appl_283))) !appl_291 <- appl_282 `pseq` (appl_290 `pseq` kl_do appl_282 appl_290) !appl_292 <- appl_291 `pseq` applyWrapper appl_280 [appl_291] appl_279 `pseq` (appl_292 `pseq` kl_do appl_279 appl_292) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3332 of kl_V3332@(Atom (Nil)) -> pat_cond_267 _ -> pat_cond_277))) !appl_293 <- kl_V3331t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3331t kl_V3429) appl_293 `pseq` applyWrapper appl_266 [appl_293]))) kl_V3331h `pseq` applyWrapper appl_265 [kl_V3331h] pat_cond_294 = do do !kl_if_295 <- kl_V3331 `pseq` kl_shen_pvarP kl_V3331 case kl_if_295 of Atom (B (True)) -> do let !appl_296 = ApplC (Func "lambda" (Context (\(!kl_Direction) -> do !appl_297 <- kl_Direction `pseq` klCons kl_Direction (Types.Atom Types.Nil) !appl_298 <- kl_V3331 `pseq` (appl_297 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3331 appl_297 kl_V3429)) let !appl_299 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_300 <- kl_V3331 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3331 kl_V3429) appl_300 `pseq` (kl_Result `pseq` kl_do appl_300 kl_Result)))) !appl_301 <- kl_shen_incinfs let !appl_302 = ApplC (PL "thunk" (do let !appl_303 = ApplC (PL "thunk" (do !appl_304 <- kl_Direction `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Direction kl_V3429) !appl_305 <- klCons (Types.Atom (Types.UnboundSym "out")) (Types.Atom Types.Nil) !appl_306 <- appl_305 `pseq` klCons (Types.Atom (Types.UnboundSym "in")) appl_305 !appl_307 <- appl_304 `pseq` (appl_306 `pseq` kl_elementP appl_304 appl_306) let !appl_308 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_FileName (Types.Atom (Types.UnboundSym "string")) kl_V3428 kl_V3429 kl_V3430))))) appl_307 `pseq` (kl_V3429 `pseq` (appl_308 `pseq` kl_fwhen appl_307 kl_V3429 appl_308)))) kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_303 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_303)))) !appl_309 <- kl_Direction `pseq` (kl_Direction3257 `pseq` (kl_V3429 `pseq` (appl_302 `pseq` kl_unifyExcl kl_Direction kl_Direction3257 kl_V3429 appl_302))) !appl_310 <- appl_301 `pseq` (appl_309 `pseq` kl_do appl_301 appl_309) !appl_311 <- appl_310 `pseq` applyWrapper appl_299 [appl_310] appl_298 `pseq` (appl_311 `pseq` kl_do appl_298 appl_311)))) !appl_312 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_312 `pseq` applyWrapper appl_296 [appl_312] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3331 of !(kl_V3331@(Cons (!kl_V3331h) (!kl_V3331t))) -> pat_cond_264 kl_V3331 kl_V3331h kl_V3331t _ -> pat_cond_294))) !appl_313 <- kl_V3329t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3329t kl_V3429) appl_313 `pseq` applyWrapper appl_263 [appl_313] pat_cond_314 = do do !kl_if_315 <- kl_V3330 `pseq` kl_shen_pvarP kl_V3330 case kl_if_315 of Atom (B (True)) -> do !appl_316 <- kl_V3330 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3330 (Types.Atom (Types.UnboundSym "stream")) kl_V3429) let !appl_317 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_318 <- kl_V3330 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3330 kl_V3429) appl_318 `pseq` (kl_Result `pseq` kl_do appl_318 kl_Result)))) let !appl_319 = ApplC (Func "lambda" (Context (\(!kl_V3333) -> do let pat_cond_320 kl_V3333 kl_V3333h kl_V3333t = do let !appl_321 = ApplC (Func "lambda" (Context (\(!kl_Direction) -> do let !appl_322 = ApplC (Func "lambda" (Context (\(!kl_V3334) -> do let pat_cond_323 = do !appl_324 <- kl_shen_incinfs let !appl_325 = ApplC (PL "thunk" (do let !appl_326 = ApplC (PL "thunk" (do !appl_327 <- kl_Direction `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Direction kl_V3429) !appl_328 <- klCons (Types.Atom (Types.UnboundSym "out")) (Types.Atom Types.Nil) !appl_329 <- appl_328 `pseq` klCons (Types.Atom (Types.UnboundSym "in")) appl_328 !appl_330 <- appl_327 `pseq` (appl_329 `pseq` kl_elementP appl_327 appl_329) let !appl_331 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_FileName (Types.Atom (Types.UnboundSym "string")) kl_V3428 kl_V3429 kl_V3430))))) appl_330 `pseq` (kl_V3429 `pseq` (appl_331 `pseq` kl_fwhen appl_330 kl_V3429 appl_331)))) kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_326 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_326)))) !appl_332 <- kl_Direction `pseq` (kl_Direction3257 `pseq` (kl_V3429 `pseq` (appl_325 `pseq` kl_unifyExcl kl_Direction kl_Direction3257 kl_V3429 appl_325))) appl_324 `pseq` (appl_332 `pseq` kl_do appl_324 appl_332) pat_cond_333 = do do !kl_if_334 <- kl_V3334 `pseq` kl_shen_pvarP kl_V3334 case kl_if_334 of Atom (B (True)) -> do !appl_335 <- kl_V3334 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3334 (Types.Atom Types.Nil) kl_V3429) let !appl_336 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_337 <- kl_V3334 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3334 kl_V3429) appl_337 `pseq` (kl_Result `pseq` kl_do appl_337 kl_Result)))) !appl_338 <- kl_shen_incinfs let !appl_339 = ApplC (PL "thunk" (do let !appl_340 = ApplC (PL "thunk" (do !appl_341 <- kl_Direction `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Direction kl_V3429) !appl_342 <- klCons (Types.Atom (Types.UnboundSym "out")) (Types.Atom Types.Nil) !appl_343 <- appl_342 `pseq` klCons (Types.Atom (Types.UnboundSym "in")) appl_342 !appl_344 <- appl_341 `pseq` (appl_343 `pseq` kl_elementP appl_341 appl_343) let !appl_345 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_FileName (Types.Atom (Types.UnboundSym "string")) kl_V3428 kl_V3429 kl_V3430))))) appl_344 `pseq` (kl_V3429 `pseq` (appl_345 `pseq` kl_fwhen appl_344 kl_V3429 appl_345)))) kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_340 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_340)))) !appl_346 <- kl_Direction `pseq` (kl_Direction3257 `pseq` (kl_V3429 `pseq` (appl_339 `pseq` kl_unifyExcl kl_Direction kl_Direction3257 kl_V3429 appl_339))) !appl_347 <- appl_338 `pseq` (appl_346 `pseq` kl_do appl_338 appl_346) !appl_348 <- appl_347 `pseq` applyWrapper appl_336 [appl_347] appl_335 `pseq` (appl_348 `pseq` kl_do appl_335 appl_348) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3334 of kl_V3334@(Atom (Nil)) -> pat_cond_323 _ -> pat_cond_333))) !appl_349 <- kl_V3333t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3333t kl_V3429) appl_349 `pseq` applyWrapper appl_322 [appl_349]))) kl_V3333h `pseq` applyWrapper appl_321 [kl_V3333h] pat_cond_350 = do do !kl_if_351 <- kl_V3333 `pseq` kl_shen_pvarP kl_V3333 case kl_if_351 of Atom (B (True)) -> do let !appl_352 = ApplC (Func "lambda" (Context (\(!kl_Direction) -> do !appl_353 <- kl_Direction `pseq` klCons kl_Direction (Types.Atom Types.Nil) !appl_354 <- kl_V3333 `pseq` (appl_353 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3333 appl_353 kl_V3429)) let !appl_355 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_356 <- kl_V3333 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3333 kl_V3429) appl_356 `pseq` (kl_Result `pseq` kl_do appl_356 kl_Result)))) !appl_357 <- kl_shen_incinfs let !appl_358 = ApplC (PL "thunk" (do let !appl_359 = ApplC (PL "thunk" (do !appl_360 <- kl_Direction `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Direction kl_V3429) !appl_361 <- klCons (Types.Atom (Types.UnboundSym "out")) (Types.Atom Types.Nil) !appl_362 <- appl_361 `pseq` klCons (Types.Atom (Types.UnboundSym "in")) appl_361 !appl_363 <- appl_360 `pseq` (appl_362 `pseq` kl_elementP appl_360 appl_362) let !appl_364 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_FileName (Types.Atom (Types.UnboundSym "string")) kl_V3428 kl_V3429 kl_V3430))))) appl_363 `pseq` (kl_V3429 `pseq` (appl_364 `pseq` kl_fwhen appl_363 kl_V3429 appl_364)))) kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_359 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_359)))) !appl_365 <- kl_Direction `pseq` (kl_Direction3257 `pseq` (kl_V3429 `pseq` (appl_358 `pseq` kl_unifyExcl kl_Direction kl_Direction3257 kl_V3429 appl_358))) !appl_366 <- appl_357 `pseq` (appl_365 `pseq` kl_do appl_357 appl_365) !appl_367 <- appl_366 `pseq` applyWrapper appl_355 [appl_366] appl_354 `pseq` (appl_367 `pseq` kl_do appl_354 appl_367)))) !appl_368 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_368 `pseq` applyWrapper appl_352 [appl_368] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3333 of !(kl_V3333@(Cons (!kl_V3333h) (!kl_V3333t))) -> pat_cond_320 kl_V3333 kl_V3333h kl_V3333t _ -> pat_cond_350))) !appl_369 <- kl_V3329t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3329t kl_V3429) !appl_370 <- appl_369 `pseq` applyWrapper appl_319 [appl_369] !appl_371 <- appl_370 `pseq` applyWrapper appl_317 [appl_370] appl_316 `pseq` (appl_371 `pseq` kl_do appl_316 appl_371) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3330 of kl_V3330@(Atom (UnboundSym "stream")) -> pat_cond_262 kl_V3330@(ApplC (PL "stream" _)) -> pat_cond_262 kl_V3330@(ApplC (Func "stream" _)) -> pat_cond_262 _ -> pat_cond_314))) !appl_372 <- kl_V3329h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3329h kl_V3429) appl_372 `pseq` applyWrapper appl_261 [appl_372] pat_cond_373 = do do !kl_if_374 <- kl_V3329 `pseq` kl_shen_pvarP kl_V3329 case kl_if_374 of Atom (B (True)) -> do let !appl_375 = ApplC (Func "lambda" (Context (\(!kl_Direction) -> do !appl_376 <- kl_Direction `pseq` klCons kl_Direction (Types.Atom Types.Nil) !appl_377 <- appl_376 `pseq` klCons (Types.Atom (Types.UnboundSym "stream")) appl_376 !appl_378 <- kl_V3329 `pseq` (appl_377 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3329 appl_377 kl_V3429)) let !appl_379 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_380 <- kl_V3329 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3329 kl_V3429) appl_380 `pseq` (kl_Result `pseq` kl_do appl_380 kl_Result)))) !appl_381 <- kl_shen_incinfs let !appl_382 = ApplC (PL "thunk" (do let !appl_383 = ApplC (PL "thunk" (do !appl_384 <- kl_Direction `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Direction kl_V3429) !appl_385 <- klCons (Types.Atom (Types.UnboundSym "out")) (Types.Atom Types.Nil) !appl_386 <- appl_385 `pseq` klCons (Types.Atom (Types.UnboundSym "in")) appl_385 !appl_387 <- appl_384 `pseq` (appl_386 `pseq` kl_elementP appl_384 appl_386) let !appl_388 = ApplC (PL "thunk" (do kl_FileName `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_FileName (Types.Atom (Types.UnboundSym "string")) kl_V3428 kl_V3429 kl_V3430))))) appl_387 `pseq` (kl_V3429 `pseq` (appl_388 `pseq` kl_fwhen appl_387 kl_V3429 appl_388)))) kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_383 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_383)))) !appl_389 <- kl_Direction `pseq` (kl_Direction3257 `pseq` (kl_V3429 `pseq` (appl_382 `pseq` kl_unifyExcl kl_Direction kl_Direction3257 kl_V3429 appl_382))) !appl_390 <- appl_381 `pseq` (appl_389 `pseq` kl_do appl_381 appl_389) !appl_391 <- appl_390 `pseq` applyWrapper appl_379 [appl_390] appl_378 `pseq` (appl_391 `pseq` kl_do appl_378 appl_391)))) !appl_392 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_392 `pseq` applyWrapper appl_375 [appl_392] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3329 of !(kl_V3329@(Cons (!kl_V3329h) (!kl_V3329t))) -> pat_cond_260 kl_V3329 kl_V3329h kl_V3329t _ -> pat_cond_373))) !appl_393 <- kl_V3427 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3427 kl_V3429) appl_393 `pseq` applyWrapper appl_259 [appl_393] pat_cond_394 = do do return (Atom (B False)) in case kl_V3328 of kl_V3328@(Atom (Nil)) -> pat_cond_258 _ -> pat_cond_394))) !appl_395 <- kl_V3327t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3327t kl_V3429) appl_395 `pseq` applyWrapper appl_257 [appl_395]))) kl_V3327h `pseq` applyWrapper appl_256 [kl_V3327h] pat_cond_396 = do do return (Atom (B False)) in case kl_V3327 of !(kl_V3327@(Cons (!kl_V3327h) (!kl_V3327t))) -> pat_cond_255 kl_V3327 kl_V3327h kl_V3327t _ -> pat_cond_396))) !appl_397 <- kl_V3326t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3326t kl_V3429) appl_397 `pseq` applyWrapper appl_254 [appl_397]))) kl_V3326h `pseq` applyWrapper appl_253 [kl_V3326h] pat_cond_398 = do do return (Atom (B False)) in case kl_V3326 of !(kl_V3326@(Cons (!kl_V3326h) (!kl_V3326t))) -> pat_cond_252 kl_V3326 kl_V3326h kl_V3326t _ -> pat_cond_398))) !appl_399 <- kl_V3324t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3324t kl_V3429) appl_399 `pseq` applyWrapper appl_251 [appl_399] pat_cond_400 = do do return (Atom (B False)) in case kl_V3325 of kl_V3325@(Atom (UnboundSym "open")) -> pat_cond_250 kl_V3325@(ApplC (PL "open" _)) -> pat_cond_250 kl_V3325@(ApplC (Func "open" _)) -> pat_cond_250 _ -> pat_cond_400))) !appl_401 <- kl_V3324h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3324h kl_V3429) appl_401 `pseq` applyWrapper appl_249 [appl_401] pat_cond_402 = do do return (Atom (B False)) in case kl_V3324 of !(kl_V3324@(Cons (!kl_V3324h) (!kl_V3324t))) -> pat_cond_248 kl_V3324 kl_V3324h kl_V3324t _ -> pat_cond_402))) !appl_403 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_404 <- appl_403 `pseq` applyWrapper appl_247 [appl_403] appl_404 `pseq` applyWrapper appl_25 [appl_404] pat_cond_405 = 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_405))) let !appl_406 = ApplC (Func "lambda" (Context (\(!kl_V3318) -> do let pat_cond_407 kl_V3318 kl_V3318h kl_V3318t = do let !appl_408 = ApplC (Func "lambda" (Context (\(!kl_V3319) -> do let pat_cond_409 = do let !appl_410 = ApplC (Func "lambda" (Context (\(!kl_V3320) -> do let pat_cond_411 kl_V3320 kl_V3320h kl_V3320t = do let !appl_412 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_413 = ApplC (Func "lambda" (Context (\(!kl_V3321) -> do let pat_cond_414 kl_V3321 kl_V3321h kl_V3321t = do let !appl_415 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_416 = ApplC (Func "lambda" (Context (\(!kl_V3322) -> do let pat_cond_417 kl_V3322 kl_V3322h kl_V3322t = do let !appl_418 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_419 = ApplC (Func "lambda" (Context (\(!kl_V3323) -> do let pat_cond_420 = do let !appl_421 = ApplC (Func "lambda" (Context (\(!kl_W) -> do let !appl_422 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do let !appl_423 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_424 <- kl_shen_incinfs let !appl_425 = ApplC (PL "thunk" (do !appl_426 <- kl_shen_placeholder let !appl_427 = ApplC (PL "thunk" (do !appl_428 <- kl_XAndAnd `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3429) !appl_429 <- kl_X `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_X kl_V3429) !appl_430 <- kl_Z `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Z kl_V3429) !appl_431 <- appl_428 `pseq` (appl_429 `pseq` (appl_430 `pseq` kl_shen_ebr appl_428 appl_429 appl_430)) let !appl_432 = ApplC (PL "thunk" (do !appl_433 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_434 <- appl_433 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_433 !appl_435 <- kl_XAndAnd `pseq` (appl_434 `pseq` klCons kl_XAndAnd appl_434) !appl_436 <- appl_435 `pseq` (kl_V3428 `pseq` klCons appl_435 kl_V3428) kl_W `pseq` (kl_V3427 `pseq` (appl_436 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_W kl_V3427 appl_436 kl_V3429 kl_V3430)))))) kl_W `pseq` (appl_431 `pseq` (kl_V3429 `pseq` (appl_432 `pseq` kl_bind kl_W appl_431 kl_V3429 appl_432))))) kl_XAndAnd `pseq` (appl_426 `pseq` (kl_V3429 `pseq` (appl_427 `pseq` kl_bind kl_XAndAnd appl_426 kl_V3429 appl_427))))) !appl_437 <- kl_Y `pseq` (kl_B `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_425 `pseq` kl_shen_thMult kl_Y kl_B kl_V3428 kl_V3429 appl_425)))) appl_424 `pseq` (appl_437 `pseq` kl_do appl_424 appl_437)))) !appl_438 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_438 `pseq` applyWrapper appl_423 [appl_438]))) !appl_439 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_439 `pseq` applyWrapper appl_422 [appl_439]))) !appl_440 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_440 `pseq` applyWrapper appl_421 [appl_440] pat_cond_441 = do do return (Atom (B False)) in case kl_V3323 of kl_V3323@(Atom (Nil)) -> pat_cond_420 _ -> pat_cond_441))) !appl_442 <- kl_V3322t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3322t kl_V3429) appl_442 `pseq` applyWrapper appl_419 [appl_442]))) kl_V3322h `pseq` applyWrapper appl_418 [kl_V3322h] pat_cond_443 = do do return (Atom (B False)) in case kl_V3322 of !(kl_V3322@(Cons (!kl_V3322h) (!kl_V3322t))) -> pat_cond_417 kl_V3322 kl_V3322h kl_V3322t _ -> pat_cond_443))) !appl_444 <- kl_V3321t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3321t kl_V3429) appl_444 `pseq` applyWrapper appl_416 [appl_444]))) kl_V3321h `pseq` applyWrapper appl_415 [kl_V3321h] pat_cond_445 = do do return (Atom (B False)) in case kl_V3321 of !(kl_V3321@(Cons (!kl_V3321h) (!kl_V3321t))) -> pat_cond_414 kl_V3321 kl_V3321h kl_V3321t _ -> pat_cond_445))) !appl_446 <- kl_V3320t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3320t kl_V3429) appl_446 `pseq` applyWrapper appl_413 [appl_446]))) kl_V3320h `pseq` applyWrapper appl_412 [kl_V3320h] pat_cond_447 = do do return (Atom (B False)) in case kl_V3320 of !(kl_V3320@(Cons (!kl_V3320h) (!kl_V3320t))) -> pat_cond_411 kl_V3320 kl_V3320h kl_V3320t _ -> pat_cond_447))) !appl_448 <- kl_V3318t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3318t kl_V3429) appl_448 `pseq` applyWrapper appl_410 [appl_448] pat_cond_449 = do do return (Atom (B False)) in case kl_V3319 of kl_V3319@(Atom (UnboundSym "let")) -> pat_cond_409 kl_V3319@(ApplC (PL "let" _)) -> pat_cond_409 kl_V3319@(ApplC (Func "let" _)) -> pat_cond_409 _ -> pat_cond_449))) !appl_450 <- kl_V3318h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3318h kl_V3429) appl_450 `pseq` applyWrapper appl_408 [appl_450] pat_cond_451 = do do return (Atom (B False)) in case kl_V3318 of !(kl_V3318@(Cons (!kl_V3318h) (!kl_V3318t))) -> pat_cond_407 kl_V3318 kl_V3318h kl_V3318t _ -> pat_cond_451))) !appl_452 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_453 <- appl_452 `pseq` applyWrapper appl_406 [appl_452] appl_453 `pseq` applyWrapper appl_23 [appl_453] pat_cond_454 = 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_454))) let !appl_455 = ApplC (Func "lambda" (Context (\(!kl_V3306) -> do let pat_cond_456 kl_V3306 kl_V3306h kl_V3306t = do let !appl_457 = ApplC (Func "lambda" (Context (\(!kl_V3307) -> do let pat_cond_458 = do let !appl_459 = ApplC (Func "lambda" (Context (\(!kl_V3308) -> do let pat_cond_460 kl_V3308 kl_V3308h kl_V3308t = do let !appl_461 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_462 = ApplC (Func "lambda" (Context (\(!kl_V3309) -> do let pat_cond_463 kl_V3309 kl_V3309h kl_V3309t = do let !appl_464 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_465 = ApplC (Func "lambda" (Context (\(!kl_V3310) -> do let pat_cond_466 = do let !appl_467 = ApplC (Func "lambda" (Context (\(!kl_V3311) -> do let pat_cond_468 kl_V3311 kl_V3311h kl_V3311t = do let !appl_469 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_470 = ApplC (Func "lambda" (Context (\(!kl_V3312) -> do let pat_cond_471 kl_V3312 kl_V3312h kl_V3312t = do let !appl_472 = ApplC (Func "lambda" (Context (\(!kl_V3313) -> do let pat_cond_473 = do let !appl_474 = ApplC (Func "lambda" (Context (\(!kl_V3314) -> do let pat_cond_475 kl_V3314 kl_V3314h kl_V3314t = do let !appl_476 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_477 = ApplC (Func "lambda" (Context (\(!kl_V3315) -> do let pat_cond_478 = do let !appl_479 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_480 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_481 <- kl_shen_incinfs let !appl_482 = ApplC (PL "thunk" (do !appl_483 <- kl_shen_placeholder let !appl_484 = ApplC (PL "thunk" (do !appl_485 <- kl_XAndAnd `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3429) !appl_486 <- kl_X `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_X kl_V3429) !appl_487 <- kl_Y `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Y kl_V3429) !appl_488 <- appl_485 `pseq` (appl_486 `pseq` (appl_487 `pseq` kl_shen_ebr appl_485 appl_486 appl_487)) let !appl_489 = ApplC (PL "thunk" (do !appl_490 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_491 <- appl_490 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_490 !appl_492 <- kl_XAndAnd `pseq` (appl_491 `pseq` klCons kl_XAndAnd appl_491) !appl_493 <- appl_492 `pseq` (kl_V3428 `pseq` klCons appl_492 kl_V3428) kl_Z `pseq` (kl_B `pseq` (appl_493 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Z kl_B appl_493 kl_V3429 kl_V3430)))))) kl_Z `pseq` (appl_488 `pseq` (kl_V3429 `pseq` (appl_489 `pseq` kl_bind kl_Z appl_488 kl_V3429 appl_489))))) kl_XAndAnd `pseq` (appl_483 `pseq` (kl_V3429 `pseq` (appl_484 `pseq` kl_bind kl_XAndAnd appl_483 kl_V3429 appl_484))))) !appl_494 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_482 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_482)) appl_481 `pseq` (appl_494 `pseq` kl_do appl_481 appl_494)))) !appl_495 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_495 `pseq` applyWrapper appl_480 [appl_495]))) !appl_496 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_496 `pseq` applyWrapper appl_479 [appl_496] pat_cond_497 = do do !kl_if_498 <- kl_V3315 `pseq` kl_shen_pvarP kl_V3315 case kl_if_498 of Atom (B (True)) -> do !appl_499 <- kl_V3315 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3315 (Types.Atom Types.Nil) kl_V3429) let !appl_500 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_501 <- kl_V3315 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3315 kl_V3429) appl_501 `pseq` (kl_Result `pseq` kl_do appl_501 kl_Result)))) let !appl_502 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_503 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_504 <- kl_shen_incinfs let !appl_505 = ApplC (PL "thunk" (do !appl_506 <- kl_shen_placeholder let !appl_507 = ApplC (PL "thunk" (do !appl_508 <- kl_XAndAnd `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3429) !appl_509 <- kl_X `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_X kl_V3429) !appl_510 <- kl_Y `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Y kl_V3429) !appl_511 <- appl_508 `pseq` (appl_509 `pseq` (appl_510 `pseq` kl_shen_ebr appl_508 appl_509 appl_510)) let !appl_512 = ApplC (PL "thunk" (do !appl_513 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_514 <- appl_513 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_513 !appl_515 <- kl_XAndAnd `pseq` (appl_514 `pseq` klCons kl_XAndAnd appl_514) !appl_516 <- appl_515 `pseq` (kl_V3428 `pseq` klCons appl_515 kl_V3428) kl_Z `pseq` (kl_B `pseq` (appl_516 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Z kl_B appl_516 kl_V3429 kl_V3430)))))) kl_Z `pseq` (appl_511 `pseq` (kl_V3429 `pseq` (appl_512 `pseq` kl_bind kl_Z appl_511 kl_V3429 appl_512))))) kl_XAndAnd `pseq` (appl_506 `pseq` (kl_V3429 `pseq` (appl_507 `pseq` kl_bind kl_XAndAnd appl_506 kl_V3429 appl_507))))) !appl_517 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_505 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_505)) appl_504 `pseq` (appl_517 `pseq` kl_do appl_504 appl_517)))) !appl_518 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_518 `pseq` applyWrapper appl_503 [appl_518]))) !appl_519 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 !appl_520 <- appl_519 `pseq` applyWrapper appl_502 [appl_519] !appl_521 <- appl_520 `pseq` applyWrapper appl_500 [appl_520] appl_499 `pseq` (appl_521 `pseq` kl_do appl_499 appl_521) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3315 of kl_V3315@(Atom (Nil)) -> pat_cond_478 _ -> pat_cond_497))) !appl_522 <- kl_V3314t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3314t kl_V3429) appl_522 `pseq` applyWrapper appl_477 [appl_522]))) kl_V3314h `pseq` applyWrapper appl_476 [kl_V3314h] pat_cond_523 = do do !kl_if_524 <- kl_V3314 `pseq` kl_shen_pvarP kl_V3314 case kl_if_524 of Atom (B (True)) -> do let !appl_525 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_526 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_527 <- kl_V3314 `pseq` (appl_526 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3314 appl_526 kl_V3429)) let !appl_528 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_529 <- kl_V3314 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3314 kl_V3429) appl_529 `pseq` (kl_Result `pseq` kl_do appl_529 kl_Result)))) let !appl_530 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_531 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_532 <- kl_shen_incinfs let !appl_533 = ApplC (PL "thunk" (do !appl_534 <- kl_shen_placeholder let !appl_535 = ApplC (PL "thunk" (do !appl_536 <- kl_XAndAnd `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3429) !appl_537 <- kl_X `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_X kl_V3429) !appl_538 <- kl_Y `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Y kl_V3429) !appl_539 <- appl_536 `pseq` (appl_537 `pseq` (appl_538 `pseq` kl_shen_ebr appl_536 appl_537 appl_538)) let !appl_540 = ApplC (PL "thunk" (do !appl_541 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_542 <- appl_541 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_541 !appl_543 <- kl_XAndAnd `pseq` (appl_542 `pseq` klCons kl_XAndAnd appl_542) !appl_544 <- appl_543 `pseq` (kl_V3428 `pseq` klCons appl_543 kl_V3428) kl_Z `pseq` (kl_B `pseq` (appl_544 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Z kl_B appl_544 kl_V3429 kl_V3430)))))) kl_Z `pseq` (appl_539 `pseq` (kl_V3429 `pseq` (appl_540 `pseq` kl_bind kl_Z appl_539 kl_V3429 appl_540))))) kl_XAndAnd `pseq` (appl_534 `pseq` (kl_V3429 `pseq` (appl_535 `pseq` kl_bind kl_XAndAnd appl_534 kl_V3429 appl_535))))) !appl_545 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_533 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_533)) appl_532 `pseq` (appl_545 `pseq` kl_do appl_532 appl_545)))) !appl_546 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_546 `pseq` applyWrapper appl_531 [appl_546]))) !appl_547 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 !appl_548 <- appl_547 `pseq` applyWrapper appl_530 [appl_547] !appl_549 <- appl_548 `pseq` applyWrapper appl_528 [appl_548] appl_527 `pseq` (appl_549 `pseq` kl_do appl_527 appl_549)))) !appl_550 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_550 `pseq` applyWrapper appl_525 [appl_550] 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_475 kl_V3314 kl_V3314h kl_V3314t _ -> pat_cond_523))) !appl_551 <- kl_V3312t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3312t kl_V3429) appl_551 `pseq` applyWrapper appl_474 [appl_551] pat_cond_552 = do do !kl_if_553 <- kl_V3313 `pseq` kl_shen_pvarP kl_V3313 case kl_if_553 of Atom (B (True)) -> do !appl_554 <- kl_V3313 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3313 (Types.Atom (Types.UnboundSym "-->")) kl_V3429) let !appl_555 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_556 <- kl_V3313 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3313 kl_V3429) appl_556 `pseq` (kl_Result `pseq` kl_do appl_556 kl_Result)))) let !appl_557 = ApplC (Func "lambda" (Context (\(!kl_V3316) -> do let pat_cond_558 kl_V3316 kl_V3316h kl_V3316t = do let !appl_559 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_560 = ApplC (Func "lambda" (Context (\(!kl_V3317) -> do let pat_cond_561 = do let !appl_562 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_563 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_564 <- kl_shen_incinfs let !appl_565 = ApplC (PL "thunk" (do !appl_566 <- kl_shen_placeholder let !appl_567 = ApplC (PL "thunk" (do !appl_568 <- kl_XAndAnd `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3429) !appl_569 <- kl_X `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_X kl_V3429) !appl_570 <- kl_Y `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Y kl_V3429) !appl_571 <- appl_568 `pseq` (appl_569 `pseq` (appl_570 `pseq` kl_shen_ebr appl_568 appl_569 appl_570)) let !appl_572 = ApplC (PL "thunk" (do !appl_573 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_574 <- appl_573 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_573 !appl_575 <- kl_XAndAnd `pseq` (appl_574 `pseq` klCons kl_XAndAnd appl_574) !appl_576 <- appl_575 `pseq` (kl_V3428 `pseq` klCons appl_575 kl_V3428) kl_Z `pseq` (kl_B `pseq` (appl_576 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Z kl_B appl_576 kl_V3429 kl_V3430)))))) kl_Z `pseq` (appl_571 `pseq` (kl_V3429 `pseq` (appl_572 `pseq` kl_bind kl_Z appl_571 kl_V3429 appl_572))))) kl_XAndAnd `pseq` (appl_566 `pseq` (kl_V3429 `pseq` (appl_567 `pseq` kl_bind kl_XAndAnd appl_566 kl_V3429 appl_567))))) !appl_577 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_565 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_565)) appl_564 `pseq` (appl_577 `pseq` kl_do appl_564 appl_577)))) !appl_578 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_578 `pseq` applyWrapper appl_563 [appl_578]))) !appl_579 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_579 `pseq` applyWrapper appl_562 [appl_579] pat_cond_580 = do do !kl_if_581 <- kl_V3317 `pseq` kl_shen_pvarP kl_V3317 case kl_if_581 of Atom (B (True)) -> do !appl_582 <- kl_V3317 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3317 (Types.Atom Types.Nil) kl_V3429) let !appl_583 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_584 <- kl_V3317 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3317 kl_V3429) appl_584 `pseq` (kl_Result `pseq` kl_do appl_584 kl_Result)))) 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_V3429 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3429) !appl_592 <- kl_X `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_X kl_V3429) !appl_593 <- kl_Y `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Y kl_V3429) !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 !appl_596 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_597 <- appl_596 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_596 !appl_598 <- kl_XAndAnd `pseq` (appl_597 `pseq` klCons kl_XAndAnd appl_597) !appl_599 <- appl_598 `pseq` (kl_V3428 `pseq` klCons appl_598 kl_V3428) kl_Z `pseq` (kl_B `pseq` (appl_599 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Z kl_B appl_599 kl_V3429 kl_V3430)))))) kl_Z `pseq` (appl_594 `pseq` (kl_V3429 `pseq` (appl_595 `pseq` kl_bind kl_Z appl_594 kl_V3429 appl_595))))) kl_XAndAnd `pseq` (appl_589 `pseq` (kl_V3429 `pseq` (appl_590 `pseq` kl_bind kl_XAndAnd appl_589 kl_V3429 appl_590))))) !appl_600 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_588 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_588)) appl_587 `pseq` (appl_600 `pseq` kl_do appl_587 appl_600)))) !appl_601 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_601 `pseq` applyWrapper appl_586 [appl_601]))) !appl_602 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 !appl_603 <- appl_602 `pseq` applyWrapper appl_585 [appl_602] !appl_604 <- appl_603 `pseq` applyWrapper appl_583 [appl_603] appl_582 `pseq` (appl_604 `pseq` kl_do appl_582 appl_604) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3317 of kl_V3317@(Atom (Nil)) -> pat_cond_561 _ -> pat_cond_580))) !appl_605 <- kl_V3316t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3316t kl_V3429) appl_605 `pseq` applyWrapper appl_560 [appl_605]))) kl_V3316h `pseq` applyWrapper appl_559 [kl_V3316h] pat_cond_606 = do do !kl_if_607 <- kl_V3316 `pseq` kl_shen_pvarP kl_V3316 case kl_if_607 of Atom (B (True)) -> do let !appl_608 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_609 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_610 <- kl_V3316 `pseq` (appl_609 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3316 appl_609 kl_V3429)) let !appl_611 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_612 <- kl_V3316 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3316 kl_V3429) appl_612 `pseq` (kl_Result `pseq` kl_do appl_612 kl_Result)))) let !appl_613 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_614 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_615 <- kl_shen_incinfs let !appl_616 = ApplC (PL "thunk" (do !appl_617 <- kl_shen_placeholder let !appl_618 = ApplC (PL "thunk" (do !appl_619 <- kl_XAndAnd `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3429) !appl_620 <- kl_X `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_X kl_V3429) !appl_621 <- kl_Y `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Y kl_V3429) !appl_622 <- appl_619 `pseq` (appl_620 `pseq` (appl_621 `pseq` kl_shen_ebr appl_619 appl_620 appl_621)) let !appl_623 = ApplC (PL "thunk" (do !appl_624 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_625 <- appl_624 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_624 !appl_626 <- kl_XAndAnd `pseq` (appl_625 `pseq` klCons kl_XAndAnd appl_625) !appl_627 <- appl_626 `pseq` (kl_V3428 `pseq` klCons appl_626 kl_V3428) kl_Z `pseq` (kl_B `pseq` (appl_627 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Z kl_B appl_627 kl_V3429 kl_V3430)))))) kl_Z `pseq` (appl_622 `pseq` (kl_V3429 `pseq` (appl_623 `pseq` kl_bind kl_Z appl_622 kl_V3429 appl_623))))) kl_XAndAnd `pseq` (appl_617 `pseq` (kl_V3429 `pseq` (appl_618 `pseq` kl_bind kl_XAndAnd appl_617 kl_V3429 appl_618))))) !appl_628 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_616 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_616)) appl_615 `pseq` (appl_628 `pseq` kl_do appl_615 appl_628)))) !appl_629 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_629 `pseq` applyWrapper appl_614 [appl_629]))) !appl_630 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 !appl_631 <- appl_630 `pseq` applyWrapper appl_613 [appl_630] !appl_632 <- appl_631 `pseq` applyWrapper appl_611 [appl_631] appl_610 `pseq` (appl_632 `pseq` kl_do appl_610 appl_632)))) !appl_633 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_633 `pseq` applyWrapper appl_608 [appl_633] 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_558 kl_V3316 kl_V3316h kl_V3316t _ -> pat_cond_606))) !appl_634 <- kl_V3312t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3312t kl_V3429) !appl_635 <- appl_634 `pseq` applyWrapper appl_557 [appl_634] !appl_636 <- appl_635 `pseq` applyWrapper appl_555 [appl_635] appl_554 `pseq` (appl_636 `pseq` kl_do appl_554 appl_636) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3313 of kl_V3313@(Atom (UnboundSym "-->")) -> pat_cond_473 kl_V3313@(ApplC (PL "-->" _)) -> pat_cond_473 kl_V3313@(ApplC (Func "-->" _)) -> pat_cond_473 _ -> pat_cond_552))) !appl_637 <- kl_V3312h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3312h kl_V3429) appl_637 `pseq` applyWrapper appl_472 [appl_637] pat_cond_638 = do do !kl_if_639 <- kl_V3312 `pseq` kl_shen_pvarP kl_V3312 case kl_if_639 of Atom (B (True)) -> do let !appl_640 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_641 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_642 <- appl_641 `pseq` klCons (Types.Atom (Types.UnboundSym "-->")) appl_641 !appl_643 <- kl_V3312 `pseq` (appl_642 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3312 appl_642 kl_V3429)) let !appl_644 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_645 <- kl_V3312 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3312 kl_V3429) appl_645 `pseq` (kl_Result `pseq` kl_do appl_645 kl_Result)))) let !appl_646 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_647 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_648 <- kl_shen_incinfs let !appl_649 = ApplC (PL "thunk" (do !appl_650 <- kl_shen_placeholder let !appl_651 = ApplC (PL "thunk" (do !appl_652 <- kl_XAndAnd `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3429) !appl_653 <- kl_X `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_X kl_V3429) !appl_654 <- kl_Y `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Y kl_V3429) !appl_655 <- appl_652 `pseq` (appl_653 `pseq` (appl_654 `pseq` kl_shen_ebr appl_652 appl_653 appl_654)) let !appl_656 = ApplC (PL "thunk" (do !appl_657 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_658 <- appl_657 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_657 !appl_659 <- kl_XAndAnd `pseq` (appl_658 `pseq` klCons kl_XAndAnd appl_658) !appl_660 <- appl_659 `pseq` (kl_V3428 `pseq` klCons appl_659 kl_V3428) kl_Z `pseq` (kl_B `pseq` (appl_660 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Z kl_B appl_660 kl_V3429 kl_V3430)))))) kl_Z `pseq` (appl_655 `pseq` (kl_V3429 `pseq` (appl_656 `pseq` kl_bind kl_Z appl_655 kl_V3429 appl_656))))) kl_XAndAnd `pseq` (appl_650 `pseq` (kl_V3429 `pseq` (appl_651 `pseq` kl_bind kl_XAndAnd appl_650 kl_V3429 appl_651))))) !appl_661 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_649 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_649)) appl_648 `pseq` (appl_661 `pseq` kl_do appl_648 appl_661)))) !appl_662 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_662 `pseq` applyWrapper appl_647 [appl_662]))) !appl_663 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 !appl_664 <- appl_663 `pseq` applyWrapper appl_646 [appl_663] !appl_665 <- appl_664 `pseq` applyWrapper appl_644 [appl_664] appl_643 `pseq` (appl_665 `pseq` kl_do appl_643 appl_665)))) !appl_666 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_666 `pseq` applyWrapper appl_640 [appl_666] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3312 of !(kl_V3312@(Cons (!kl_V3312h) (!kl_V3312t))) -> pat_cond_471 kl_V3312 kl_V3312h kl_V3312t _ -> pat_cond_638))) !appl_667 <- kl_V3311t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3311t kl_V3429) appl_667 `pseq` applyWrapper appl_470 [appl_667]))) kl_V3311h `pseq` applyWrapper appl_469 [kl_V3311h] pat_cond_668 = do do !kl_if_669 <- kl_V3311 `pseq` kl_shen_pvarP kl_V3311 case kl_if_669 of Atom (B (True)) -> do let !appl_670 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_671 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_672 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_673 <- appl_672 `pseq` klCons (Types.Atom (Types.UnboundSym "-->")) appl_672 !appl_674 <- kl_A `pseq` (appl_673 `pseq` klCons kl_A appl_673) !appl_675 <- kl_V3311 `pseq` (appl_674 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3311 appl_674 kl_V3429)) let !appl_676 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_677 <- kl_V3311 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3311 kl_V3429) appl_677 `pseq` (kl_Result `pseq` kl_do appl_677 kl_Result)))) let !appl_678 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do let !appl_679 = ApplC (Func "lambda" (Context (\(!kl_XAndAnd) -> do !appl_680 <- kl_shen_incinfs let !appl_681 = ApplC (PL "thunk" (do !appl_682 <- kl_shen_placeholder let !appl_683 = ApplC (PL "thunk" (do !appl_684 <- kl_XAndAnd `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_XAndAnd kl_V3429) !appl_685 <- kl_X `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_X kl_V3429) !appl_686 <- kl_Y `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_Y kl_V3429) !appl_687 <- appl_684 `pseq` (appl_685 `pseq` (appl_686 `pseq` kl_shen_ebr appl_684 appl_685 appl_686)) let !appl_688 = ApplC (PL "thunk" (do !appl_689 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_690 <- appl_689 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_689 !appl_691 <- kl_XAndAnd `pseq` (appl_690 `pseq` klCons kl_XAndAnd appl_690) !appl_692 <- appl_691 `pseq` (kl_V3428 `pseq` klCons appl_691 kl_V3428) kl_Z `pseq` (kl_B `pseq` (appl_692 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Z kl_B appl_692 kl_V3429 kl_V3430)))))) kl_Z `pseq` (appl_687 `pseq` (kl_V3429 `pseq` (appl_688 `pseq` kl_bind kl_Z appl_687 kl_V3429 appl_688))))) kl_XAndAnd `pseq` (appl_682 `pseq` (kl_V3429 `pseq` (appl_683 `pseq` kl_bind kl_XAndAnd appl_682 kl_V3429 appl_683))))) !appl_693 <- kl_Throwcontrol `pseq` (kl_V3429 `pseq` (appl_681 `pseq` kl_cut kl_Throwcontrol kl_V3429 appl_681)) appl_680 `pseq` (appl_693 `pseq` kl_do appl_680 appl_693)))) !appl_694 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_694 `pseq` applyWrapper appl_679 [appl_694]))) !appl_695 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 !appl_696 <- appl_695 `pseq` applyWrapper appl_678 [appl_695] !appl_697 <- appl_696 `pseq` applyWrapper appl_676 [appl_696] appl_675 `pseq` (appl_697 `pseq` kl_do appl_675 appl_697)))) !appl_698 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_698 `pseq` applyWrapper appl_671 [appl_698]))) !appl_699 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_699 `pseq` applyWrapper appl_670 [appl_699] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3311 of !(kl_V3311@(Cons (!kl_V3311h) (!kl_V3311t))) -> pat_cond_468 kl_V3311 kl_V3311h kl_V3311t _ -> pat_cond_668))) !appl_700 <- kl_V3427 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3427 kl_V3429) appl_700 `pseq` applyWrapper appl_467 [appl_700] pat_cond_701 = do do return (Atom (B False)) in case kl_V3310 of kl_V3310@(Atom (Nil)) -> pat_cond_466 _ -> pat_cond_701))) !appl_702 <- kl_V3309t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3309t kl_V3429) appl_702 `pseq` applyWrapper appl_465 [appl_702]))) kl_V3309h `pseq` applyWrapper appl_464 [kl_V3309h] pat_cond_703 = do do return (Atom (B False)) in case kl_V3309 of !(kl_V3309@(Cons (!kl_V3309h) (!kl_V3309t))) -> pat_cond_463 kl_V3309 kl_V3309h kl_V3309t _ -> pat_cond_703))) !appl_704 <- kl_V3308t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3308t kl_V3429) appl_704 `pseq` applyWrapper appl_462 [appl_704]))) kl_V3308h `pseq` applyWrapper appl_461 [kl_V3308h] pat_cond_705 = do do return (Atom (B False)) in case kl_V3308 of !(kl_V3308@(Cons (!kl_V3308h) (!kl_V3308t))) -> pat_cond_460 kl_V3308 kl_V3308h kl_V3308t _ -> pat_cond_705))) !appl_706 <- kl_V3306t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3306t kl_V3429) appl_706 `pseq` applyWrapper appl_459 [appl_706] pat_cond_707 = do do return (Atom (B False)) in case kl_V3307 of kl_V3307@(Atom (UnboundSym "lambda")) -> pat_cond_458 kl_V3307@(ApplC (PL "lambda" _)) -> pat_cond_458 kl_V3307@(ApplC (Func "lambda" _)) -> pat_cond_458 _ -> pat_cond_707))) !appl_708 <- kl_V3306h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3306h kl_V3429) appl_708 `pseq` applyWrapper appl_457 [appl_708] pat_cond_709 = do do return (Atom (B False)) in case kl_V3306 of !(kl_V3306@(Cons (!kl_V3306h) (!kl_V3306t))) -> pat_cond_456 kl_V3306 kl_V3306h kl_V3306t _ -> pat_cond_709))) !appl_710 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_711 <- appl_710 `pseq` applyWrapper appl_455 [appl_710] appl_711 `pseq` applyWrapper appl_21 [appl_711] pat_cond_712 = 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_712))) let !appl_713 = ApplC (Func "lambda" (Context (\(!kl_V3300) -> do let pat_cond_714 kl_V3300 kl_V3300h kl_V3300t = do let !appl_715 = ApplC (Func "lambda" (Context (\(!kl_V3301) -> do let pat_cond_716 = do let !appl_717 = ApplC (Func "lambda" (Context (\(!kl_V3302) -> do let pat_cond_718 kl_V3302 kl_V3302h kl_V3302t = do let !appl_719 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_720 = ApplC (Func "lambda" (Context (\(!kl_V3303) -> do let pat_cond_721 kl_V3303 kl_V3303h kl_V3303t = do let !appl_722 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_723 = ApplC (Func "lambda" (Context (\(!kl_V3304) -> do let pat_cond_724 = do let !appl_725 = ApplC (Func "lambda" (Context (\(!kl_V3305) -> do let pat_cond_726 = do !appl_727 <- kl_shen_incinfs let !appl_728 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y (Types.Atom (Types.UnboundSym "string")) kl_V3428 kl_V3429 kl_V3430))))) !appl_729 <- kl_X `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_728 `pseq` kl_shen_thMult kl_X (Types.Atom (Types.UnboundSym "string")) kl_V3428 kl_V3429 appl_728))) appl_727 `pseq` (appl_729 `pseq` kl_do appl_727 appl_729) pat_cond_730 = do do !kl_if_731 <- kl_V3305 `pseq` kl_shen_pvarP kl_V3305 case kl_if_731 of Atom (B (True)) -> do !appl_732 <- kl_V3305 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3305 (Types.Atom (Types.UnboundSym "string")) kl_V3429) let !appl_733 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_734 <- kl_V3305 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3305 kl_V3429) appl_734 `pseq` (kl_Result `pseq` kl_do appl_734 kl_Result)))) !appl_735 <- kl_shen_incinfs let !appl_736 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y (Types.Atom (Types.UnboundSym "string")) kl_V3428 kl_V3429 kl_V3430))))) !appl_737 <- kl_X `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_736 `pseq` kl_shen_thMult kl_X (Types.Atom (Types.UnboundSym "string")) kl_V3428 kl_V3429 appl_736))) !appl_738 <- appl_735 `pseq` (appl_737 `pseq` kl_do appl_735 appl_737) !appl_739 <- appl_738 `pseq` applyWrapper appl_733 [appl_738] appl_732 `pseq` (appl_739 `pseq` kl_do appl_732 appl_739) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3305 of kl_V3305@(Atom (UnboundSym "string")) -> pat_cond_726 kl_V3305@(ApplC (PL "string" _)) -> pat_cond_726 kl_V3305@(ApplC (Func "string" _)) -> pat_cond_726 _ -> pat_cond_730))) !appl_740 <- kl_V3427 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3427 kl_V3429) appl_740 `pseq` applyWrapper appl_725 [appl_740] pat_cond_741 = do do return (Atom (B False)) in case kl_V3304 of kl_V3304@(Atom (Nil)) -> pat_cond_724 _ -> pat_cond_741))) !appl_742 <- kl_V3303t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3303t kl_V3429) appl_742 `pseq` applyWrapper appl_723 [appl_742]))) kl_V3303h `pseq` applyWrapper appl_722 [kl_V3303h] pat_cond_743 = do do return (Atom (B False)) in case kl_V3303 of !(kl_V3303@(Cons (!kl_V3303h) (!kl_V3303t))) -> pat_cond_721 kl_V3303 kl_V3303h kl_V3303t _ -> pat_cond_743))) !appl_744 <- kl_V3302t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3302t kl_V3429) appl_744 `pseq` applyWrapper appl_720 [appl_744]))) kl_V3302h `pseq` applyWrapper appl_719 [kl_V3302h] pat_cond_745 = do do return (Atom (B False)) in case kl_V3302 of !(kl_V3302@(Cons (!kl_V3302h) (!kl_V3302t))) -> pat_cond_718 kl_V3302 kl_V3302h kl_V3302t _ -> pat_cond_745))) !appl_746 <- kl_V3300t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3300t kl_V3429) appl_746 `pseq` applyWrapper appl_717 [appl_746] pat_cond_747 = do do return (Atom (B False)) in case kl_V3301 of kl_V3301@(Atom (UnboundSym "@s")) -> pat_cond_716 kl_V3301@(ApplC (PL "@s" _)) -> pat_cond_716 kl_V3301@(ApplC (Func "@s" _)) -> pat_cond_716 _ -> pat_cond_747))) !appl_748 <- kl_V3300h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3300h kl_V3429) appl_748 `pseq` applyWrapper appl_715 [appl_748] pat_cond_749 = do do return (Atom (B False)) in case kl_V3300 of !(kl_V3300@(Cons (!kl_V3300h) (!kl_V3300t))) -> pat_cond_714 kl_V3300 kl_V3300h kl_V3300t _ -> pat_cond_749))) !appl_750 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_751 <- appl_750 `pseq` applyWrapper appl_713 [appl_750] appl_751 `pseq` applyWrapper appl_19 [appl_751] pat_cond_752 = 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_752))) let !appl_753 = ApplC (Func "lambda" (Context (\(!kl_V3289) -> do let pat_cond_754 kl_V3289 kl_V3289h kl_V3289t = do let !appl_755 = ApplC (Func "lambda" (Context (\(!kl_V3290) -> do let pat_cond_756 = do let !appl_757 = ApplC (Func "lambda" (Context (\(!kl_V3291) -> do let pat_cond_758 kl_V3291 kl_V3291h kl_V3291t = do let !appl_759 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_760 = ApplC (Func "lambda" (Context (\(!kl_V3292) -> do let pat_cond_761 kl_V3292 kl_V3292h kl_V3292t = do let !appl_762 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_763 = ApplC (Func "lambda" (Context (\(!kl_V3293) -> do let pat_cond_764 = do let !appl_765 = ApplC (Func "lambda" (Context (\(!kl_V3294) -> do let pat_cond_766 kl_V3294 kl_V3294h kl_V3294t = do let !appl_767 = ApplC (Func "lambda" (Context (\(!kl_V3295) -> do let pat_cond_768 = do let !appl_769 = ApplC (Func "lambda" (Context (\(!kl_V3296) -> do let pat_cond_770 kl_V3296 kl_V3296h kl_V3296t = do let !appl_771 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_772 = ApplC (Func "lambda" (Context (\(!kl_V3297) -> do let pat_cond_773 = do !appl_774 <- kl_shen_incinfs let !appl_775 = ApplC (PL "thunk" (do !appl_776 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_777 <- appl_776 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_776 kl_Y `pseq` (appl_777 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_777 kl_V3428 kl_V3429 kl_V3430)))))) !appl_778 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_775 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_775)))) appl_774 `pseq` (appl_778 `pseq` kl_do appl_774 appl_778) pat_cond_779 = do do !kl_if_780 <- kl_V3297 `pseq` kl_shen_pvarP kl_V3297 case kl_if_780 of Atom (B (True)) -> do !appl_781 <- kl_V3297 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3297 (Types.Atom Types.Nil) kl_V3429) let !appl_782 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_783 <- kl_V3297 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3297 kl_V3429) appl_783 `pseq` (kl_Result `pseq` kl_do appl_783 kl_Result)))) !appl_784 <- kl_shen_incinfs let !appl_785 = ApplC (PL "thunk" (do !appl_786 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_787 <- appl_786 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_786 kl_Y `pseq` (appl_787 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_787 kl_V3428 kl_V3429 kl_V3430)))))) !appl_788 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_785 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_785)))) !appl_789 <- appl_784 `pseq` (appl_788 `pseq` kl_do appl_784 appl_788) !appl_790 <- appl_789 `pseq` applyWrapper appl_782 [appl_789] appl_781 `pseq` (appl_790 `pseq` kl_do appl_781 appl_790) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3297 of kl_V3297@(Atom (Nil)) -> pat_cond_773 _ -> pat_cond_779))) !appl_791 <- kl_V3296t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3296t kl_V3429) appl_791 `pseq` applyWrapper appl_772 [appl_791]))) kl_V3296h `pseq` applyWrapper appl_771 [kl_V3296h] pat_cond_792 = do do !kl_if_793 <- kl_V3296 `pseq` kl_shen_pvarP kl_V3296 case kl_if_793 of Atom (B (True)) -> do let !appl_794 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_795 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_796 <- kl_V3296 `pseq` (appl_795 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3296 appl_795 kl_V3429)) let !appl_797 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_798 <- kl_V3296 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3296 kl_V3429) appl_798 `pseq` (kl_Result `pseq` kl_do appl_798 kl_Result)))) !appl_799 <- kl_shen_incinfs let !appl_800 = ApplC (PL "thunk" (do !appl_801 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_802 <- appl_801 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_801 kl_Y `pseq` (appl_802 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_802 kl_V3428 kl_V3429 kl_V3430)))))) !appl_803 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_800 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_800)))) !appl_804 <- appl_799 `pseq` (appl_803 `pseq` kl_do appl_799 appl_803) !appl_805 <- appl_804 `pseq` applyWrapper appl_797 [appl_804] appl_796 `pseq` (appl_805 `pseq` kl_do appl_796 appl_805)))) !appl_806 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_806 `pseq` applyWrapper appl_794 [appl_806] 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_770 kl_V3296 kl_V3296h kl_V3296t _ -> pat_cond_792))) !appl_807 <- kl_V3294t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3294t kl_V3429) appl_807 `pseq` applyWrapper appl_769 [appl_807] pat_cond_808 = do do !kl_if_809 <- kl_V3295 `pseq` kl_shen_pvarP kl_V3295 case kl_if_809 of Atom (B (True)) -> do !appl_810 <- kl_V3295 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3295 (ApplC (wrapNamed "vector" kl_vector)) kl_V3429) let !appl_811 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_812 <- kl_V3295 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3295 kl_V3429) appl_812 `pseq` (kl_Result `pseq` kl_do appl_812 kl_Result)))) let !appl_813 = ApplC (Func "lambda" (Context (\(!kl_V3298) -> do let pat_cond_814 kl_V3298 kl_V3298h kl_V3298t = do let !appl_815 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_816 = ApplC (Func "lambda" (Context (\(!kl_V3299) -> do let pat_cond_817 = do !appl_818 <- kl_shen_incinfs let !appl_819 = ApplC (PL "thunk" (do !appl_820 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_821 <- appl_820 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_820 kl_Y `pseq` (appl_821 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_821 kl_V3428 kl_V3429 kl_V3430)))))) !appl_822 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_819 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_819)))) appl_818 `pseq` (appl_822 `pseq` kl_do appl_818 appl_822) pat_cond_823 = do do !kl_if_824 <- kl_V3299 `pseq` kl_shen_pvarP kl_V3299 case kl_if_824 of Atom (B (True)) -> do !appl_825 <- kl_V3299 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3299 (Types.Atom Types.Nil) kl_V3429) let !appl_826 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_827 <- kl_V3299 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3299 kl_V3429) appl_827 `pseq` (kl_Result `pseq` kl_do appl_827 kl_Result)))) !appl_828 <- kl_shen_incinfs let !appl_829 = ApplC (PL "thunk" (do !appl_830 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_831 <- appl_830 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_830 kl_Y `pseq` (appl_831 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_831 kl_V3428 kl_V3429 kl_V3430)))))) !appl_832 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_829 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_829)))) !appl_833 <- appl_828 `pseq` (appl_832 `pseq` kl_do appl_828 appl_832) !appl_834 <- appl_833 `pseq` applyWrapper appl_826 [appl_833] appl_825 `pseq` (appl_834 `pseq` kl_do appl_825 appl_834) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3299 of kl_V3299@(Atom (Nil)) -> pat_cond_817 _ -> pat_cond_823))) !appl_835 <- kl_V3298t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3298t kl_V3429) appl_835 `pseq` applyWrapper appl_816 [appl_835]))) kl_V3298h `pseq` applyWrapper appl_815 [kl_V3298h] pat_cond_836 = do do !kl_if_837 <- kl_V3298 `pseq` kl_shen_pvarP kl_V3298 case kl_if_837 of Atom (B (True)) -> do let !appl_838 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_839 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_840 <- kl_V3298 `pseq` (appl_839 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3298 appl_839 kl_V3429)) let !appl_841 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_842 <- kl_V3298 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3298 kl_V3429) appl_842 `pseq` (kl_Result `pseq` kl_do appl_842 kl_Result)))) !appl_843 <- kl_shen_incinfs let !appl_844 = ApplC (PL "thunk" (do !appl_845 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_846 <- appl_845 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_845 kl_Y `pseq` (appl_846 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_846 kl_V3428 kl_V3429 kl_V3430)))))) !appl_847 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_844 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_844)))) !appl_848 <- appl_843 `pseq` (appl_847 `pseq` kl_do appl_843 appl_847) !appl_849 <- appl_848 `pseq` applyWrapper appl_841 [appl_848] appl_840 `pseq` (appl_849 `pseq` kl_do appl_840 appl_849)))) !appl_850 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_850 `pseq` applyWrapper appl_838 [appl_850] 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_814 kl_V3298 kl_V3298h kl_V3298t _ -> pat_cond_836))) !appl_851 <- kl_V3294t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3294t kl_V3429) !appl_852 <- appl_851 `pseq` applyWrapper appl_813 [appl_851] !appl_853 <- appl_852 `pseq` applyWrapper appl_811 [appl_852] appl_810 `pseq` (appl_853 `pseq` kl_do appl_810 appl_853) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3295 of kl_V3295@(Atom (UnboundSym "vector")) -> pat_cond_768 kl_V3295@(ApplC (PL "vector" _)) -> pat_cond_768 kl_V3295@(ApplC (Func "vector" _)) -> pat_cond_768 _ -> pat_cond_808))) !appl_854 <- kl_V3294h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3294h kl_V3429) appl_854 `pseq` applyWrapper appl_767 [appl_854] pat_cond_855 = do do !kl_if_856 <- kl_V3294 `pseq` kl_shen_pvarP kl_V3294 case kl_if_856 of Atom (B (True)) -> do let !appl_857 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_858 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_859 <- appl_858 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_858 !appl_860 <- kl_V3294 `pseq` (appl_859 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3294 appl_859 kl_V3429)) let !appl_861 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_862 <- kl_V3294 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3294 kl_V3429) appl_862 `pseq` (kl_Result `pseq` kl_do appl_862 kl_Result)))) !appl_863 <- kl_shen_incinfs let !appl_864 = ApplC (PL "thunk" (do !appl_865 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_866 <- appl_865 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_865 kl_Y `pseq` (appl_866 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_866 kl_V3428 kl_V3429 kl_V3430)))))) !appl_867 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_864 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_864)))) !appl_868 <- appl_863 `pseq` (appl_867 `pseq` kl_do appl_863 appl_867) !appl_869 <- appl_868 `pseq` applyWrapper appl_861 [appl_868] appl_860 `pseq` (appl_869 `pseq` kl_do appl_860 appl_869)))) !appl_870 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_870 `pseq` applyWrapper appl_857 [appl_870] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3294 of !(kl_V3294@(Cons (!kl_V3294h) (!kl_V3294t))) -> pat_cond_766 kl_V3294 kl_V3294h kl_V3294t _ -> pat_cond_855))) !appl_871 <- kl_V3427 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3427 kl_V3429) appl_871 `pseq` applyWrapper appl_765 [appl_871] pat_cond_872 = do do return (Atom (B False)) in case kl_V3293 of kl_V3293@(Atom (Nil)) -> pat_cond_764 _ -> pat_cond_872))) !appl_873 <- kl_V3292t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3292t kl_V3429) appl_873 `pseq` applyWrapper appl_763 [appl_873]))) kl_V3292h `pseq` applyWrapper appl_762 [kl_V3292h] pat_cond_874 = do do return (Atom (B False)) in case kl_V3292 of !(kl_V3292@(Cons (!kl_V3292h) (!kl_V3292t))) -> pat_cond_761 kl_V3292 kl_V3292h kl_V3292t _ -> pat_cond_874))) !appl_875 <- kl_V3291t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3291t kl_V3429) appl_875 `pseq` applyWrapper appl_760 [appl_875]))) kl_V3291h `pseq` applyWrapper appl_759 [kl_V3291h] pat_cond_876 = do do return (Atom (B False)) in case kl_V3291 of !(kl_V3291@(Cons (!kl_V3291h) (!kl_V3291t))) -> pat_cond_758 kl_V3291 kl_V3291h kl_V3291t _ -> pat_cond_876))) !appl_877 <- kl_V3289t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3289t kl_V3429) appl_877 `pseq` applyWrapper appl_757 [appl_877] pat_cond_878 = do do return (Atom (B False)) in case kl_V3290 of kl_V3290@(Atom (UnboundSym "@v")) -> pat_cond_756 kl_V3290@(ApplC (PL "@v" _)) -> pat_cond_756 kl_V3290@(ApplC (Func "@v" _)) -> pat_cond_756 _ -> pat_cond_878))) !appl_879 <- kl_V3289h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3289h kl_V3429) appl_879 `pseq` applyWrapper appl_755 [appl_879] pat_cond_880 = do do return (Atom (B False)) in case kl_V3289 of !(kl_V3289@(Cons (!kl_V3289h) (!kl_V3289t))) -> pat_cond_754 kl_V3289 kl_V3289h kl_V3289t _ -> pat_cond_880))) !appl_881 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_882 <- appl_881 `pseq` applyWrapper appl_753 [appl_881] appl_882 `pseq` applyWrapper appl_17 [appl_882] pat_cond_883 = 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_883))) let !appl_884 = ApplC (Func "lambda" (Context (\(!kl_V3277) -> do let pat_cond_885 kl_V3277 kl_V3277h kl_V3277t = do let !appl_886 = ApplC (Func "lambda" (Context (\(!kl_V3278) -> do let pat_cond_887 = do let !appl_888 = ApplC (Func "lambda" (Context (\(!kl_V3279) -> do let pat_cond_889 kl_V3279 kl_V3279h kl_V3279t = do let !appl_890 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_891 = ApplC (Func "lambda" (Context (\(!kl_V3280) -> do let pat_cond_892 kl_V3280 kl_V3280h kl_V3280t = do let !appl_893 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_894 = ApplC (Func "lambda" (Context (\(!kl_V3281) -> do let pat_cond_895 = do let !appl_896 = ApplC (Func "lambda" (Context (\(!kl_V3282) -> do let pat_cond_897 kl_V3282 kl_V3282h kl_V3282t = do let !appl_898 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_899 = ApplC (Func "lambda" (Context (\(!kl_V3283) -> do let pat_cond_900 kl_V3283 kl_V3283h kl_V3283t = do let !appl_901 = ApplC (Func "lambda" (Context (\(!kl_V3284) -> do let pat_cond_902 = do let !appl_903 = ApplC (Func "lambda" (Context (\(!kl_V3285) -> do let pat_cond_904 kl_V3285 kl_V3285h kl_V3285t = do let !appl_905 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_906 = ApplC (Func "lambda" (Context (\(!kl_V3286) -> do let pat_cond_907 = do !appl_908 <- kl_shen_incinfs let !appl_909 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y kl_B kl_V3428 kl_V3429 kl_V3430)))))) !appl_910 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_909 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_909)))) appl_908 `pseq` (appl_910 `pseq` kl_do appl_908 appl_910) pat_cond_911 = do do !kl_if_912 <- kl_V3286 `pseq` kl_shen_pvarP kl_V3286 case kl_if_912 of Atom (B (True)) -> do !appl_913 <- kl_V3286 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3286 (Types.Atom Types.Nil) kl_V3429) let !appl_914 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_915 <- kl_V3286 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3286 kl_V3429) appl_915 `pseq` (kl_Result `pseq` kl_do appl_915 kl_Result)))) !appl_916 <- kl_shen_incinfs let !appl_917 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y kl_B kl_V3428 kl_V3429 kl_V3430)))))) !appl_918 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_917 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_917)))) !appl_919 <- appl_916 `pseq` (appl_918 `pseq` kl_do appl_916 appl_918) !appl_920 <- appl_919 `pseq` applyWrapper appl_914 [appl_919] appl_913 `pseq` (appl_920 `pseq` kl_do appl_913 appl_920) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3286 of kl_V3286@(Atom (Nil)) -> pat_cond_907 _ -> pat_cond_911))) !appl_921 <- kl_V3285t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3285t kl_V3429) appl_921 `pseq` applyWrapper appl_906 [appl_921]))) kl_V3285h `pseq` applyWrapper appl_905 [kl_V3285h] pat_cond_922 = do do !kl_if_923 <- kl_V3285 `pseq` kl_shen_pvarP kl_V3285 case kl_if_923 of Atom (B (True)) -> do let !appl_924 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_925 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_926 <- kl_V3285 `pseq` (appl_925 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3285 appl_925 kl_V3429)) let !appl_927 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_928 <- kl_V3285 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3285 kl_V3429) appl_928 `pseq` (kl_Result `pseq` kl_do appl_928 kl_Result)))) !appl_929 <- kl_shen_incinfs let !appl_930 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y kl_B kl_V3428 kl_V3429 kl_V3430)))))) !appl_931 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_930 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_930)))) !appl_932 <- appl_929 `pseq` (appl_931 `pseq` kl_do appl_929 appl_931) !appl_933 <- appl_932 `pseq` applyWrapper appl_927 [appl_932] appl_926 `pseq` (appl_933 `pseq` kl_do appl_926 appl_933)))) !appl_934 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_934 `pseq` applyWrapper appl_924 [appl_934] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3285 of !(kl_V3285@(Cons (!kl_V3285h) (!kl_V3285t))) -> pat_cond_904 kl_V3285 kl_V3285h kl_V3285t _ -> pat_cond_922))) !appl_935 <- kl_V3283t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3283t kl_V3429) appl_935 `pseq` applyWrapper appl_903 [appl_935] pat_cond_936 = do do !kl_if_937 <- kl_V3284 `pseq` kl_shen_pvarP kl_V3284 case kl_if_937 of Atom (B (True)) -> do !appl_938 <- kl_V3284 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3284 (ApplC (wrapNamed "*" multiply)) kl_V3429) let !appl_939 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_940 <- kl_V3284 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3284 kl_V3429) appl_940 `pseq` (kl_Result `pseq` kl_do appl_940 kl_Result)))) let !appl_941 = ApplC (Func "lambda" (Context (\(!kl_V3287) -> do let pat_cond_942 kl_V3287 kl_V3287h kl_V3287t = do let !appl_943 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_944 = ApplC (Func "lambda" (Context (\(!kl_V3288) -> do let pat_cond_945 = do !appl_946 <- kl_shen_incinfs let !appl_947 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y kl_B kl_V3428 kl_V3429 kl_V3430)))))) !appl_948 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_947 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_947)))) appl_946 `pseq` (appl_948 `pseq` kl_do appl_946 appl_948) pat_cond_949 = do do !kl_if_950 <- kl_V3288 `pseq` kl_shen_pvarP kl_V3288 case kl_if_950 of Atom (B (True)) -> do !appl_951 <- kl_V3288 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3288 (Types.Atom Types.Nil) kl_V3429) let !appl_952 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_953 <- kl_V3288 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3288 kl_V3429) appl_953 `pseq` (kl_Result `pseq` kl_do appl_953 kl_Result)))) !appl_954 <- kl_shen_incinfs let !appl_955 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y kl_B kl_V3428 kl_V3429 kl_V3430)))))) !appl_956 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_955 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_955)))) !appl_957 <- appl_954 `pseq` (appl_956 `pseq` kl_do appl_954 appl_956) !appl_958 <- appl_957 `pseq` applyWrapper appl_952 [appl_957] appl_951 `pseq` (appl_958 `pseq` kl_do appl_951 appl_958) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3288 of kl_V3288@(Atom (Nil)) -> pat_cond_945 _ -> pat_cond_949))) !appl_959 <- kl_V3287t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3287t kl_V3429) appl_959 `pseq` applyWrapper appl_944 [appl_959]))) kl_V3287h `pseq` applyWrapper appl_943 [kl_V3287h] pat_cond_960 = do do !kl_if_961 <- kl_V3287 `pseq` kl_shen_pvarP kl_V3287 case kl_if_961 of Atom (B (True)) -> do let !appl_962 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_963 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_964 <- kl_V3287 `pseq` (appl_963 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3287 appl_963 kl_V3429)) let !appl_965 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_966 <- kl_V3287 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3287 kl_V3429) appl_966 `pseq` (kl_Result `pseq` kl_do appl_966 kl_Result)))) !appl_967 <- kl_shen_incinfs let !appl_968 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y kl_B kl_V3428 kl_V3429 kl_V3430)))))) !appl_969 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_968 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_968)))) !appl_970 <- appl_967 `pseq` (appl_969 `pseq` kl_do appl_967 appl_969) !appl_971 <- appl_970 `pseq` applyWrapper appl_965 [appl_970] appl_964 `pseq` (appl_971 `pseq` kl_do appl_964 appl_971)))) !appl_972 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_972 `pseq` applyWrapper appl_962 [appl_972] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3287 of !(kl_V3287@(Cons (!kl_V3287h) (!kl_V3287t))) -> pat_cond_942 kl_V3287 kl_V3287h kl_V3287t _ -> pat_cond_960))) !appl_973 <- kl_V3283t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3283t kl_V3429) !appl_974 <- appl_973 `pseq` applyWrapper appl_941 [appl_973] !appl_975 <- appl_974 `pseq` applyWrapper appl_939 [appl_974] appl_938 `pseq` (appl_975 `pseq` kl_do appl_938 appl_975) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3284 of kl_V3284@(Atom (UnboundSym "*")) -> pat_cond_902 kl_V3284@(ApplC (PL "*" _)) -> pat_cond_902 kl_V3284@(ApplC (Func "*" _)) -> pat_cond_902 _ -> pat_cond_936))) !appl_976 <- kl_V3283h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3283h kl_V3429) appl_976 `pseq` applyWrapper appl_901 [appl_976] pat_cond_977 = do do !kl_if_978 <- kl_V3283 `pseq` kl_shen_pvarP kl_V3283 case kl_if_978 of Atom (B (True)) -> do let !appl_979 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_980 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_981 <- appl_980 `pseq` klCons (ApplC (wrapNamed "*" multiply)) appl_980 !appl_982 <- kl_V3283 `pseq` (appl_981 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3283 appl_981 kl_V3429)) let !appl_983 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_984 <- kl_V3283 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3283 kl_V3429) appl_984 `pseq` (kl_Result `pseq` kl_do appl_984 kl_Result)))) !appl_985 <- kl_shen_incinfs let !appl_986 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y kl_B kl_V3428 kl_V3429 kl_V3430)))))) !appl_987 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_986 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_986)))) !appl_988 <- appl_985 `pseq` (appl_987 `pseq` kl_do appl_985 appl_987) !appl_989 <- appl_988 `pseq` applyWrapper appl_983 [appl_988] appl_982 `pseq` (appl_989 `pseq` kl_do appl_982 appl_989)))) !appl_990 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_990 `pseq` applyWrapper appl_979 [appl_990] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3283 of !(kl_V3283@(Cons (!kl_V3283h) (!kl_V3283t))) -> pat_cond_900 kl_V3283 kl_V3283h kl_V3283t _ -> pat_cond_977))) !appl_991 <- kl_V3282t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3282t kl_V3429) appl_991 `pseq` applyWrapper appl_899 [appl_991]))) kl_V3282h `pseq` applyWrapper appl_898 [kl_V3282h] pat_cond_992 = do do !kl_if_993 <- kl_V3282 `pseq` kl_shen_pvarP kl_V3282 case kl_if_993 of Atom (B (True)) -> do let !appl_994 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_995 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_996 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_997 <- appl_996 `pseq` klCons (ApplC (wrapNamed "*" multiply)) appl_996 !appl_998 <- kl_A `pseq` (appl_997 `pseq` klCons kl_A appl_997) !appl_999 <- kl_V3282 `pseq` (appl_998 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3282 appl_998 kl_V3429)) let !appl_1000 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1001 <- kl_V3282 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3282 kl_V3429) appl_1001 `pseq` (kl_Result `pseq` kl_do appl_1001 kl_Result)))) !appl_1002 <- kl_shen_incinfs let !appl_1003 = ApplC (PL "thunk" (do kl_Y `pseq` (kl_B `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y kl_B kl_V3428 kl_V3429 kl_V3430)))))) !appl_1004 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_1003 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_1003)))) !appl_1005 <- appl_1002 `pseq` (appl_1004 `pseq` kl_do appl_1002 appl_1004) !appl_1006 <- appl_1005 `pseq` applyWrapper appl_1000 [appl_1005] appl_999 `pseq` (appl_1006 `pseq` kl_do appl_999 appl_1006)))) !appl_1007 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_1007 `pseq` applyWrapper appl_995 [appl_1007]))) !appl_1008 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_1008 `pseq` applyWrapper appl_994 [appl_1008] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3282 of !(kl_V3282@(Cons (!kl_V3282h) (!kl_V3282t))) -> pat_cond_897 kl_V3282 kl_V3282h kl_V3282t _ -> pat_cond_992))) !appl_1009 <- kl_V3427 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3427 kl_V3429) appl_1009 `pseq` applyWrapper appl_896 [appl_1009] pat_cond_1010 = do do return (Atom (B False)) in case kl_V3281 of kl_V3281@(Atom (Nil)) -> pat_cond_895 _ -> pat_cond_1010))) !appl_1011 <- kl_V3280t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3280t kl_V3429) appl_1011 `pseq` applyWrapper appl_894 [appl_1011]))) kl_V3280h `pseq` applyWrapper appl_893 [kl_V3280h] pat_cond_1012 = do do return (Atom (B False)) in case kl_V3280 of !(kl_V3280@(Cons (!kl_V3280h) (!kl_V3280t))) -> pat_cond_892 kl_V3280 kl_V3280h kl_V3280t _ -> pat_cond_1012))) !appl_1013 <- kl_V3279t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3279t kl_V3429) appl_1013 `pseq` applyWrapper appl_891 [appl_1013]))) kl_V3279h `pseq` applyWrapper appl_890 [kl_V3279h] pat_cond_1014 = do do return (Atom (B False)) in case kl_V3279 of !(kl_V3279@(Cons (!kl_V3279h) (!kl_V3279t))) -> pat_cond_889 kl_V3279 kl_V3279h kl_V3279t _ -> pat_cond_1014))) !appl_1015 <- kl_V3277t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3277t kl_V3429) appl_1015 `pseq` applyWrapper appl_888 [appl_1015] pat_cond_1016 = do do return (Atom (B False)) in case kl_V3278 of kl_V3278@(Atom (UnboundSym "@p")) -> pat_cond_887 kl_V3278@(ApplC (PL "@p" _)) -> pat_cond_887 kl_V3278@(ApplC (Func "@p" _)) -> pat_cond_887 _ -> pat_cond_1016))) !appl_1017 <- kl_V3277h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3277h kl_V3429) appl_1017 `pseq` applyWrapper appl_886 [appl_1017] pat_cond_1018 = do do return (Atom (B False)) in case kl_V3277 of !(kl_V3277@(Cons (!kl_V3277h) (!kl_V3277t))) -> pat_cond_885 kl_V3277 kl_V3277h kl_V3277t _ -> pat_cond_1018))) !appl_1019 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_1020 <- appl_1019 `pseq` applyWrapper appl_884 [appl_1019] appl_1020 `pseq` applyWrapper appl_15 [appl_1020] pat_cond_1021 = 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_1021))) let !appl_1022 = ApplC (Func "lambda" (Context (\(!kl_V3266) -> do let pat_cond_1023 kl_V3266 kl_V3266h kl_V3266t = do let !appl_1024 = ApplC (Func "lambda" (Context (\(!kl_V3267) -> do let pat_cond_1025 = do let !appl_1026 = ApplC (Func "lambda" (Context (\(!kl_V3268) -> do let pat_cond_1027 kl_V3268 kl_V3268h kl_V3268t = do let !appl_1028 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_1029 = ApplC (Func "lambda" (Context (\(!kl_V3269) -> do let pat_cond_1030 kl_V3269 kl_V3269h kl_V3269t = do let !appl_1031 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_1032 = ApplC (Func "lambda" (Context (\(!kl_V3270) -> do let pat_cond_1033 = do let !appl_1034 = ApplC (Func "lambda" (Context (\(!kl_V3271) -> do let pat_cond_1035 kl_V3271 kl_V3271h kl_V3271t = do let !appl_1036 = ApplC (Func "lambda" (Context (\(!kl_V3272) -> do let pat_cond_1037 = do let !appl_1038 = ApplC (Func "lambda" (Context (\(!kl_V3273) -> do let pat_cond_1039 kl_V3273 kl_V3273h kl_V3273t = do let !appl_1040 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1041 = ApplC (Func "lambda" (Context (\(!kl_V3274) -> do let pat_cond_1042 = do !appl_1043 <- kl_shen_incinfs let !appl_1044 = ApplC (PL "thunk" (do !appl_1045 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1046 <- appl_1045 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1045 kl_Y `pseq` (appl_1046 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_1046 kl_V3428 kl_V3429 kl_V3430)))))) !appl_1047 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_1044 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_1044)))) appl_1043 `pseq` (appl_1047 `pseq` kl_do appl_1043 appl_1047) pat_cond_1048 = do do !kl_if_1049 <- kl_V3274 `pseq` kl_shen_pvarP kl_V3274 case kl_if_1049 of Atom (B (True)) -> do !appl_1050 <- kl_V3274 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3274 (Types.Atom Types.Nil) kl_V3429) let !appl_1051 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1052 <- kl_V3274 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3274 kl_V3429) appl_1052 `pseq` (kl_Result `pseq` kl_do appl_1052 kl_Result)))) !appl_1053 <- kl_shen_incinfs let !appl_1054 = ApplC (PL "thunk" (do !appl_1055 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1056 <- appl_1055 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1055 kl_Y `pseq` (appl_1056 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_1056 kl_V3428 kl_V3429 kl_V3430)))))) !appl_1057 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_1054 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_1054)))) !appl_1058 <- appl_1053 `pseq` (appl_1057 `pseq` kl_do appl_1053 appl_1057) !appl_1059 <- appl_1058 `pseq` applyWrapper appl_1051 [appl_1058] appl_1050 `pseq` (appl_1059 `pseq` kl_do appl_1050 appl_1059) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3274 of kl_V3274@(Atom (Nil)) -> pat_cond_1042 _ -> pat_cond_1048))) !appl_1060 <- kl_V3273t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3273t kl_V3429) appl_1060 `pseq` applyWrapper appl_1041 [appl_1060]))) kl_V3273h `pseq` applyWrapper appl_1040 [kl_V3273h] pat_cond_1061 = do do !kl_if_1062 <- kl_V3273 `pseq` kl_shen_pvarP kl_V3273 case kl_if_1062 of Atom (B (True)) -> do let !appl_1063 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_1064 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1065 <- kl_V3273 `pseq` (appl_1064 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3273 appl_1064 kl_V3429)) let !appl_1066 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1067 <- kl_V3273 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3273 kl_V3429) appl_1067 `pseq` (kl_Result `pseq` kl_do appl_1067 kl_Result)))) !appl_1068 <- kl_shen_incinfs let !appl_1069 = ApplC (PL "thunk" (do !appl_1070 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1071 <- appl_1070 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1070 kl_Y `pseq` (appl_1071 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_1071 kl_V3428 kl_V3429 kl_V3430)))))) !appl_1072 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_1069 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_1069)))) !appl_1073 <- appl_1068 `pseq` (appl_1072 `pseq` kl_do appl_1068 appl_1072) !appl_1074 <- appl_1073 `pseq` applyWrapper appl_1066 [appl_1073] appl_1065 `pseq` (appl_1074 `pseq` kl_do appl_1065 appl_1074)))) !appl_1075 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_1075 `pseq` applyWrapper appl_1063 [appl_1075] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3273 of !(kl_V3273@(Cons (!kl_V3273h) (!kl_V3273t))) -> pat_cond_1039 kl_V3273 kl_V3273h kl_V3273t _ -> pat_cond_1061))) !appl_1076 <- kl_V3271t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3271t kl_V3429) appl_1076 `pseq` applyWrapper appl_1038 [appl_1076] pat_cond_1077 = do do !kl_if_1078 <- kl_V3272 `pseq` kl_shen_pvarP kl_V3272 case kl_if_1078 of Atom (B (True)) -> do !appl_1079 <- kl_V3272 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3272 (Types.Atom (Types.UnboundSym "list")) kl_V3429) let !appl_1080 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1081 <- kl_V3272 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3272 kl_V3429) appl_1081 `pseq` (kl_Result `pseq` kl_do appl_1081 kl_Result)))) let !appl_1082 = ApplC (Func "lambda" (Context (\(!kl_V3275) -> do let pat_cond_1083 kl_V3275 kl_V3275h kl_V3275t = do let !appl_1084 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1085 = ApplC (Func "lambda" (Context (\(!kl_V3276) -> do let pat_cond_1086 = do !appl_1087 <- kl_shen_incinfs let !appl_1088 = ApplC (PL "thunk" (do !appl_1089 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1090 <- appl_1089 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1089 kl_Y `pseq` (appl_1090 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_1090 kl_V3428 kl_V3429 kl_V3430)))))) !appl_1091 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_1088 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_1088)))) appl_1087 `pseq` (appl_1091 `pseq` kl_do appl_1087 appl_1091) pat_cond_1092 = do do !kl_if_1093 <- kl_V3276 `pseq` kl_shen_pvarP kl_V3276 case kl_if_1093 of Atom (B (True)) -> do !appl_1094 <- kl_V3276 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3276 (Types.Atom Types.Nil) kl_V3429) let !appl_1095 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1096 <- kl_V3276 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3276 kl_V3429) appl_1096 `pseq` (kl_Result `pseq` kl_do appl_1096 kl_Result)))) !appl_1097 <- kl_shen_incinfs let !appl_1098 = ApplC (PL "thunk" (do !appl_1099 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1100 <- appl_1099 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1099 kl_Y `pseq` (appl_1100 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_1100 kl_V3428 kl_V3429 kl_V3430)))))) !appl_1101 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_1098 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_1098)))) !appl_1102 <- appl_1097 `pseq` (appl_1101 `pseq` kl_do appl_1097 appl_1101) !appl_1103 <- appl_1102 `pseq` applyWrapper appl_1095 [appl_1102] appl_1094 `pseq` (appl_1103 `pseq` kl_do appl_1094 appl_1103) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3276 of kl_V3276@(Atom (Nil)) -> pat_cond_1086 _ -> pat_cond_1092))) !appl_1104 <- kl_V3275t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3275t kl_V3429) appl_1104 `pseq` applyWrapper appl_1085 [appl_1104]))) kl_V3275h `pseq` applyWrapper appl_1084 [kl_V3275h] pat_cond_1105 = do do !kl_if_1106 <- kl_V3275 `pseq` kl_shen_pvarP kl_V3275 case kl_if_1106 of Atom (B (True)) -> do let !appl_1107 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_1108 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1109 <- kl_V3275 `pseq` (appl_1108 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3275 appl_1108 kl_V3429)) let !appl_1110 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1111 <- kl_V3275 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3275 kl_V3429) appl_1111 `pseq` (kl_Result `pseq` kl_do appl_1111 kl_Result)))) !appl_1112 <- kl_shen_incinfs let !appl_1113 = ApplC (PL "thunk" (do !appl_1114 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1115 <- appl_1114 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1114 kl_Y `pseq` (appl_1115 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_1115 kl_V3428 kl_V3429 kl_V3430)))))) !appl_1116 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_1113 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_1113)))) !appl_1117 <- appl_1112 `pseq` (appl_1116 `pseq` kl_do appl_1112 appl_1116) !appl_1118 <- appl_1117 `pseq` applyWrapper appl_1110 [appl_1117] appl_1109 `pseq` (appl_1118 `pseq` kl_do appl_1109 appl_1118)))) !appl_1119 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_1119 `pseq` applyWrapper appl_1107 [appl_1119] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3275 of !(kl_V3275@(Cons (!kl_V3275h) (!kl_V3275t))) -> pat_cond_1083 kl_V3275 kl_V3275h kl_V3275t _ -> pat_cond_1105))) !appl_1120 <- kl_V3271t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3271t kl_V3429) !appl_1121 <- appl_1120 `pseq` applyWrapper appl_1082 [appl_1120] !appl_1122 <- appl_1121 `pseq` applyWrapper appl_1080 [appl_1121] appl_1079 `pseq` (appl_1122 `pseq` kl_do appl_1079 appl_1122) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3272 of kl_V3272@(Atom (UnboundSym "list")) -> pat_cond_1037 kl_V3272@(ApplC (PL "list" _)) -> pat_cond_1037 kl_V3272@(ApplC (Func "list" _)) -> pat_cond_1037 _ -> pat_cond_1077))) !appl_1123 <- kl_V3271h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3271h kl_V3429) appl_1123 `pseq` applyWrapper appl_1036 [appl_1123] pat_cond_1124 = do do !kl_if_1125 <- kl_V3271 `pseq` kl_shen_pvarP kl_V3271 case kl_if_1125 of Atom (B (True)) -> do let !appl_1126 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_1127 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1128 <- appl_1127 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1127 !appl_1129 <- kl_V3271 `pseq` (appl_1128 `pseq` (kl_V3429 `pseq` kl_shen_bindv kl_V3271 appl_1128 kl_V3429)) let !appl_1130 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1131 <- kl_V3271 `pseq` (kl_V3429 `pseq` kl_shen_unbindv kl_V3271 kl_V3429) appl_1131 `pseq` (kl_Result `pseq` kl_do appl_1131 kl_Result)))) !appl_1132 <- kl_shen_incinfs let !appl_1133 = ApplC (PL "thunk" (do !appl_1134 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1135 <- appl_1134 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1134 kl_Y `pseq` (appl_1135 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_Y appl_1135 kl_V3428 kl_V3429 kl_V3430)))))) !appl_1136 <- kl_X `pseq` (kl_A `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_1133 `pseq` kl_shen_thMult kl_X kl_A kl_V3428 kl_V3429 appl_1133)))) !appl_1137 <- appl_1132 `pseq` (appl_1136 `pseq` kl_do appl_1132 appl_1136) !appl_1138 <- appl_1137 `pseq` applyWrapper appl_1130 [appl_1137] appl_1129 `pseq` (appl_1138 `pseq` kl_do appl_1129 appl_1138)))) !appl_1139 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_1139 `pseq` applyWrapper appl_1126 [appl_1139] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3271 of !(kl_V3271@(Cons (!kl_V3271h) (!kl_V3271t))) -> pat_cond_1035 kl_V3271 kl_V3271h kl_V3271t _ -> pat_cond_1124))) !appl_1140 <- kl_V3427 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3427 kl_V3429) appl_1140 `pseq` applyWrapper appl_1034 [appl_1140] pat_cond_1141 = do do return (Atom (B False)) in case kl_V3270 of kl_V3270@(Atom (Nil)) -> pat_cond_1033 _ -> pat_cond_1141))) !appl_1142 <- kl_V3269t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3269t kl_V3429) appl_1142 `pseq` applyWrapper appl_1032 [appl_1142]))) kl_V3269h `pseq` applyWrapper appl_1031 [kl_V3269h] pat_cond_1143 = do do return (Atom (B False)) in case kl_V3269 of !(kl_V3269@(Cons (!kl_V3269h) (!kl_V3269t))) -> pat_cond_1030 kl_V3269 kl_V3269h kl_V3269t _ -> pat_cond_1143))) !appl_1144 <- kl_V3268t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3268t kl_V3429) appl_1144 `pseq` applyWrapper appl_1029 [appl_1144]))) kl_V3268h `pseq` applyWrapper appl_1028 [kl_V3268h] pat_cond_1145 = do do return (Atom (B False)) in case kl_V3268 of !(kl_V3268@(Cons (!kl_V3268h) (!kl_V3268t))) -> pat_cond_1027 kl_V3268 kl_V3268h kl_V3268t _ -> pat_cond_1145))) !appl_1146 <- kl_V3266t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3266t kl_V3429) appl_1146 `pseq` applyWrapper appl_1026 [appl_1146] pat_cond_1147 = do do return (Atom (B False)) in case kl_V3267 of kl_V3267@(Atom (UnboundSym "cons")) -> pat_cond_1025 kl_V3267@(ApplC (PL "cons" _)) -> pat_cond_1025 kl_V3267@(ApplC (Func "cons" _)) -> pat_cond_1025 _ -> pat_cond_1147))) !appl_1148 <- kl_V3266h `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3266h kl_V3429) appl_1148 `pseq` applyWrapper appl_1024 [appl_1148] pat_cond_1149 = do do return (Atom (B False)) in case kl_V3266 of !(kl_V3266@(Cons (!kl_V3266h) (!kl_V3266t))) -> pat_cond_1023 kl_V3266 kl_V3266h kl_V3266t _ -> pat_cond_1149))) !appl_1150 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_1151 <- appl_1150 `pseq` applyWrapper appl_1022 [appl_1150] appl_1151 `pseq` applyWrapper appl_13 [appl_1151] pat_cond_1152 = 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_1152))) let !appl_1153 = ApplC (Func "lambda" (Context (\(!kl_V3263) -> do let pat_cond_1154 kl_V3263 kl_V3263h kl_V3263t = do let !appl_1155 = ApplC (Func "lambda" (Context (\(!kl_F) -> do let !appl_1156 = ApplC (Func "lambda" (Context (\(!kl_V3264) -> do let pat_cond_1157 kl_V3264 kl_V3264h kl_V3264t = do let !appl_1158 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_1159 = ApplC (Func "lambda" (Context (\(!kl_V3265) -> do let pat_cond_1160 = do let !appl_1161 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_1162 <- kl_shen_incinfs !appl_1163 <- kl_V3427 `pseq` klCons kl_V3427 (Types.Atom Types.Nil) !appl_1164 <- appl_1163 `pseq` klCons (Types.Atom (Types.UnboundSym "-->")) appl_1163 !appl_1165 <- kl_B `pseq` (appl_1164 `pseq` klCons kl_B appl_1164) let !appl_1166 = ApplC (PL "thunk" (do kl_X `pseq` (kl_B `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_X kl_B kl_V3428 kl_V3429 kl_V3430)))))) !appl_1167 <- kl_F `pseq` (appl_1165 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_1166 `pseq` kl_shen_thMult kl_F appl_1165 kl_V3428 kl_V3429 appl_1166)))) appl_1162 `pseq` (appl_1167 `pseq` kl_do appl_1162 appl_1167)))) !appl_1168 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 appl_1168 `pseq` applyWrapper appl_1161 [appl_1168] pat_cond_1169 = do do return (Atom (B False)) in case kl_V3265 of kl_V3265@(Atom (Nil)) -> pat_cond_1160 _ -> pat_cond_1169))) !appl_1170 <- kl_V3264t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3264t kl_V3429) appl_1170 `pseq` applyWrapper appl_1159 [appl_1170]))) kl_V3264h `pseq` applyWrapper appl_1158 [kl_V3264h] pat_cond_1171 = do do return (Atom (B False)) in case kl_V3264 of !(kl_V3264@(Cons (!kl_V3264h) (!kl_V3264t))) -> pat_cond_1157 kl_V3264 kl_V3264h kl_V3264t _ -> pat_cond_1171))) !appl_1172 <- kl_V3263t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3263t kl_V3429) appl_1172 `pseq` applyWrapper appl_1156 [appl_1172]))) kl_V3263h `pseq` applyWrapper appl_1155 [kl_V3263h] pat_cond_1173 = do do return (Atom (B False)) in case kl_V3263 of !(kl_V3263@(Cons (!kl_V3263h) (!kl_V3263t))) -> pat_cond_1154 kl_V3263 kl_V3263h kl_V3263t _ -> pat_cond_1173))) !appl_1174 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_1175 <- appl_1174 `pseq` applyWrapper appl_1153 [appl_1174] appl_1175 `pseq` applyWrapper appl_11 [appl_1175] pat_cond_1176 = 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_1176))) let !appl_1177 = ApplC (Func "lambda" (Context (\(!kl_V3261) -> do let pat_cond_1178 kl_V3261 kl_V3261h kl_V3261t = do let !appl_1179 = ApplC (Func "lambda" (Context (\(!kl_F) -> do let !appl_1180 = ApplC (Func "lambda" (Context (\(!kl_V3262) -> do let pat_cond_1181 = do !appl_1182 <- kl_shen_incinfs !appl_1183 <- kl_V3427 `pseq` klCons kl_V3427 (Types.Atom Types.Nil) !appl_1184 <- appl_1183 `pseq` klCons (Types.Atom (Types.UnboundSym "-->")) appl_1183 !appl_1185 <- kl_F `pseq` (appl_1184 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_thMult kl_F appl_1184 kl_V3428 kl_V3429 kl_V3430)))) appl_1182 `pseq` (appl_1185 `pseq` kl_do appl_1182 appl_1185) pat_cond_1186 = do do return (Atom (B False)) in case kl_V3262 of kl_V3262@(Atom (Nil)) -> pat_cond_1181 _ -> pat_cond_1186))) !appl_1187 <- kl_V3261t `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3261t kl_V3429) appl_1187 `pseq` applyWrapper appl_1180 [appl_1187]))) kl_V3261h `pseq` applyWrapper appl_1179 [kl_V3261h] pat_cond_1188 = do do return (Atom (B False)) in case kl_V3261 of !(kl_V3261@(Cons (!kl_V3261h) (!kl_V3261t))) -> pat_cond_1178 kl_V3261 kl_V3261h kl_V3261t _ -> pat_cond_1188))) !appl_1189 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_1190 <- appl_1189 `pseq` applyWrapper appl_1177 [appl_1189] appl_1190 `pseq` applyWrapper appl_9 [appl_1190] pat_cond_1191 = 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_1191))) !appl_1192 <- kl_shen_incinfs !appl_1193 <- kl_V3426 `pseq` (kl_V3427 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_by_hypothesis kl_V3426 kl_V3427 kl_V3428 kl_V3429 kl_V3430)))) !appl_1194 <- appl_1192 `pseq` (appl_1193 `pseq` kl_do appl_1192 appl_1193) appl_1194 `pseq` applyWrapper appl_7 [appl_1194] pat_cond_1195 = 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_1195))) !appl_1196 <- kl_shen_incinfs !appl_1197 <- kl_V3426 `pseq` (kl_V3427 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_shen_base kl_V3426 kl_V3427 kl_V3429 kl_V3430))) !appl_1198 <- appl_1196 `pseq` (appl_1197 `pseq` kl_do appl_1196 appl_1197) appl_1198 `pseq` applyWrapper appl_5 [appl_1198] pat_cond_1199 = 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_1199))) let !appl_1200 = ApplC (Func "lambda" (Context (\(!kl_F) -> do !appl_1201 <- kl_shen_incinfs !appl_1202 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_1203 <- appl_1202 `pseq` kl_shen_typedfP appl_1202 let !appl_1204 = ApplC (PL "thunk" (do !appl_1205 <- kl_V3426 `pseq` (kl_V3429 `pseq` kl_shen_lazyderef kl_V3426 kl_V3429) !appl_1206 <- appl_1205 `pseq` kl_shen_sigf appl_1205 let !appl_1207 = ApplC (PL "thunk" (do !appl_1208 <- kl_V3427 `pseq` klCons kl_V3427 (Types.Atom Types.Nil) !appl_1209 <- kl_F `pseq` (appl_1208 `pseq` klCons kl_F appl_1208) appl_1209 `pseq` (kl_V3429 `pseq` (kl_V3430 `pseq` kl_call appl_1209 kl_V3429 kl_V3430)))) kl_F `pseq` (appl_1206 `pseq` (kl_V3429 `pseq` (appl_1207 `pseq` kl_bind kl_F appl_1206 kl_V3429 appl_1207))))) !appl_1210 <- appl_1203 `pseq` (kl_V3429 `pseq` (appl_1204 `pseq` kl_fwhen appl_1203 kl_V3429 appl_1204)) appl_1201 `pseq` (appl_1210 `pseq` kl_do appl_1201 appl_1210)))) !appl_1211 <- kl_V3429 `pseq` kl_shen_newpv kl_V3429 !appl_1212 <- appl_1211 `pseq` applyWrapper appl_1200 [appl_1211] appl_1212 `pseq` applyWrapper appl_3 [appl_1212] pat_cond_1213 = 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_1213))) !appl_1214 <- kl_shen_incinfs !appl_1215 <- kl_V3427 `pseq` klCons kl_V3427 (Types.Atom Types.Nil) !appl_1216 <- appl_1215 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1215 !appl_1217 <- kl_V3426 `pseq` (appl_1216 `pseq` klCons kl_V3426 appl_1216) let !appl_1218 = ApplC (PL "thunk" (do kl_V3429 `pseq` (kl_V3430 `pseq` kl_fwhen (Atom (B False)) kl_V3429 kl_V3430))) !appl_1219 <- appl_1217 `pseq` (kl_V3428 `pseq` (kl_V3429 `pseq` (appl_1218 `pseq` kl_shen_show appl_1217 kl_V3428 kl_V3429 appl_1218))) !appl_1220 <- appl_1214 `pseq` (appl_1219 `pseq` kl_do appl_1214 appl_1219) !appl_1221 <- appl_1220 `pseq` applyWrapper appl_1 [appl_1220] kl_Throwcontrol `pseq` (appl_1221 `pseq` kl_shen_cutpoint kl_Throwcontrol appl_1221)))) !appl_1222 <- kl_shen_catchpoint appl_1222 `pseq` applyWrapper appl_0 [appl_1222] kl_shen_tMult_hyps :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_tMult_hyps (!kl_V3435) (!kl_V3436) (!kl_V3437) (!kl_V3438) = 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_V3256) -> do let pat_cond_9 kl_V3256 kl_V3256h kl_V3256t = 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_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_15 <- kl_NewHyps `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_NewHyps kl_V3437) !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_V3437 `pseq` (kl_V3438 `pseq` kl_shen_tMult_hyps kl_Hyp kl_NewHyps kl_V3437 kl_V3438))))) !appl_18 <- kl_V3436 `pseq` (appl_16 `pseq` (kl_V3437 `pseq` (appl_17 `pseq` kl_bind kl_V3436 appl_16 kl_V3437 appl_17))) appl_13 `pseq` (appl_18 `pseq` kl_do appl_13 appl_18)))) !appl_19 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_19 `pseq` applyWrapper appl_12 [appl_19]))) kl_V3256t `pseq` applyWrapper appl_11 [kl_V3256t]))) kl_V3256h `pseq` applyWrapper appl_10 [kl_V3256h] pat_cond_20 = do do return (Atom (B False)) in case kl_V3256 of !(kl_V3256@(Cons (!kl_V3256h) (!kl_V3256t))) -> pat_cond_9 kl_V3256 kl_V3256h kl_V3256t _ -> pat_cond_20))) !appl_21 <- kl_V3435 `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3435 kl_V3437) 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_V3243) -> do let pat_cond_24 kl_V3243 kl_V3243h kl_V3243t = do let !appl_25 = ApplC (Func "lambda" (Context (\(!kl_V3244) -> do let pat_cond_26 kl_V3244 kl_V3244h kl_V3244t = do let !appl_27 = ApplC (Func "lambda" (Context (\(!kl_V3245) -> do let pat_cond_28 kl_V3245 kl_V3245h kl_V3245t = do let !appl_29 = ApplC (Func "lambda" (Context (\(!kl_V3246) -> do let pat_cond_30 = do let !appl_31 = ApplC (Func "lambda" (Context (\(!kl_V3247) -> do let pat_cond_32 kl_V3247 kl_V3247h kl_V3247t = do let !appl_33 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_34 = ApplC (Func "lambda" (Context (\(!kl_V3248) -> do let pat_cond_35 kl_V3248 kl_V3248h kl_V3248t = do let !appl_36 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_37 = ApplC (Func "lambda" (Context (\(!kl_V3249) -> do let pat_cond_38 = do let !appl_39 = ApplC (Func "lambda" (Context (\(!kl_V3250) -> do let pat_cond_40 kl_V3250 kl_V3250h kl_V3250t = do let !appl_41 = ApplC (Func "lambda" (Context (\(!kl_V3251) -> do let pat_cond_42 = do let !appl_43 = ApplC (Func "lambda" (Context (\(!kl_V3252) -> do let pat_cond_44 kl_V3252 kl_V3252h kl_V3252t = do let !appl_45 = ApplC (Func "lambda" (Context (\(!kl_V3253) -> do let pat_cond_46 = do let !appl_47 = ApplC (Func "lambda" (Context (\(!kl_V3254) -> do let pat_cond_48 = do let !appl_49 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_50 <- kl_shen_incinfs !appl_51 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_52 <- klCons (Types.Atom (Types.UnboundSym "string")) (Types.Atom Types.Nil) !appl_53 <- appl_52 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_52 !appl_54 <- appl_51 `pseq` (appl_53 `pseq` klCons appl_51 appl_53) !appl_55 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_56 <- klCons (Types.Atom (Types.UnboundSym "string")) (Types.Atom Types.Nil) !appl_57 <- appl_56 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_56 !appl_58 <- appl_55 `pseq` (appl_57 `pseq` klCons appl_55 appl_57) !appl_59 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_60 <- appl_58 `pseq` (appl_59 `pseq` klCons appl_58 appl_59) !appl_61 <- appl_54 `pseq` (appl_60 `pseq` klCons appl_54 appl_60) !appl_62 <- kl_V3436 `pseq` (appl_61 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_61 kl_V3437 kl_V3438))) appl_50 `pseq` (appl_62 `pseq` kl_do appl_50 appl_62)))) kl_V3243t `pseq` applyWrapper appl_49 [kl_V3243t] pat_cond_63 = do do !kl_if_64 <- kl_V3254 `pseq` kl_shen_pvarP kl_V3254 case kl_if_64 of Atom (B (True)) -> do !appl_65 <- kl_V3254 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3254 (Types.Atom Types.Nil) kl_V3437) let !appl_66 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_67 <- kl_V3254 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3254 kl_V3437) appl_67 `pseq` (kl_Result `pseq` kl_do appl_67 kl_Result)))) let !appl_68 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_69 <- kl_shen_incinfs !appl_70 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_71 <- klCons (Types.Atom (Types.UnboundSym "string")) (Types.Atom Types.Nil) !appl_72 <- appl_71 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_71 !appl_73 <- appl_70 `pseq` (appl_72 `pseq` klCons appl_70 appl_72) !appl_74 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_75 <- klCons (Types.Atom (Types.UnboundSym "string")) (Types.Atom Types.Nil) !appl_76 <- appl_75 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_75 !appl_77 <- appl_74 `pseq` (appl_76 `pseq` klCons appl_74 appl_76) !appl_78 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_79 <- appl_77 `pseq` (appl_78 `pseq` klCons appl_77 appl_78) !appl_80 <- appl_73 `pseq` (appl_79 `pseq` klCons appl_73 appl_79) !appl_81 <- kl_V3436 `pseq` (appl_80 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_80 kl_V3437 kl_V3438))) appl_69 `pseq` (appl_81 `pseq` kl_do appl_69 appl_81)))) !appl_82 <- kl_V3243t `pseq` applyWrapper appl_68 [kl_V3243t] !appl_83 <- appl_82 `pseq` applyWrapper appl_66 [appl_82] appl_65 `pseq` (appl_83 `pseq` kl_do appl_65 appl_83) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3254 of kl_V3254@(Atom (Nil)) -> pat_cond_48 _ -> pat_cond_63))) !appl_84 <- kl_V3252t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3252t kl_V3437) appl_84 `pseq` applyWrapper appl_47 [appl_84] pat_cond_85 = do do !kl_if_86 <- kl_V3253 `pseq` kl_shen_pvarP kl_V3253 case kl_if_86 of Atom (B (True)) -> do !appl_87 <- kl_V3253 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3253 (Types.Atom (Types.UnboundSym "string")) kl_V3437) let !appl_88 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_89 <- kl_V3253 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3253 kl_V3437) appl_89 `pseq` (kl_Result `pseq` kl_do appl_89 kl_Result)))) let !appl_90 = ApplC (Func "lambda" (Context (\(!kl_V3255) -> do let pat_cond_91 = do let !appl_92 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_93 <- kl_shen_incinfs !appl_94 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_95 <- klCons (Types.Atom (Types.UnboundSym "string")) (Types.Atom Types.Nil) !appl_96 <- appl_95 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_95 !appl_97 <- appl_94 `pseq` (appl_96 `pseq` klCons appl_94 appl_96) !appl_98 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_99 <- klCons (Types.Atom (Types.UnboundSym "string")) (Types.Atom Types.Nil) !appl_100 <- appl_99 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_99 !appl_101 <- appl_98 `pseq` (appl_100 `pseq` klCons appl_98 appl_100) !appl_102 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_103 <- appl_101 `pseq` (appl_102 `pseq` klCons appl_101 appl_102) !appl_104 <- appl_97 `pseq` (appl_103 `pseq` klCons appl_97 appl_103) !appl_105 <- kl_V3436 `pseq` (appl_104 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_104 kl_V3437 kl_V3438))) appl_93 `pseq` (appl_105 `pseq` kl_do appl_93 appl_105)))) kl_V3243t `pseq` applyWrapper appl_92 [kl_V3243t] pat_cond_106 = do do !kl_if_107 <- kl_V3255 `pseq` kl_shen_pvarP kl_V3255 case kl_if_107 of Atom (B (True)) -> do !appl_108 <- kl_V3255 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3255 (Types.Atom Types.Nil) kl_V3437) let !appl_109 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_110 <- kl_V3255 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3255 kl_V3437) appl_110 `pseq` (kl_Result `pseq` kl_do appl_110 kl_Result)))) let !appl_111 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_112 <- kl_shen_incinfs !appl_113 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_114 <- klCons (Types.Atom (Types.UnboundSym "string")) (Types.Atom Types.Nil) !appl_115 <- appl_114 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_114 !appl_116 <- appl_113 `pseq` (appl_115 `pseq` klCons appl_113 appl_115) !appl_117 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_118 <- klCons (Types.Atom (Types.UnboundSym "string")) (Types.Atom Types.Nil) !appl_119 <- appl_118 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_118 !appl_120 <- appl_117 `pseq` (appl_119 `pseq` klCons appl_117 appl_119) !appl_121 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_122 <- appl_120 `pseq` (appl_121 `pseq` klCons appl_120 appl_121) !appl_123 <- appl_116 `pseq` (appl_122 `pseq` klCons appl_116 appl_122) !appl_124 <- kl_V3436 `pseq` (appl_123 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_123 kl_V3437 kl_V3438))) appl_112 `pseq` (appl_124 `pseq` kl_do appl_112 appl_124)))) !appl_125 <- kl_V3243t `pseq` applyWrapper appl_111 [kl_V3243t] !appl_126 <- appl_125 `pseq` applyWrapper appl_109 [appl_125] appl_108 `pseq` (appl_126 `pseq` kl_do appl_108 appl_126) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3255 of kl_V3255@(Atom (Nil)) -> pat_cond_91 _ -> pat_cond_106))) !appl_127 <- kl_V3252t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3252t kl_V3437) !appl_128 <- appl_127 `pseq` applyWrapper appl_90 [appl_127] !appl_129 <- appl_128 `pseq` applyWrapper appl_88 [appl_128] appl_87 `pseq` (appl_129 `pseq` kl_do appl_87 appl_129) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3253 of kl_V3253@(Atom (UnboundSym "string")) -> pat_cond_46 kl_V3253@(ApplC (PL "string" _)) -> pat_cond_46 kl_V3253@(ApplC (Func "string" _)) -> pat_cond_46 _ -> pat_cond_85))) !appl_130 <- kl_V3252h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3252h kl_V3437) appl_130 `pseq` applyWrapper appl_45 [appl_130] pat_cond_131 = do do return (Atom (B False)) in case kl_V3252 of !(kl_V3252@(Cons (!kl_V3252h) (!kl_V3252t))) -> pat_cond_44 kl_V3252 kl_V3252h kl_V3252t _ -> pat_cond_131))) !appl_132 <- kl_V3250t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3250t kl_V3437) appl_132 `pseq` applyWrapper appl_43 [appl_132] pat_cond_133 = do do return (Atom (B False)) in case kl_V3251 of kl_V3251@(Atom (UnboundSym ":")) -> pat_cond_42 kl_V3251@(ApplC (PL ":" _)) -> pat_cond_42 kl_V3251@(ApplC (Func ":" _)) -> pat_cond_42 _ -> pat_cond_133))) !appl_134 <- kl_V3250h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3250h kl_V3437) appl_134 `pseq` applyWrapper appl_41 [appl_134] pat_cond_135 = do do return (Atom (B False)) in case kl_V3250 of !(kl_V3250@(Cons (!kl_V3250h) (!kl_V3250t))) -> pat_cond_40 kl_V3250 kl_V3250h kl_V3250t _ -> pat_cond_135))) !appl_136 <- kl_V3244t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3244t kl_V3437) appl_136 `pseq` applyWrapper appl_39 [appl_136] pat_cond_137 = do do return (Atom (B False)) in case kl_V3249 of kl_V3249@(Atom (Nil)) -> pat_cond_38 _ -> pat_cond_137))) !appl_138 <- kl_V3248t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3248t kl_V3437) appl_138 `pseq` applyWrapper appl_37 [appl_138]))) kl_V3248h `pseq` applyWrapper appl_36 [kl_V3248h] pat_cond_139 = do do return (Atom (B False)) in case kl_V3248 of !(kl_V3248@(Cons (!kl_V3248h) (!kl_V3248t))) -> pat_cond_35 kl_V3248 kl_V3248h kl_V3248t _ -> pat_cond_139))) !appl_140 <- kl_V3247t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3247t kl_V3437) appl_140 `pseq` applyWrapper appl_34 [appl_140]))) kl_V3247h `pseq` applyWrapper appl_33 [kl_V3247h] pat_cond_141 = do do return (Atom (B False)) in case kl_V3247 of !(kl_V3247@(Cons (!kl_V3247h) (!kl_V3247t))) -> pat_cond_32 kl_V3247 kl_V3247h kl_V3247t _ -> pat_cond_141))) !appl_142 <- kl_V3245t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3245t kl_V3437) appl_142 `pseq` applyWrapper appl_31 [appl_142] pat_cond_143 = do do return (Atom (B False)) in case kl_V3246 of kl_V3246@(Atom (UnboundSym "@s")) -> pat_cond_30 kl_V3246@(ApplC (PL "@s" _)) -> pat_cond_30 kl_V3246@(ApplC (Func "@s" _)) -> pat_cond_30 _ -> pat_cond_143))) !appl_144 <- kl_V3245h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3245h kl_V3437) appl_144 `pseq` applyWrapper appl_29 [appl_144] pat_cond_145 = do do return (Atom (B False)) in case kl_V3245 of !(kl_V3245@(Cons (!kl_V3245h) (!kl_V3245t))) -> pat_cond_28 kl_V3245 kl_V3245h kl_V3245t _ -> pat_cond_145))) !appl_146 <- kl_V3244h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3244h kl_V3437) appl_146 `pseq` applyWrapper appl_27 [appl_146] pat_cond_147 = do do return (Atom (B False)) in case kl_V3244 of !(kl_V3244@(Cons (!kl_V3244h) (!kl_V3244t))) -> pat_cond_26 kl_V3244 kl_V3244h kl_V3244t _ -> pat_cond_147))) !appl_148 <- kl_V3243h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3243h kl_V3437) appl_148 `pseq` applyWrapper appl_25 [appl_148] pat_cond_149 = do do return (Atom (B False)) in case kl_V3243 of !(kl_V3243@(Cons (!kl_V3243h) (!kl_V3243t))) -> pat_cond_24 kl_V3243 kl_V3243h kl_V3243t _ -> pat_cond_149))) !appl_150 <- kl_V3435 `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3435 kl_V3437) !appl_151 <- appl_150 `pseq` applyWrapper appl_23 [appl_150] appl_151 `pseq` applyWrapper appl_6 [appl_151] pat_cond_152 = 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_152))) let !appl_153 = ApplC (Func "lambda" (Context (\(!kl_V3220) -> do let pat_cond_154 kl_V3220 kl_V3220h kl_V3220t = do let !appl_155 = ApplC (Func "lambda" (Context (\(!kl_V3221) -> do let pat_cond_156 kl_V3221 kl_V3221h kl_V3221t = do let !appl_157 = ApplC (Func "lambda" (Context (\(!kl_V3222) -> do let pat_cond_158 kl_V3222 kl_V3222h kl_V3222t = do let !appl_159 = ApplC (Func "lambda" (Context (\(!kl_V3223) -> do let pat_cond_160 = do let !appl_161 = ApplC (Func "lambda" (Context (\(!kl_V3224) -> do let pat_cond_162 kl_V3224 kl_V3224h kl_V3224t = do let !appl_163 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_164 = ApplC (Func "lambda" (Context (\(!kl_V3225) -> do let pat_cond_165 kl_V3225 kl_V3225h kl_V3225t = do let !appl_166 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_167 = ApplC (Func "lambda" (Context (\(!kl_V3226) -> do let pat_cond_168 = do let !appl_169 = ApplC (Func "lambda" (Context (\(!kl_V3227) -> do let pat_cond_170 kl_V3227 kl_V3227h kl_V3227t = do let !appl_171 = ApplC (Func "lambda" (Context (\(!kl_V3228) -> do let pat_cond_172 = do let !appl_173 = ApplC (Func "lambda" (Context (\(!kl_V3229) -> do let pat_cond_174 kl_V3229 kl_V3229h kl_V3229t = do let !appl_175 = ApplC (Func "lambda" (Context (\(!kl_V3230) -> do let pat_cond_176 kl_V3230 kl_V3230h kl_V3230t = do let !appl_177 = ApplC (Func "lambda" (Context (\(!kl_V3231) -> do let pat_cond_178 = do let !appl_179 = ApplC (Func "lambda" (Context (\(!kl_V3232) -> do let pat_cond_180 kl_V3232 kl_V3232h kl_V3232t = do let !appl_181 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_182 = ApplC (Func "lambda" (Context (\(!kl_V3233) -> do let pat_cond_183 = do let !appl_184 = ApplC (Func "lambda" (Context (\(!kl_V3234) -> do let pat_cond_185 = do let !appl_186 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_187 <- kl_shen_incinfs !appl_188 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_189 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_190 <- appl_189 `pseq` klCons appl_189 (Types.Atom Types.Nil) !appl_191 <- appl_190 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_190 !appl_192 <- appl_188 `pseq` (appl_191 `pseq` klCons appl_188 appl_191) !appl_193 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_194 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_195 <- appl_194 `pseq` klCons appl_194 (Types.Atom Types.Nil) !appl_196 <- appl_195 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_195 !appl_197 <- appl_196 `pseq` klCons appl_196 (Types.Atom Types.Nil) !appl_198 <- appl_197 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_197 !appl_199 <- appl_193 `pseq` (appl_198 `pseq` klCons appl_193 appl_198) !appl_200 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_201 <- appl_199 `pseq` (appl_200 `pseq` klCons appl_199 appl_200) !appl_202 <- appl_192 `pseq` (appl_201 `pseq` klCons appl_192 appl_201) !appl_203 <- kl_V3436 `pseq` (appl_202 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_202 kl_V3437 kl_V3438))) appl_187 `pseq` (appl_203 `pseq` kl_do appl_187 appl_203)))) kl_V3220t `pseq` applyWrapper appl_186 [kl_V3220t] pat_cond_204 = do do !kl_if_205 <- kl_V3234 `pseq` kl_shen_pvarP kl_V3234 case kl_if_205 of Atom (B (True)) -> do !appl_206 <- kl_V3234 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3234 (Types.Atom Types.Nil) kl_V3437) let !appl_207 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_208 <- kl_V3234 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3234 kl_V3437) appl_208 `pseq` (kl_Result `pseq` kl_do appl_208 kl_Result)))) let !appl_209 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_210 <- kl_shen_incinfs !appl_211 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_212 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_213 <- appl_212 `pseq` klCons appl_212 (Types.Atom Types.Nil) !appl_214 <- appl_213 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_213 !appl_215 <- appl_211 `pseq` (appl_214 `pseq` klCons appl_211 appl_214) !appl_216 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_217 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_218 <- appl_217 `pseq` klCons appl_217 (Types.Atom Types.Nil) !appl_219 <- appl_218 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_218 !appl_220 <- appl_219 `pseq` klCons appl_219 (Types.Atom Types.Nil) !appl_221 <- appl_220 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_220 !appl_222 <- appl_216 `pseq` (appl_221 `pseq` klCons appl_216 appl_221) !appl_223 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_224 <- appl_222 `pseq` (appl_223 `pseq` klCons appl_222 appl_223) !appl_225 <- appl_215 `pseq` (appl_224 `pseq` klCons appl_215 appl_224) !appl_226 <- kl_V3436 `pseq` (appl_225 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_225 kl_V3437 kl_V3438))) appl_210 `pseq` (appl_226 `pseq` kl_do appl_210 appl_226)))) !appl_227 <- kl_V3220t `pseq` applyWrapper appl_209 [kl_V3220t] !appl_228 <- appl_227 `pseq` applyWrapper appl_207 [appl_227] appl_206 `pseq` (appl_228 `pseq` kl_do appl_206 appl_228) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3234 of kl_V3234@(Atom (Nil)) -> pat_cond_185 _ -> pat_cond_204))) !appl_229 <- kl_V3229t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3229t kl_V3437) appl_229 `pseq` applyWrapper appl_184 [appl_229] pat_cond_230 = do do !kl_if_231 <- kl_V3233 `pseq` kl_shen_pvarP kl_V3233 case kl_if_231 of Atom (B (True)) -> do !appl_232 <- kl_V3233 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3233 (Types.Atom Types.Nil) kl_V3437) let !appl_233 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_234 <- kl_V3233 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3233 kl_V3437) appl_234 `pseq` (kl_Result `pseq` kl_do appl_234 kl_Result)))) let !appl_235 = ApplC (Func "lambda" (Context (\(!kl_V3235) -> do let pat_cond_236 = do let !appl_237 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_238 <- kl_shen_incinfs !appl_239 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_240 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_241 <- appl_240 `pseq` klCons appl_240 (Types.Atom Types.Nil) !appl_242 <- appl_241 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_241 !appl_243 <- appl_239 `pseq` (appl_242 `pseq` klCons appl_239 appl_242) !appl_244 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_245 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_246 <- appl_245 `pseq` klCons appl_245 (Types.Atom Types.Nil) !appl_247 <- appl_246 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_246 !appl_248 <- appl_247 `pseq` klCons appl_247 (Types.Atom Types.Nil) !appl_249 <- appl_248 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_248 !appl_250 <- appl_244 `pseq` (appl_249 `pseq` klCons appl_244 appl_249) !appl_251 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_252 <- appl_250 `pseq` (appl_251 `pseq` klCons appl_250 appl_251) !appl_253 <- appl_243 `pseq` (appl_252 `pseq` klCons appl_243 appl_252) !appl_254 <- kl_V3436 `pseq` (appl_253 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_253 kl_V3437 kl_V3438))) appl_238 `pseq` (appl_254 `pseq` kl_do appl_238 appl_254)))) kl_V3220t `pseq` applyWrapper appl_237 [kl_V3220t] pat_cond_255 = do do !kl_if_256 <- kl_V3235 `pseq` kl_shen_pvarP kl_V3235 case kl_if_256 of Atom (B (True)) -> do !appl_257 <- kl_V3235 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3235 (Types.Atom Types.Nil) kl_V3437) let !appl_258 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_259 <- kl_V3235 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3235 kl_V3437) appl_259 `pseq` (kl_Result `pseq` kl_do appl_259 kl_Result)))) let !appl_260 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_261 <- kl_shen_incinfs !appl_262 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_263 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_264 <- appl_263 `pseq` klCons appl_263 (Types.Atom Types.Nil) !appl_265 <- appl_264 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_264 !appl_266 <- appl_262 `pseq` (appl_265 `pseq` klCons appl_262 appl_265) !appl_267 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_268 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_269 <- appl_268 `pseq` klCons appl_268 (Types.Atom Types.Nil) !appl_270 <- appl_269 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_269 !appl_271 <- appl_270 `pseq` klCons appl_270 (Types.Atom Types.Nil) !appl_272 <- appl_271 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_271 !appl_273 <- appl_267 `pseq` (appl_272 `pseq` klCons appl_267 appl_272) !appl_274 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_275 <- appl_273 `pseq` (appl_274 `pseq` klCons appl_273 appl_274) !appl_276 <- appl_266 `pseq` (appl_275 `pseq` klCons appl_266 appl_275) !appl_277 <- kl_V3436 `pseq` (appl_276 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_276 kl_V3437 kl_V3438))) appl_261 `pseq` (appl_277 `pseq` kl_do appl_261 appl_277)))) !appl_278 <- kl_V3220t `pseq` applyWrapper appl_260 [kl_V3220t] !appl_279 <- appl_278 `pseq` applyWrapper appl_258 [appl_278] appl_257 `pseq` (appl_279 `pseq` kl_do appl_257 appl_279) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3235 of kl_V3235@(Atom (Nil)) -> pat_cond_236 _ -> pat_cond_255))) !appl_280 <- kl_V3229t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3229t kl_V3437) !appl_281 <- appl_280 `pseq` applyWrapper appl_235 [appl_280] !appl_282 <- appl_281 `pseq` applyWrapper appl_233 [appl_281] appl_232 `pseq` (appl_282 `pseq` kl_do appl_232 appl_282) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3233 of kl_V3233@(Atom (Nil)) -> pat_cond_183 _ -> pat_cond_230))) !appl_283 <- kl_V3232t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3232t kl_V3437) appl_283 `pseq` applyWrapper appl_182 [appl_283]))) kl_V3232h `pseq` applyWrapper appl_181 [kl_V3232h] pat_cond_284 = do do !kl_if_285 <- kl_V3232 `pseq` kl_shen_pvarP kl_V3232 case kl_if_285 of Atom (B (True)) -> do let !appl_286 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_287 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_288 <- kl_V3232 `pseq` (appl_287 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3232 appl_287 kl_V3437)) let !appl_289 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_290 <- kl_V3232 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3232 kl_V3437) appl_290 `pseq` (kl_Result `pseq` kl_do appl_290 kl_Result)))) let !appl_291 = ApplC (Func "lambda" (Context (\(!kl_V3236) -> do let pat_cond_292 = do let !appl_293 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_294 <- kl_shen_incinfs !appl_295 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_296 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_297 <- appl_296 `pseq` klCons appl_296 (Types.Atom Types.Nil) !appl_298 <- appl_297 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_297 !appl_299 <- appl_295 `pseq` (appl_298 `pseq` klCons appl_295 appl_298) !appl_300 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_301 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_302 <- appl_301 `pseq` klCons appl_301 (Types.Atom Types.Nil) !appl_303 <- appl_302 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_302 !appl_304 <- appl_303 `pseq` klCons appl_303 (Types.Atom Types.Nil) !appl_305 <- appl_304 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_304 !appl_306 <- appl_300 `pseq` (appl_305 `pseq` klCons appl_300 appl_305) !appl_307 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_308 <- appl_306 `pseq` (appl_307 `pseq` klCons appl_306 appl_307) !appl_309 <- appl_299 `pseq` (appl_308 `pseq` klCons appl_299 appl_308) !appl_310 <- kl_V3436 `pseq` (appl_309 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_309 kl_V3437 kl_V3438))) appl_294 `pseq` (appl_310 `pseq` kl_do appl_294 appl_310)))) kl_V3220t `pseq` applyWrapper appl_293 [kl_V3220t] pat_cond_311 = do do !kl_if_312 <- kl_V3236 `pseq` kl_shen_pvarP kl_V3236 case kl_if_312 of Atom (B (True)) -> do !appl_313 <- kl_V3236 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3236 (Types.Atom Types.Nil) kl_V3437) let !appl_314 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_315 <- kl_V3236 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3236 kl_V3437) appl_315 `pseq` (kl_Result `pseq` kl_do appl_315 kl_Result)))) let !appl_316 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_317 <- kl_shen_incinfs !appl_318 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_319 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_320 <- appl_319 `pseq` klCons appl_319 (Types.Atom Types.Nil) !appl_321 <- appl_320 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_320 !appl_322 <- appl_318 `pseq` (appl_321 `pseq` klCons appl_318 appl_321) !appl_323 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_324 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_325 <- appl_324 `pseq` klCons appl_324 (Types.Atom Types.Nil) !appl_326 <- appl_325 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_325 !appl_327 <- appl_326 `pseq` klCons appl_326 (Types.Atom Types.Nil) !appl_328 <- appl_327 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_327 !appl_329 <- appl_323 `pseq` (appl_328 `pseq` klCons appl_323 appl_328) !appl_330 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_331 <- appl_329 `pseq` (appl_330 `pseq` klCons appl_329 appl_330) !appl_332 <- appl_322 `pseq` (appl_331 `pseq` klCons appl_322 appl_331) !appl_333 <- kl_V3436 `pseq` (appl_332 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_332 kl_V3437 kl_V3438))) appl_317 `pseq` (appl_333 `pseq` kl_do appl_317 appl_333)))) !appl_334 <- kl_V3220t `pseq` applyWrapper appl_316 [kl_V3220t] !appl_335 <- appl_334 `pseq` applyWrapper appl_314 [appl_334] appl_313 `pseq` (appl_335 `pseq` kl_do appl_313 appl_335) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3236 of kl_V3236@(Atom (Nil)) -> pat_cond_292 _ -> pat_cond_311))) !appl_336 <- kl_V3229t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3229t kl_V3437) !appl_337 <- appl_336 `pseq` applyWrapper appl_291 [appl_336] !appl_338 <- appl_337 `pseq` applyWrapper appl_289 [appl_337] appl_288 `pseq` (appl_338 `pseq` kl_do appl_288 appl_338)))) !appl_339 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_339 `pseq` applyWrapper appl_286 [appl_339] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3232 of !(kl_V3232@(Cons (!kl_V3232h) (!kl_V3232t))) -> pat_cond_180 kl_V3232 kl_V3232h kl_V3232t _ -> pat_cond_284))) !appl_340 <- kl_V3230t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3230t kl_V3437) appl_340 `pseq` applyWrapper appl_179 [appl_340] pat_cond_341 = do do !kl_if_342 <- kl_V3231 `pseq` kl_shen_pvarP kl_V3231 case kl_if_342 of Atom (B (True)) -> do !appl_343 <- kl_V3231 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3231 (ApplC (wrapNamed "vector" kl_vector)) kl_V3437) let !appl_344 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_345 <- kl_V3231 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3231 kl_V3437) appl_345 `pseq` (kl_Result `pseq` kl_do appl_345 kl_Result)))) let !appl_346 = ApplC (Func "lambda" (Context (\(!kl_V3237) -> do let pat_cond_347 kl_V3237 kl_V3237h kl_V3237t = do let !appl_348 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_349 = ApplC (Func "lambda" (Context (\(!kl_V3238) -> do let pat_cond_350 = do let !appl_351 = ApplC (Func "lambda" (Context (\(!kl_V3239) -> do let pat_cond_352 = do let !appl_353 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_354 <- kl_shen_incinfs !appl_355 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_356 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_357 <- appl_356 `pseq` klCons appl_356 (Types.Atom Types.Nil) !appl_358 <- appl_357 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_357 !appl_359 <- appl_355 `pseq` (appl_358 `pseq` klCons appl_355 appl_358) !appl_360 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_361 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_362 <- appl_361 `pseq` klCons appl_361 (Types.Atom Types.Nil) !appl_363 <- appl_362 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_362 !appl_364 <- appl_363 `pseq` klCons appl_363 (Types.Atom Types.Nil) !appl_365 <- appl_364 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_364 !appl_366 <- appl_360 `pseq` (appl_365 `pseq` klCons appl_360 appl_365) !appl_367 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_368 <- appl_366 `pseq` (appl_367 `pseq` klCons appl_366 appl_367) !appl_369 <- appl_359 `pseq` (appl_368 `pseq` klCons appl_359 appl_368) !appl_370 <- kl_V3436 `pseq` (appl_369 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_369 kl_V3437 kl_V3438))) appl_354 `pseq` (appl_370 `pseq` kl_do appl_354 appl_370)))) kl_V3220t `pseq` applyWrapper appl_353 [kl_V3220t] pat_cond_371 = do do !kl_if_372 <- kl_V3239 `pseq` kl_shen_pvarP kl_V3239 case kl_if_372 of Atom (B (True)) -> do !appl_373 <- kl_V3239 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3239 (Types.Atom Types.Nil) kl_V3437) let !appl_374 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_375 <- kl_V3239 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3239 kl_V3437) appl_375 `pseq` (kl_Result `pseq` kl_do appl_375 kl_Result)))) let !appl_376 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_377 <- kl_shen_incinfs !appl_378 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_379 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_380 <- appl_379 `pseq` klCons appl_379 (Types.Atom Types.Nil) !appl_381 <- appl_380 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_380 !appl_382 <- appl_378 `pseq` (appl_381 `pseq` klCons appl_378 appl_381) !appl_383 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_384 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_385 <- appl_384 `pseq` klCons appl_384 (Types.Atom Types.Nil) !appl_386 <- appl_385 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_385 !appl_387 <- appl_386 `pseq` klCons appl_386 (Types.Atom Types.Nil) !appl_388 <- appl_387 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_387 !appl_389 <- appl_383 `pseq` (appl_388 `pseq` klCons appl_383 appl_388) !appl_390 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_391 <- appl_389 `pseq` (appl_390 `pseq` klCons appl_389 appl_390) !appl_392 <- appl_382 `pseq` (appl_391 `pseq` klCons appl_382 appl_391) !appl_393 <- kl_V3436 `pseq` (appl_392 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_392 kl_V3437 kl_V3438))) appl_377 `pseq` (appl_393 `pseq` kl_do appl_377 appl_393)))) !appl_394 <- kl_V3220t `pseq` applyWrapper appl_376 [kl_V3220t] !appl_395 <- appl_394 `pseq` applyWrapper appl_374 [appl_394] appl_373 `pseq` (appl_395 `pseq` kl_do appl_373 appl_395) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3239 of kl_V3239@(Atom (Nil)) -> pat_cond_352 _ -> pat_cond_371))) !appl_396 <- kl_V3229t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3229t kl_V3437) appl_396 `pseq` applyWrapper appl_351 [appl_396] pat_cond_397 = do do !kl_if_398 <- kl_V3238 `pseq` kl_shen_pvarP kl_V3238 case kl_if_398 of Atom (B (True)) -> do !appl_399 <- kl_V3238 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3238 (Types.Atom Types.Nil) kl_V3437) let !appl_400 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_401 <- kl_V3238 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3238 kl_V3437) appl_401 `pseq` (kl_Result `pseq` kl_do appl_401 kl_Result)))) let !appl_402 = ApplC (Func "lambda" (Context (\(!kl_V3240) -> do let pat_cond_403 = do let !appl_404 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_405 <- kl_shen_incinfs !appl_406 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_407 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_408 <- appl_407 `pseq` klCons appl_407 (Types.Atom Types.Nil) !appl_409 <- appl_408 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_408 !appl_410 <- appl_406 `pseq` (appl_409 `pseq` klCons appl_406 appl_409) !appl_411 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_412 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_413 <- appl_412 `pseq` klCons appl_412 (Types.Atom Types.Nil) !appl_414 <- appl_413 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_413 !appl_415 <- appl_414 `pseq` klCons appl_414 (Types.Atom Types.Nil) !appl_416 <- appl_415 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_415 !appl_417 <- appl_411 `pseq` (appl_416 `pseq` klCons appl_411 appl_416) !appl_418 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_419 <- appl_417 `pseq` (appl_418 `pseq` klCons appl_417 appl_418) !appl_420 <- appl_410 `pseq` (appl_419 `pseq` klCons appl_410 appl_419) !appl_421 <- kl_V3436 `pseq` (appl_420 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_420 kl_V3437 kl_V3438))) appl_405 `pseq` (appl_421 `pseq` kl_do appl_405 appl_421)))) kl_V3220t `pseq` applyWrapper appl_404 [kl_V3220t] pat_cond_422 = do do !kl_if_423 <- kl_V3240 `pseq` kl_shen_pvarP kl_V3240 case kl_if_423 of Atom (B (True)) -> do !appl_424 <- kl_V3240 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3240 (Types.Atom Types.Nil) kl_V3437) let !appl_425 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_426 <- kl_V3240 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3240 kl_V3437) appl_426 `pseq` (kl_Result `pseq` kl_do appl_426 kl_Result)))) let !appl_427 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_428 <- kl_shen_incinfs !appl_429 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_430 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_431 <- appl_430 `pseq` klCons appl_430 (Types.Atom Types.Nil) !appl_432 <- appl_431 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_431 !appl_433 <- appl_429 `pseq` (appl_432 `pseq` klCons appl_429 appl_432) !appl_434 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_435 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_436 <- appl_435 `pseq` klCons appl_435 (Types.Atom Types.Nil) !appl_437 <- appl_436 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_436 !appl_438 <- appl_437 `pseq` klCons appl_437 (Types.Atom Types.Nil) !appl_439 <- appl_438 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_438 !appl_440 <- appl_434 `pseq` (appl_439 `pseq` klCons appl_434 appl_439) !appl_441 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_442 <- appl_440 `pseq` (appl_441 `pseq` klCons appl_440 appl_441) !appl_443 <- appl_433 `pseq` (appl_442 `pseq` klCons appl_433 appl_442) !appl_444 <- kl_V3436 `pseq` (appl_443 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_443 kl_V3437 kl_V3438))) appl_428 `pseq` (appl_444 `pseq` kl_do appl_428 appl_444)))) !appl_445 <- kl_V3220t `pseq` applyWrapper appl_427 [kl_V3220t] !appl_446 <- appl_445 `pseq` applyWrapper appl_425 [appl_445] appl_424 `pseq` (appl_446 `pseq` kl_do appl_424 appl_446) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3240 of kl_V3240@(Atom (Nil)) -> pat_cond_403 _ -> pat_cond_422))) !appl_447 <- kl_V3229t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3229t kl_V3437) !appl_448 <- appl_447 `pseq` applyWrapper appl_402 [appl_447] !appl_449 <- appl_448 `pseq` applyWrapper appl_400 [appl_448] appl_399 `pseq` (appl_449 `pseq` kl_do appl_399 appl_449) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3238 of kl_V3238@(Atom (Nil)) -> pat_cond_350 _ -> pat_cond_397))) !appl_450 <- kl_V3237t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3237t kl_V3437) appl_450 `pseq` applyWrapper appl_349 [appl_450]))) kl_V3237h `pseq` applyWrapper appl_348 [kl_V3237h] pat_cond_451 = do do !kl_if_452 <- kl_V3237 `pseq` kl_shen_pvarP kl_V3237 case kl_if_452 of Atom (B (True)) -> do let !appl_453 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_454 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_455 <- kl_V3237 `pseq` (appl_454 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3237 appl_454 kl_V3437)) let !appl_456 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_457 <- kl_V3237 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3237 kl_V3437) appl_457 `pseq` (kl_Result `pseq` kl_do appl_457 kl_Result)))) let !appl_458 = ApplC (Func "lambda" (Context (\(!kl_V3241) -> do let pat_cond_459 = do let !appl_460 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_461 <- kl_shen_incinfs !appl_462 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_463 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_464 <- appl_463 `pseq` klCons appl_463 (Types.Atom Types.Nil) !appl_465 <- appl_464 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_464 !appl_466 <- appl_462 `pseq` (appl_465 `pseq` klCons appl_462 appl_465) !appl_467 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_468 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_469 <- appl_468 `pseq` klCons appl_468 (Types.Atom Types.Nil) !appl_470 <- appl_469 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_469 !appl_471 <- appl_470 `pseq` klCons appl_470 (Types.Atom Types.Nil) !appl_472 <- appl_471 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_471 !appl_473 <- appl_467 `pseq` (appl_472 `pseq` klCons appl_467 appl_472) !appl_474 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_475 <- appl_473 `pseq` (appl_474 `pseq` klCons appl_473 appl_474) !appl_476 <- appl_466 `pseq` (appl_475 `pseq` klCons appl_466 appl_475) !appl_477 <- kl_V3436 `pseq` (appl_476 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_476 kl_V3437 kl_V3438))) appl_461 `pseq` (appl_477 `pseq` kl_do appl_461 appl_477)))) kl_V3220t `pseq` applyWrapper appl_460 [kl_V3220t] pat_cond_478 = do do !kl_if_479 <- kl_V3241 `pseq` kl_shen_pvarP kl_V3241 case kl_if_479 of Atom (B (True)) -> do !appl_480 <- kl_V3241 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3241 (Types.Atom Types.Nil) kl_V3437) let !appl_481 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_482 <- kl_V3241 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3241 kl_V3437) appl_482 `pseq` (kl_Result `pseq` kl_do appl_482 kl_Result)))) let !appl_483 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_484 <- kl_shen_incinfs !appl_485 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_486 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_487 <- appl_486 `pseq` klCons appl_486 (Types.Atom Types.Nil) !appl_488 <- appl_487 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_487 !appl_489 <- appl_485 `pseq` (appl_488 `pseq` klCons appl_485 appl_488) !appl_490 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_491 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_492 <- appl_491 `pseq` klCons appl_491 (Types.Atom Types.Nil) !appl_493 <- appl_492 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_492 !appl_494 <- appl_493 `pseq` klCons appl_493 (Types.Atom Types.Nil) !appl_495 <- appl_494 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_494 !appl_496 <- appl_490 `pseq` (appl_495 `pseq` klCons appl_490 appl_495) !appl_497 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_498 <- appl_496 `pseq` (appl_497 `pseq` klCons appl_496 appl_497) !appl_499 <- appl_489 `pseq` (appl_498 `pseq` klCons appl_489 appl_498) !appl_500 <- kl_V3436 `pseq` (appl_499 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_499 kl_V3437 kl_V3438))) appl_484 `pseq` (appl_500 `pseq` kl_do appl_484 appl_500)))) !appl_501 <- kl_V3220t `pseq` applyWrapper appl_483 [kl_V3220t] !appl_502 <- appl_501 `pseq` applyWrapper appl_481 [appl_501] appl_480 `pseq` (appl_502 `pseq` kl_do appl_480 appl_502) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3241 of kl_V3241@(Atom (Nil)) -> pat_cond_459 _ -> pat_cond_478))) !appl_503 <- kl_V3229t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3229t kl_V3437) !appl_504 <- appl_503 `pseq` applyWrapper appl_458 [appl_503] !appl_505 <- appl_504 `pseq` applyWrapper appl_456 [appl_504] appl_455 `pseq` (appl_505 `pseq` kl_do appl_455 appl_505)))) !appl_506 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_506 `pseq` applyWrapper appl_453 [appl_506] 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_347 kl_V3237 kl_V3237h kl_V3237t _ -> pat_cond_451))) !appl_507 <- kl_V3230t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3230t kl_V3437) !appl_508 <- appl_507 `pseq` applyWrapper appl_346 [appl_507] !appl_509 <- appl_508 `pseq` applyWrapper appl_344 [appl_508] appl_343 `pseq` (appl_509 `pseq` kl_do appl_343 appl_509) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3231 of kl_V3231@(Atom (UnboundSym "vector")) -> pat_cond_178 kl_V3231@(ApplC (PL "vector" _)) -> pat_cond_178 kl_V3231@(ApplC (Func "vector" _)) -> pat_cond_178 _ -> pat_cond_341))) !appl_510 <- kl_V3230h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3230h kl_V3437) appl_510 `pseq` applyWrapper appl_177 [appl_510] pat_cond_511 = do do !kl_if_512 <- kl_V3230 `pseq` kl_shen_pvarP kl_V3230 case kl_if_512 of Atom (B (True)) -> do let !appl_513 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_514 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_515 <- appl_514 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_514 !appl_516 <- kl_V3230 `pseq` (appl_515 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3230 appl_515 kl_V3437)) let !appl_517 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_518 <- kl_V3230 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3230 kl_V3437) appl_518 `pseq` (kl_Result `pseq` kl_do appl_518 kl_Result)))) let !appl_519 = ApplC (Func "lambda" (Context (\(!kl_V3242) -> do let pat_cond_520 = do let !appl_521 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_522 <- kl_shen_incinfs !appl_523 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_524 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_525 <- appl_524 `pseq` klCons appl_524 (Types.Atom Types.Nil) !appl_526 <- appl_525 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_525 !appl_527 <- appl_523 `pseq` (appl_526 `pseq` klCons appl_523 appl_526) !appl_528 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_529 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_530 <- appl_529 `pseq` klCons appl_529 (Types.Atom Types.Nil) !appl_531 <- appl_530 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_530 !appl_532 <- appl_531 `pseq` klCons appl_531 (Types.Atom Types.Nil) !appl_533 <- appl_532 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_532 !appl_534 <- appl_528 `pseq` (appl_533 `pseq` klCons appl_528 appl_533) !appl_535 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_536 <- appl_534 `pseq` (appl_535 `pseq` klCons appl_534 appl_535) !appl_537 <- appl_527 `pseq` (appl_536 `pseq` klCons appl_527 appl_536) !appl_538 <- kl_V3436 `pseq` (appl_537 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_537 kl_V3437 kl_V3438))) appl_522 `pseq` (appl_538 `pseq` kl_do appl_522 appl_538)))) kl_V3220t `pseq` applyWrapper appl_521 [kl_V3220t] pat_cond_539 = do do !kl_if_540 <- kl_V3242 `pseq` kl_shen_pvarP kl_V3242 case kl_if_540 of Atom (B (True)) -> do !appl_541 <- kl_V3242 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3242 (Types.Atom Types.Nil) kl_V3437) let !appl_542 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_543 <- kl_V3242 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3242 kl_V3437) appl_543 `pseq` (kl_Result `pseq` kl_do appl_543 kl_Result)))) let !appl_544 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_545 <- kl_shen_incinfs !appl_546 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_547 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_548 <- appl_547 `pseq` klCons appl_547 (Types.Atom Types.Nil) !appl_549 <- appl_548 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_548 !appl_550 <- appl_546 `pseq` (appl_549 `pseq` klCons appl_546 appl_549) !appl_551 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_552 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_553 <- appl_552 `pseq` klCons appl_552 (Types.Atom Types.Nil) !appl_554 <- appl_553 `pseq` klCons (ApplC (wrapNamed "vector" kl_vector)) appl_553 !appl_555 <- appl_554 `pseq` klCons appl_554 (Types.Atom Types.Nil) !appl_556 <- appl_555 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_555 !appl_557 <- appl_551 `pseq` (appl_556 `pseq` klCons appl_551 appl_556) !appl_558 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_559 <- appl_557 `pseq` (appl_558 `pseq` klCons appl_557 appl_558) !appl_560 <- appl_550 `pseq` (appl_559 `pseq` klCons appl_550 appl_559) !appl_561 <- kl_V3436 `pseq` (appl_560 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_560 kl_V3437 kl_V3438))) appl_545 `pseq` (appl_561 `pseq` kl_do appl_545 appl_561)))) !appl_562 <- kl_V3220t `pseq` applyWrapper appl_544 [kl_V3220t] !appl_563 <- appl_562 `pseq` applyWrapper appl_542 [appl_562] appl_541 `pseq` (appl_563 `pseq` kl_do appl_541 appl_563) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3242 of kl_V3242@(Atom (Nil)) -> pat_cond_520 _ -> pat_cond_539))) !appl_564 <- kl_V3229t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3229t kl_V3437) !appl_565 <- appl_564 `pseq` applyWrapper appl_519 [appl_564] !appl_566 <- appl_565 `pseq` applyWrapper appl_517 [appl_565] appl_516 `pseq` (appl_566 `pseq` kl_do appl_516 appl_566)))) !appl_567 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_567 `pseq` applyWrapper appl_513 [appl_567] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3230 of !(kl_V3230@(Cons (!kl_V3230h) (!kl_V3230t))) -> pat_cond_176 kl_V3230 kl_V3230h kl_V3230t _ -> pat_cond_511))) !appl_568 <- kl_V3229h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3229h kl_V3437) appl_568 `pseq` applyWrapper appl_175 [appl_568] pat_cond_569 = do do return (Atom (B False)) in case kl_V3229 of !(kl_V3229@(Cons (!kl_V3229h) (!kl_V3229t))) -> pat_cond_174 kl_V3229 kl_V3229h kl_V3229t _ -> pat_cond_569))) !appl_570 <- kl_V3227t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3227t kl_V3437) appl_570 `pseq` applyWrapper appl_173 [appl_570] pat_cond_571 = do do return (Atom (B False)) in case kl_V3228 of kl_V3228@(Atom (UnboundSym ":")) -> pat_cond_172 kl_V3228@(ApplC (PL ":" _)) -> pat_cond_172 kl_V3228@(ApplC (Func ":" _)) -> pat_cond_172 _ -> pat_cond_571))) !appl_572 <- kl_V3227h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3227h kl_V3437) appl_572 `pseq` applyWrapper appl_171 [appl_572] pat_cond_573 = do do return (Atom (B False)) in case kl_V3227 of !(kl_V3227@(Cons (!kl_V3227h) (!kl_V3227t))) -> pat_cond_170 kl_V3227 kl_V3227h kl_V3227t _ -> pat_cond_573))) !appl_574 <- kl_V3221t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3221t kl_V3437) appl_574 `pseq` applyWrapper appl_169 [appl_574] pat_cond_575 = do do return (Atom (B False)) in case kl_V3226 of kl_V3226@(Atom (Nil)) -> pat_cond_168 _ -> pat_cond_575))) !appl_576 <- kl_V3225t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3225t kl_V3437) appl_576 `pseq` applyWrapper appl_167 [appl_576]))) kl_V3225h `pseq` applyWrapper appl_166 [kl_V3225h] pat_cond_577 = do do return (Atom (B False)) in case kl_V3225 of !(kl_V3225@(Cons (!kl_V3225h) (!kl_V3225t))) -> pat_cond_165 kl_V3225 kl_V3225h kl_V3225t _ -> pat_cond_577))) !appl_578 <- kl_V3224t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3224t kl_V3437) appl_578 `pseq` applyWrapper appl_164 [appl_578]))) kl_V3224h `pseq` applyWrapper appl_163 [kl_V3224h] pat_cond_579 = do do return (Atom (B False)) in case kl_V3224 of !(kl_V3224@(Cons (!kl_V3224h) (!kl_V3224t))) -> pat_cond_162 kl_V3224 kl_V3224h kl_V3224t _ -> pat_cond_579))) !appl_580 <- kl_V3222t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3222t kl_V3437) appl_580 `pseq` applyWrapper appl_161 [appl_580] pat_cond_581 = do do return (Atom (B False)) in case kl_V3223 of kl_V3223@(Atom (UnboundSym "@v")) -> pat_cond_160 kl_V3223@(ApplC (PL "@v" _)) -> pat_cond_160 kl_V3223@(ApplC (Func "@v" _)) -> pat_cond_160 _ -> pat_cond_581))) !appl_582 <- kl_V3222h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3222h kl_V3437) appl_582 `pseq` applyWrapper appl_159 [appl_582] pat_cond_583 = do do return (Atom (B False)) in case kl_V3222 of !(kl_V3222@(Cons (!kl_V3222h) (!kl_V3222t))) -> pat_cond_158 kl_V3222 kl_V3222h kl_V3222t _ -> pat_cond_583))) !appl_584 <- kl_V3221h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3221h kl_V3437) appl_584 `pseq` applyWrapper appl_157 [appl_584] pat_cond_585 = do do return (Atom (B False)) in case kl_V3221 of !(kl_V3221@(Cons (!kl_V3221h) (!kl_V3221t))) -> pat_cond_156 kl_V3221 kl_V3221h kl_V3221t _ -> pat_cond_585))) !appl_586 <- kl_V3220h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3220h kl_V3437) appl_586 `pseq` applyWrapper appl_155 [appl_586] pat_cond_587 = do do return (Atom (B False)) in case kl_V3220 of !(kl_V3220@(Cons (!kl_V3220h) (!kl_V3220t))) -> pat_cond_154 kl_V3220 kl_V3220h kl_V3220t _ -> pat_cond_587))) !appl_588 <- kl_V3435 `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3435 kl_V3437) !appl_589 <- appl_588 `pseq` applyWrapper appl_153 [appl_588] appl_589 `pseq` applyWrapper appl_4 [appl_589] pat_cond_590 = 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_590))) let !appl_591 = ApplC (Func "lambda" (Context (\(!kl_V3195) -> do let pat_cond_592 kl_V3195 kl_V3195h kl_V3195t = do let !appl_593 = ApplC (Func "lambda" (Context (\(!kl_V3196) -> do let pat_cond_594 kl_V3196 kl_V3196h kl_V3196t = do let !appl_595 = ApplC (Func "lambda" (Context (\(!kl_V3197) -> do let pat_cond_596 kl_V3197 kl_V3197h kl_V3197t = do let !appl_597 = ApplC (Func "lambda" (Context (\(!kl_V3198) -> do let pat_cond_598 = do let !appl_599 = ApplC (Func "lambda" (Context (\(!kl_V3199) -> do let pat_cond_600 kl_V3199 kl_V3199h kl_V3199t = do let !appl_601 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_602 = ApplC (Func "lambda" (Context (\(!kl_V3200) -> do let pat_cond_603 kl_V3200 kl_V3200h kl_V3200t = do let !appl_604 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_605 = ApplC (Func "lambda" (Context (\(!kl_V3201) -> do let pat_cond_606 = do let !appl_607 = ApplC (Func "lambda" (Context (\(!kl_V3202) -> do let pat_cond_608 kl_V3202 kl_V3202h kl_V3202t = do let !appl_609 = ApplC (Func "lambda" (Context (\(!kl_V3203) -> do let pat_cond_610 = do let !appl_611 = ApplC (Func "lambda" (Context (\(!kl_V3204) -> do let pat_cond_612 kl_V3204 kl_V3204h kl_V3204t = do let !appl_613 = ApplC (Func "lambda" (Context (\(!kl_V3205) -> do let pat_cond_614 kl_V3205 kl_V3205h kl_V3205t = do let !appl_615 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_616 = ApplC (Func "lambda" (Context (\(!kl_V3206) -> do let pat_cond_617 kl_V3206 kl_V3206h kl_V3206t = do let !appl_618 = ApplC (Func "lambda" (Context (\(!kl_V3207) -> do let pat_cond_619 = do let !appl_620 = ApplC (Func "lambda" (Context (\(!kl_V3208) -> do let pat_cond_621 kl_V3208 kl_V3208h kl_V3208t = do let !appl_622 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_623 = ApplC (Func "lambda" (Context (\(!kl_V3209) -> do let pat_cond_624 = do let !appl_625 = ApplC (Func "lambda" (Context (\(!kl_V3210) -> do let pat_cond_626 = do let !appl_627 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_628 <- kl_shen_incinfs !appl_629 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_630 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_631 <- appl_630 `pseq` klCons appl_630 (Types.Atom Types.Nil) !appl_632 <- appl_631 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_631 !appl_633 <- appl_629 `pseq` (appl_632 `pseq` klCons appl_629 appl_632) !appl_634 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_635 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_636 <- appl_635 `pseq` klCons appl_635 (Types.Atom Types.Nil) !appl_637 <- appl_636 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_636 !appl_638 <- appl_634 `pseq` (appl_637 `pseq` klCons appl_634 appl_637) !appl_639 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_640 <- appl_638 `pseq` (appl_639 `pseq` klCons appl_638 appl_639) !appl_641 <- appl_633 `pseq` (appl_640 `pseq` klCons appl_633 appl_640) !appl_642 <- kl_V3436 `pseq` (appl_641 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_641 kl_V3437 kl_V3438))) appl_628 `pseq` (appl_642 `pseq` kl_do appl_628 appl_642)))) kl_V3195t `pseq` applyWrapper appl_627 [kl_V3195t] pat_cond_643 = do do !kl_if_644 <- kl_V3210 `pseq` kl_shen_pvarP kl_V3210 case kl_if_644 of Atom (B (True)) -> do !appl_645 <- kl_V3210 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3210 (Types.Atom Types.Nil) kl_V3437) let !appl_646 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_647 <- kl_V3210 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3210 kl_V3437) appl_647 `pseq` (kl_Result `pseq` kl_do appl_647 kl_Result)))) let !appl_648 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_649 <- kl_shen_incinfs !appl_650 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_651 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_652 <- appl_651 `pseq` klCons appl_651 (Types.Atom Types.Nil) !appl_653 <- appl_652 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_652 !appl_654 <- appl_650 `pseq` (appl_653 `pseq` klCons appl_650 appl_653) !appl_655 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_656 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_657 <- appl_656 `pseq` klCons appl_656 (Types.Atom Types.Nil) !appl_658 <- appl_657 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_657 !appl_659 <- appl_655 `pseq` (appl_658 `pseq` klCons appl_655 appl_658) !appl_660 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_661 <- appl_659 `pseq` (appl_660 `pseq` klCons appl_659 appl_660) !appl_662 <- appl_654 `pseq` (appl_661 `pseq` klCons appl_654 appl_661) !appl_663 <- kl_V3436 `pseq` (appl_662 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_662 kl_V3437 kl_V3438))) appl_649 `pseq` (appl_663 `pseq` kl_do appl_649 appl_663)))) !appl_664 <- kl_V3195t `pseq` applyWrapper appl_648 [kl_V3195t] !appl_665 <- appl_664 `pseq` applyWrapper appl_646 [appl_664] appl_645 `pseq` (appl_665 `pseq` kl_do appl_645 appl_665) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3210 of kl_V3210@(Atom (Nil)) -> pat_cond_626 _ -> pat_cond_643))) !appl_666 <- kl_V3204t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3204t kl_V3437) appl_666 `pseq` applyWrapper appl_625 [appl_666] pat_cond_667 = do do !kl_if_668 <- kl_V3209 `pseq` kl_shen_pvarP kl_V3209 case kl_if_668 of Atom (B (True)) -> do !appl_669 <- kl_V3209 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3209 (Types.Atom Types.Nil) kl_V3437) let !appl_670 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_671 <- kl_V3209 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3209 kl_V3437) appl_671 `pseq` (kl_Result `pseq` kl_do appl_671 kl_Result)))) let !appl_672 = ApplC (Func "lambda" (Context (\(!kl_V3211) -> do let pat_cond_673 = do let !appl_674 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_675 <- kl_shen_incinfs !appl_676 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_677 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_678 <- appl_677 `pseq` klCons appl_677 (Types.Atom Types.Nil) !appl_679 <- appl_678 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_678 !appl_680 <- appl_676 `pseq` (appl_679 `pseq` klCons appl_676 appl_679) !appl_681 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_682 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_683 <- appl_682 `pseq` klCons appl_682 (Types.Atom Types.Nil) !appl_684 <- appl_683 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_683 !appl_685 <- appl_681 `pseq` (appl_684 `pseq` klCons appl_681 appl_684) !appl_686 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_687 <- appl_685 `pseq` (appl_686 `pseq` klCons appl_685 appl_686) !appl_688 <- appl_680 `pseq` (appl_687 `pseq` klCons appl_680 appl_687) !appl_689 <- kl_V3436 `pseq` (appl_688 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_688 kl_V3437 kl_V3438))) appl_675 `pseq` (appl_689 `pseq` kl_do appl_675 appl_689)))) kl_V3195t `pseq` applyWrapper appl_674 [kl_V3195t] pat_cond_690 = do do !kl_if_691 <- kl_V3211 `pseq` kl_shen_pvarP kl_V3211 case kl_if_691 of Atom (B (True)) -> do !appl_692 <- kl_V3211 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3211 (Types.Atom Types.Nil) kl_V3437) let !appl_693 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_694 <- kl_V3211 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3211 kl_V3437) appl_694 `pseq` (kl_Result `pseq` kl_do appl_694 kl_Result)))) let !appl_695 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_696 <- kl_shen_incinfs !appl_697 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_698 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_699 <- appl_698 `pseq` klCons appl_698 (Types.Atom Types.Nil) !appl_700 <- appl_699 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_699 !appl_701 <- appl_697 `pseq` (appl_700 `pseq` klCons appl_697 appl_700) !appl_702 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_703 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_704 <- appl_703 `pseq` klCons appl_703 (Types.Atom Types.Nil) !appl_705 <- appl_704 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_704 !appl_706 <- appl_702 `pseq` (appl_705 `pseq` klCons appl_702 appl_705) !appl_707 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_708 <- appl_706 `pseq` (appl_707 `pseq` klCons appl_706 appl_707) !appl_709 <- appl_701 `pseq` (appl_708 `pseq` klCons appl_701 appl_708) !appl_710 <- kl_V3436 `pseq` (appl_709 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_709 kl_V3437 kl_V3438))) appl_696 `pseq` (appl_710 `pseq` kl_do appl_696 appl_710)))) !appl_711 <- kl_V3195t `pseq` applyWrapper appl_695 [kl_V3195t] !appl_712 <- appl_711 `pseq` applyWrapper appl_693 [appl_711] appl_692 `pseq` (appl_712 `pseq` kl_do appl_692 appl_712) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3211 of kl_V3211@(Atom (Nil)) -> pat_cond_673 _ -> pat_cond_690))) !appl_713 <- kl_V3204t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3204t kl_V3437) !appl_714 <- appl_713 `pseq` applyWrapper appl_672 [appl_713] !appl_715 <- appl_714 `pseq` applyWrapper appl_670 [appl_714] appl_669 `pseq` (appl_715 `pseq` kl_do appl_669 appl_715) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3209 of kl_V3209@(Atom (Nil)) -> pat_cond_624 _ -> pat_cond_667))) !appl_716 <- kl_V3208t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3208t kl_V3437) appl_716 `pseq` applyWrapper appl_623 [appl_716]))) kl_V3208h `pseq` applyWrapper appl_622 [kl_V3208h] pat_cond_717 = do do !kl_if_718 <- kl_V3208 `pseq` kl_shen_pvarP kl_V3208 case kl_if_718 of Atom (B (True)) -> do let !appl_719 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_720 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_721 <- kl_V3208 `pseq` (appl_720 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3208 appl_720 kl_V3437)) let !appl_722 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_723 <- kl_V3208 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3208 kl_V3437) appl_723 `pseq` (kl_Result `pseq` kl_do appl_723 kl_Result)))) let !appl_724 = ApplC (Func "lambda" (Context (\(!kl_V3212) -> do let pat_cond_725 = do let !appl_726 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_727 <- kl_shen_incinfs !appl_728 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_729 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_730 <- appl_729 `pseq` klCons appl_729 (Types.Atom Types.Nil) !appl_731 <- appl_730 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_730 !appl_732 <- appl_728 `pseq` (appl_731 `pseq` klCons appl_728 appl_731) !appl_733 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_734 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_735 <- appl_734 `pseq` klCons appl_734 (Types.Atom Types.Nil) !appl_736 <- appl_735 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_735 !appl_737 <- appl_733 `pseq` (appl_736 `pseq` klCons appl_733 appl_736) !appl_738 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_739 <- appl_737 `pseq` (appl_738 `pseq` klCons appl_737 appl_738) !appl_740 <- appl_732 `pseq` (appl_739 `pseq` klCons appl_732 appl_739) !appl_741 <- kl_V3436 `pseq` (appl_740 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_740 kl_V3437 kl_V3438))) appl_727 `pseq` (appl_741 `pseq` kl_do appl_727 appl_741)))) kl_V3195t `pseq` applyWrapper appl_726 [kl_V3195t] pat_cond_742 = do do !kl_if_743 <- kl_V3212 `pseq` kl_shen_pvarP kl_V3212 case kl_if_743 of Atom (B (True)) -> do !appl_744 <- kl_V3212 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3212 (Types.Atom Types.Nil) kl_V3437) let !appl_745 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_746 <- kl_V3212 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3212 kl_V3437) appl_746 `pseq` (kl_Result `pseq` kl_do appl_746 kl_Result)))) let !appl_747 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_748 <- kl_shen_incinfs !appl_749 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_750 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_751 <- appl_750 `pseq` klCons appl_750 (Types.Atom Types.Nil) !appl_752 <- appl_751 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_751 !appl_753 <- appl_749 `pseq` (appl_752 `pseq` klCons appl_749 appl_752) !appl_754 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_755 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_756 <- appl_755 `pseq` klCons appl_755 (Types.Atom Types.Nil) !appl_757 <- appl_756 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_756 !appl_758 <- appl_754 `pseq` (appl_757 `pseq` klCons appl_754 appl_757) !appl_759 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_760 <- appl_758 `pseq` (appl_759 `pseq` klCons appl_758 appl_759) !appl_761 <- appl_753 `pseq` (appl_760 `pseq` klCons appl_753 appl_760) !appl_762 <- kl_V3436 `pseq` (appl_761 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_761 kl_V3437 kl_V3438))) appl_748 `pseq` (appl_762 `pseq` kl_do appl_748 appl_762)))) !appl_763 <- kl_V3195t `pseq` applyWrapper appl_747 [kl_V3195t] !appl_764 <- appl_763 `pseq` applyWrapper appl_745 [appl_763] appl_744 `pseq` (appl_764 `pseq` kl_do appl_744 appl_764) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3212 of kl_V3212@(Atom (Nil)) -> pat_cond_725 _ -> pat_cond_742))) !appl_765 <- kl_V3204t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3204t kl_V3437) !appl_766 <- appl_765 `pseq` applyWrapper appl_724 [appl_765] !appl_767 <- appl_766 `pseq` applyWrapper appl_722 [appl_766] appl_721 `pseq` (appl_767 `pseq` kl_do appl_721 appl_767)))) !appl_768 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_768 `pseq` applyWrapper appl_719 [appl_768] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3208 of !(kl_V3208@(Cons (!kl_V3208h) (!kl_V3208t))) -> pat_cond_621 kl_V3208 kl_V3208h kl_V3208t _ -> pat_cond_717))) !appl_769 <- kl_V3206t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3206t kl_V3437) appl_769 `pseq` applyWrapper appl_620 [appl_769] pat_cond_770 = do do !kl_if_771 <- kl_V3207 `pseq` kl_shen_pvarP kl_V3207 case kl_if_771 of Atom (B (True)) -> do !appl_772 <- kl_V3207 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3207 (ApplC (wrapNamed "*" multiply)) kl_V3437) let !appl_773 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_774 <- kl_V3207 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3207 kl_V3437) appl_774 `pseq` (kl_Result `pseq` kl_do appl_774 kl_Result)))) let !appl_775 = ApplC (Func "lambda" (Context (\(!kl_V3213) -> do let pat_cond_776 kl_V3213 kl_V3213h kl_V3213t = do let !appl_777 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_778 = ApplC (Func "lambda" (Context (\(!kl_V3214) -> do let pat_cond_779 = do let !appl_780 = ApplC (Func "lambda" (Context (\(!kl_V3215) -> do let pat_cond_781 = do let !appl_782 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_783 <- kl_shen_incinfs !appl_784 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_785 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_786 <- appl_785 `pseq` klCons appl_785 (Types.Atom Types.Nil) !appl_787 <- appl_786 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_786 !appl_788 <- appl_784 `pseq` (appl_787 `pseq` klCons appl_784 appl_787) !appl_789 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_790 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_791 <- appl_790 `pseq` klCons appl_790 (Types.Atom Types.Nil) !appl_792 <- appl_791 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_791 !appl_793 <- appl_789 `pseq` (appl_792 `pseq` klCons appl_789 appl_792) !appl_794 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_795 <- appl_793 `pseq` (appl_794 `pseq` klCons appl_793 appl_794) !appl_796 <- appl_788 `pseq` (appl_795 `pseq` klCons appl_788 appl_795) !appl_797 <- kl_V3436 `pseq` (appl_796 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_796 kl_V3437 kl_V3438))) appl_783 `pseq` (appl_797 `pseq` kl_do appl_783 appl_797)))) kl_V3195t `pseq` applyWrapper appl_782 [kl_V3195t] pat_cond_798 = do do !kl_if_799 <- kl_V3215 `pseq` kl_shen_pvarP kl_V3215 case kl_if_799 of Atom (B (True)) -> do !appl_800 <- kl_V3215 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3215 (Types.Atom Types.Nil) kl_V3437) let !appl_801 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_802 <- kl_V3215 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3215 kl_V3437) appl_802 `pseq` (kl_Result `pseq` kl_do appl_802 kl_Result)))) let !appl_803 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_804 <- kl_shen_incinfs !appl_805 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_806 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_807 <- appl_806 `pseq` klCons appl_806 (Types.Atom Types.Nil) !appl_808 <- appl_807 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_807 !appl_809 <- appl_805 `pseq` (appl_808 `pseq` klCons appl_805 appl_808) !appl_810 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_811 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_812 <- appl_811 `pseq` klCons appl_811 (Types.Atom Types.Nil) !appl_813 <- appl_812 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_812 !appl_814 <- appl_810 `pseq` (appl_813 `pseq` klCons appl_810 appl_813) !appl_815 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_816 <- appl_814 `pseq` (appl_815 `pseq` klCons appl_814 appl_815) !appl_817 <- appl_809 `pseq` (appl_816 `pseq` klCons appl_809 appl_816) !appl_818 <- kl_V3436 `pseq` (appl_817 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_817 kl_V3437 kl_V3438))) appl_804 `pseq` (appl_818 `pseq` kl_do appl_804 appl_818)))) !appl_819 <- kl_V3195t `pseq` applyWrapper appl_803 [kl_V3195t] !appl_820 <- appl_819 `pseq` applyWrapper appl_801 [appl_819] appl_800 `pseq` (appl_820 `pseq` kl_do appl_800 appl_820) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3215 of kl_V3215@(Atom (Nil)) -> pat_cond_781 _ -> pat_cond_798))) !appl_821 <- kl_V3204t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3204t kl_V3437) appl_821 `pseq` applyWrapper appl_780 [appl_821] pat_cond_822 = do do !kl_if_823 <- kl_V3214 `pseq` kl_shen_pvarP kl_V3214 case kl_if_823 of Atom (B (True)) -> do !appl_824 <- kl_V3214 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3214 (Types.Atom Types.Nil) kl_V3437) let !appl_825 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_826 <- kl_V3214 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3214 kl_V3437) appl_826 `pseq` (kl_Result `pseq` kl_do appl_826 kl_Result)))) let !appl_827 = ApplC (Func "lambda" (Context (\(!kl_V3216) -> do let pat_cond_828 = do let !appl_829 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_830 <- kl_shen_incinfs !appl_831 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_832 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_833 <- appl_832 `pseq` klCons appl_832 (Types.Atom Types.Nil) !appl_834 <- appl_833 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_833 !appl_835 <- appl_831 `pseq` (appl_834 `pseq` klCons appl_831 appl_834) !appl_836 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_837 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_838 <- appl_837 `pseq` klCons appl_837 (Types.Atom Types.Nil) !appl_839 <- appl_838 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_838 !appl_840 <- appl_836 `pseq` (appl_839 `pseq` klCons appl_836 appl_839) !appl_841 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_842 <- appl_840 `pseq` (appl_841 `pseq` klCons appl_840 appl_841) !appl_843 <- appl_835 `pseq` (appl_842 `pseq` klCons appl_835 appl_842) !appl_844 <- kl_V3436 `pseq` (appl_843 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_843 kl_V3437 kl_V3438))) appl_830 `pseq` (appl_844 `pseq` kl_do appl_830 appl_844)))) kl_V3195t `pseq` applyWrapper appl_829 [kl_V3195t] pat_cond_845 = do do !kl_if_846 <- kl_V3216 `pseq` kl_shen_pvarP kl_V3216 case kl_if_846 of Atom (B (True)) -> do !appl_847 <- kl_V3216 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3216 (Types.Atom Types.Nil) kl_V3437) let !appl_848 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_849 <- kl_V3216 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3216 kl_V3437) appl_849 `pseq` (kl_Result `pseq` kl_do appl_849 kl_Result)))) let !appl_850 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_851 <- kl_shen_incinfs !appl_852 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_853 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_854 <- appl_853 `pseq` klCons appl_853 (Types.Atom Types.Nil) !appl_855 <- appl_854 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_854 !appl_856 <- appl_852 `pseq` (appl_855 `pseq` klCons appl_852 appl_855) !appl_857 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_858 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_859 <- appl_858 `pseq` klCons appl_858 (Types.Atom Types.Nil) !appl_860 <- appl_859 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_859 !appl_861 <- appl_857 `pseq` (appl_860 `pseq` klCons appl_857 appl_860) !appl_862 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_863 <- appl_861 `pseq` (appl_862 `pseq` klCons appl_861 appl_862) !appl_864 <- appl_856 `pseq` (appl_863 `pseq` klCons appl_856 appl_863) !appl_865 <- kl_V3436 `pseq` (appl_864 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_864 kl_V3437 kl_V3438))) appl_851 `pseq` (appl_865 `pseq` kl_do appl_851 appl_865)))) !appl_866 <- kl_V3195t `pseq` applyWrapper appl_850 [kl_V3195t] !appl_867 <- appl_866 `pseq` applyWrapper appl_848 [appl_866] appl_847 `pseq` (appl_867 `pseq` kl_do appl_847 appl_867) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3216 of kl_V3216@(Atom (Nil)) -> pat_cond_828 _ -> pat_cond_845))) !appl_868 <- kl_V3204t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3204t kl_V3437) !appl_869 <- appl_868 `pseq` applyWrapper appl_827 [appl_868] !appl_870 <- appl_869 `pseq` applyWrapper appl_825 [appl_869] appl_824 `pseq` (appl_870 `pseq` kl_do appl_824 appl_870) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3214 of kl_V3214@(Atom (Nil)) -> pat_cond_779 _ -> pat_cond_822))) !appl_871 <- kl_V3213t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3213t kl_V3437) appl_871 `pseq` applyWrapper appl_778 [appl_871]))) kl_V3213h `pseq` applyWrapper appl_777 [kl_V3213h] pat_cond_872 = do do !kl_if_873 <- kl_V3213 `pseq` kl_shen_pvarP kl_V3213 case kl_if_873 of Atom (B (True)) -> do let !appl_874 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_875 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_876 <- kl_V3213 `pseq` (appl_875 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3213 appl_875 kl_V3437)) let !appl_877 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_878 <- kl_V3213 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3213 kl_V3437) appl_878 `pseq` (kl_Result `pseq` kl_do appl_878 kl_Result)))) let !appl_879 = ApplC (Func "lambda" (Context (\(!kl_V3217) -> do let pat_cond_880 = do let !appl_881 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_882 <- kl_shen_incinfs !appl_883 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_884 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_885 <- appl_884 `pseq` klCons appl_884 (Types.Atom Types.Nil) !appl_886 <- appl_885 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_885 !appl_887 <- appl_883 `pseq` (appl_886 `pseq` klCons appl_883 appl_886) !appl_888 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_889 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_890 <- appl_889 `pseq` klCons appl_889 (Types.Atom Types.Nil) !appl_891 <- appl_890 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_890 !appl_892 <- appl_888 `pseq` (appl_891 `pseq` klCons appl_888 appl_891) !appl_893 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_894 <- appl_892 `pseq` (appl_893 `pseq` klCons appl_892 appl_893) !appl_895 <- appl_887 `pseq` (appl_894 `pseq` klCons appl_887 appl_894) !appl_896 <- kl_V3436 `pseq` (appl_895 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_895 kl_V3437 kl_V3438))) appl_882 `pseq` (appl_896 `pseq` kl_do appl_882 appl_896)))) kl_V3195t `pseq` applyWrapper appl_881 [kl_V3195t] pat_cond_897 = do do !kl_if_898 <- kl_V3217 `pseq` kl_shen_pvarP kl_V3217 case kl_if_898 of Atom (B (True)) -> do !appl_899 <- kl_V3217 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3217 (Types.Atom Types.Nil) kl_V3437) let !appl_900 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_901 <- kl_V3217 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3217 kl_V3437) appl_901 `pseq` (kl_Result `pseq` kl_do appl_901 kl_Result)))) let !appl_902 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_903 <- kl_shen_incinfs !appl_904 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_905 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_906 <- appl_905 `pseq` klCons appl_905 (Types.Atom Types.Nil) !appl_907 <- appl_906 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_906 !appl_908 <- appl_904 `pseq` (appl_907 `pseq` klCons appl_904 appl_907) !appl_909 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_910 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_911 <- appl_910 `pseq` klCons appl_910 (Types.Atom Types.Nil) !appl_912 <- appl_911 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_911 !appl_913 <- appl_909 `pseq` (appl_912 `pseq` klCons appl_909 appl_912) !appl_914 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_915 <- appl_913 `pseq` (appl_914 `pseq` klCons appl_913 appl_914) !appl_916 <- appl_908 `pseq` (appl_915 `pseq` klCons appl_908 appl_915) !appl_917 <- kl_V3436 `pseq` (appl_916 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_916 kl_V3437 kl_V3438))) appl_903 `pseq` (appl_917 `pseq` kl_do appl_903 appl_917)))) !appl_918 <- kl_V3195t `pseq` applyWrapper appl_902 [kl_V3195t] !appl_919 <- appl_918 `pseq` applyWrapper appl_900 [appl_918] appl_899 `pseq` (appl_919 `pseq` kl_do appl_899 appl_919) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3217 of kl_V3217@(Atom (Nil)) -> pat_cond_880 _ -> pat_cond_897))) !appl_920 <- kl_V3204t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3204t kl_V3437) !appl_921 <- appl_920 `pseq` applyWrapper appl_879 [appl_920] !appl_922 <- appl_921 `pseq` applyWrapper appl_877 [appl_921] appl_876 `pseq` (appl_922 `pseq` kl_do appl_876 appl_922)))) !appl_923 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_923 `pseq` applyWrapper appl_874 [appl_923] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3213 of !(kl_V3213@(Cons (!kl_V3213h) (!kl_V3213t))) -> pat_cond_776 kl_V3213 kl_V3213h kl_V3213t _ -> pat_cond_872))) !appl_924 <- kl_V3206t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3206t kl_V3437) !appl_925 <- appl_924 `pseq` applyWrapper appl_775 [appl_924] !appl_926 <- appl_925 `pseq` applyWrapper appl_773 [appl_925] appl_772 `pseq` (appl_926 `pseq` kl_do appl_772 appl_926) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3207 of kl_V3207@(Atom (UnboundSym "*")) -> pat_cond_619 kl_V3207@(ApplC (PL "*" _)) -> pat_cond_619 kl_V3207@(ApplC (Func "*" _)) -> pat_cond_619 _ -> pat_cond_770))) !appl_927 <- kl_V3206h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3206h kl_V3437) appl_927 `pseq` applyWrapper appl_618 [appl_927] pat_cond_928 = do do !kl_if_929 <- kl_V3206 `pseq` kl_shen_pvarP kl_V3206 case kl_if_929 of Atom (B (True)) -> do let !appl_930 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_931 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_932 <- appl_931 `pseq` klCons (ApplC (wrapNamed "*" multiply)) appl_931 !appl_933 <- kl_V3206 `pseq` (appl_932 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3206 appl_932 kl_V3437)) let !appl_934 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_935 <- kl_V3206 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3206 kl_V3437) appl_935 `pseq` (kl_Result `pseq` kl_do appl_935 kl_Result)))) let !appl_936 = ApplC (Func "lambda" (Context (\(!kl_V3218) -> do let pat_cond_937 = do let !appl_938 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_939 <- kl_shen_incinfs !appl_940 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_941 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_942 <- appl_941 `pseq` klCons appl_941 (Types.Atom Types.Nil) !appl_943 <- appl_942 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_942 !appl_944 <- appl_940 `pseq` (appl_943 `pseq` klCons appl_940 appl_943) !appl_945 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_946 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_947 <- appl_946 `pseq` klCons appl_946 (Types.Atom Types.Nil) !appl_948 <- appl_947 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_947 !appl_949 <- appl_945 `pseq` (appl_948 `pseq` klCons appl_945 appl_948) !appl_950 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_951 <- appl_949 `pseq` (appl_950 `pseq` klCons appl_949 appl_950) !appl_952 <- appl_944 `pseq` (appl_951 `pseq` klCons appl_944 appl_951) !appl_953 <- kl_V3436 `pseq` (appl_952 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_952 kl_V3437 kl_V3438))) appl_939 `pseq` (appl_953 `pseq` kl_do appl_939 appl_953)))) kl_V3195t `pseq` applyWrapper appl_938 [kl_V3195t] pat_cond_954 = do do !kl_if_955 <- kl_V3218 `pseq` kl_shen_pvarP kl_V3218 case kl_if_955 of Atom (B (True)) -> do !appl_956 <- kl_V3218 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3218 (Types.Atom Types.Nil) kl_V3437) let !appl_957 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_958 <- kl_V3218 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3218 kl_V3437) appl_958 `pseq` (kl_Result `pseq` kl_do appl_958 kl_Result)))) let !appl_959 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_960 <- kl_shen_incinfs !appl_961 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_962 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_963 <- appl_962 `pseq` klCons appl_962 (Types.Atom Types.Nil) !appl_964 <- appl_963 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_963 !appl_965 <- appl_961 `pseq` (appl_964 `pseq` klCons appl_961 appl_964) !appl_966 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_967 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_968 <- appl_967 `pseq` klCons appl_967 (Types.Atom Types.Nil) !appl_969 <- appl_968 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_968 !appl_970 <- appl_966 `pseq` (appl_969 `pseq` klCons appl_966 appl_969) !appl_971 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_972 <- appl_970 `pseq` (appl_971 `pseq` klCons appl_970 appl_971) !appl_973 <- appl_965 `pseq` (appl_972 `pseq` klCons appl_965 appl_972) !appl_974 <- kl_V3436 `pseq` (appl_973 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_973 kl_V3437 kl_V3438))) appl_960 `pseq` (appl_974 `pseq` kl_do appl_960 appl_974)))) !appl_975 <- kl_V3195t `pseq` applyWrapper appl_959 [kl_V3195t] !appl_976 <- appl_975 `pseq` applyWrapper appl_957 [appl_975] appl_956 `pseq` (appl_976 `pseq` kl_do appl_956 appl_976) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3218 of kl_V3218@(Atom (Nil)) -> pat_cond_937 _ -> pat_cond_954))) !appl_977 <- kl_V3204t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3204t kl_V3437) !appl_978 <- appl_977 `pseq` applyWrapper appl_936 [appl_977] !appl_979 <- appl_978 `pseq` applyWrapper appl_934 [appl_978] appl_933 `pseq` (appl_979 `pseq` kl_do appl_933 appl_979)))) !appl_980 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_980 `pseq` applyWrapper appl_930 [appl_980] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3206 of !(kl_V3206@(Cons (!kl_V3206h) (!kl_V3206t))) -> pat_cond_617 kl_V3206 kl_V3206h kl_V3206t _ -> pat_cond_928))) !appl_981 <- kl_V3205t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3205t kl_V3437) appl_981 `pseq` applyWrapper appl_616 [appl_981]))) kl_V3205h `pseq` applyWrapper appl_615 [kl_V3205h] pat_cond_982 = do do !kl_if_983 <- kl_V3205 `pseq` kl_shen_pvarP kl_V3205 case kl_if_983 of Atom (B (True)) -> do let !appl_984 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_985 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_986 <- kl_B `pseq` klCons kl_B (Types.Atom Types.Nil) !appl_987 <- appl_986 `pseq` klCons (ApplC (wrapNamed "*" multiply)) appl_986 !appl_988 <- kl_A `pseq` (appl_987 `pseq` klCons kl_A appl_987) !appl_989 <- kl_V3205 `pseq` (appl_988 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3205 appl_988 kl_V3437)) let !appl_990 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_991 <- kl_V3205 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3205 kl_V3437) appl_991 `pseq` (kl_Result `pseq` kl_do appl_991 kl_Result)))) let !appl_992 = ApplC (Func "lambda" (Context (\(!kl_V3219) -> do let pat_cond_993 = do let !appl_994 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_995 <- kl_shen_incinfs !appl_996 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_997 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_998 <- appl_997 `pseq` klCons appl_997 (Types.Atom Types.Nil) !appl_999 <- appl_998 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_998 !appl_1000 <- appl_996 `pseq` (appl_999 `pseq` klCons appl_996 appl_999) !appl_1001 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1002 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_1003 <- appl_1002 `pseq` klCons appl_1002 (Types.Atom Types.Nil) !appl_1004 <- appl_1003 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1003 !appl_1005 <- appl_1001 `pseq` (appl_1004 `pseq` klCons appl_1001 appl_1004) !appl_1006 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1007 <- appl_1005 `pseq` (appl_1006 `pseq` klCons appl_1005 appl_1006) !appl_1008 <- appl_1000 `pseq` (appl_1007 `pseq` klCons appl_1000 appl_1007) !appl_1009 <- kl_V3436 `pseq` (appl_1008 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1008 kl_V3437 kl_V3438))) appl_995 `pseq` (appl_1009 `pseq` kl_do appl_995 appl_1009)))) kl_V3195t `pseq` applyWrapper appl_994 [kl_V3195t] pat_cond_1010 = do do !kl_if_1011 <- kl_V3219 `pseq` kl_shen_pvarP kl_V3219 case kl_if_1011 of Atom (B (True)) -> do !appl_1012 <- kl_V3219 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3219 (Types.Atom Types.Nil) kl_V3437) let !appl_1013 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1014 <- kl_V3219 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3219 kl_V3437) appl_1014 `pseq` (kl_Result `pseq` kl_do appl_1014 kl_Result)))) let !appl_1015 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1016 <- kl_shen_incinfs !appl_1017 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1018 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1019 <- appl_1018 `pseq` klCons appl_1018 (Types.Atom Types.Nil) !appl_1020 <- appl_1019 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1019 !appl_1021 <- appl_1017 `pseq` (appl_1020 `pseq` klCons appl_1017 appl_1020) !appl_1022 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1023 <- kl_B `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_B kl_V3437) !appl_1024 <- appl_1023 `pseq` klCons appl_1023 (Types.Atom Types.Nil) !appl_1025 <- appl_1024 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1024 !appl_1026 <- appl_1022 `pseq` (appl_1025 `pseq` klCons appl_1022 appl_1025) !appl_1027 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1028 <- appl_1026 `pseq` (appl_1027 `pseq` klCons appl_1026 appl_1027) !appl_1029 <- appl_1021 `pseq` (appl_1028 `pseq` klCons appl_1021 appl_1028) !appl_1030 <- kl_V3436 `pseq` (appl_1029 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1029 kl_V3437 kl_V3438))) appl_1016 `pseq` (appl_1030 `pseq` kl_do appl_1016 appl_1030)))) !appl_1031 <- kl_V3195t `pseq` applyWrapper appl_1015 [kl_V3195t] !appl_1032 <- appl_1031 `pseq` applyWrapper appl_1013 [appl_1031] appl_1012 `pseq` (appl_1032 `pseq` kl_do appl_1012 appl_1032) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3219 of kl_V3219@(Atom (Nil)) -> pat_cond_993 _ -> pat_cond_1010))) !appl_1033 <- kl_V3204t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3204t kl_V3437) !appl_1034 <- appl_1033 `pseq` applyWrapper appl_992 [appl_1033] !appl_1035 <- appl_1034 `pseq` applyWrapper appl_990 [appl_1034] appl_989 `pseq` (appl_1035 `pseq` kl_do appl_989 appl_1035)))) !appl_1036 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_1036 `pseq` applyWrapper appl_985 [appl_1036]))) !appl_1037 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_1037 `pseq` applyWrapper appl_984 [appl_1037] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3205 of !(kl_V3205@(Cons (!kl_V3205h) (!kl_V3205t))) -> pat_cond_614 kl_V3205 kl_V3205h kl_V3205t _ -> pat_cond_982))) !appl_1038 <- kl_V3204h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3204h kl_V3437) appl_1038 `pseq` applyWrapper appl_613 [appl_1038] pat_cond_1039 = do do return (Atom (B False)) in case kl_V3204 of !(kl_V3204@(Cons (!kl_V3204h) (!kl_V3204t))) -> pat_cond_612 kl_V3204 kl_V3204h kl_V3204t _ -> pat_cond_1039))) !appl_1040 <- kl_V3202t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3202t kl_V3437) appl_1040 `pseq` applyWrapper appl_611 [appl_1040] pat_cond_1041 = do do return (Atom (B False)) in case kl_V3203 of kl_V3203@(Atom (UnboundSym ":")) -> pat_cond_610 kl_V3203@(ApplC (PL ":" _)) -> pat_cond_610 kl_V3203@(ApplC (Func ":" _)) -> pat_cond_610 _ -> pat_cond_1041))) !appl_1042 <- kl_V3202h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3202h kl_V3437) appl_1042 `pseq` applyWrapper appl_609 [appl_1042] pat_cond_1043 = do do return (Atom (B False)) in case kl_V3202 of !(kl_V3202@(Cons (!kl_V3202h) (!kl_V3202t))) -> pat_cond_608 kl_V3202 kl_V3202h kl_V3202t _ -> pat_cond_1043))) !appl_1044 <- kl_V3196t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3196t kl_V3437) appl_1044 `pseq` applyWrapper appl_607 [appl_1044] pat_cond_1045 = do do return (Atom (B False)) in case kl_V3201 of kl_V3201@(Atom (Nil)) -> pat_cond_606 _ -> pat_cond_1045))) !appl_1046 <- kl_V3200t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3200t kl_V3437) appl_1046 `pseq` applyWrapper appl_605 [appl_1046]))) kl_V3200h `pseq` applyWrapper appl_604 [kl_V3200h] pat_cond_1047 = do do return (Atom (B False)) in case kl_V3200 of !(kl_V3200@(Cons (!kl_V3200h) (!kl_V3200t))) -> pat_cond_603 kl_V3200 kl_V3200h kl_V3200t _ -> pat_cond_1047))) !appl_1048 <- kl_V3199t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3199t kl_V3437) appl_1048 `pseq` applyWrapper appl_602 [appl_1048]))) kl_V3199h `pseq` applyWrapper appl_601 [kl_V3199h] pat_cond_1049 = do do return (Atom (B False)) in case kl_V3199 of !(kl_V3199@(Cons (!kl_V3199h) (!kl_V3199t))) -> pat_cond_600 kl_V3199 kl_V3199h kl_V3199t _ -> pat_cond_1049))) !appl_1050 <- kl_V3197t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3197t kl_V3437) appl_1050 `pseq` applyWrapper appl_599 [appl_1050] pat_cond_1051 = do do return (Atom (B False)) in case kl_V3198 of kl_V3198@(Atom (UnboundSym "@p")) -> pat_cond_598 kl_V3198@(ApplC (PL "@p" _)) -> pat_cond_598 kl_V3198@(ApplC (Func "@p" _)) -> pat_cond_598 _ -> pat_cond_1051))) !appl_1052 <- kl_V3197h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3197h kl_V3437) appl_1052 `pseq` applyWrapper appl_597 [appl_1052] pat_cond_1053 = do do return (Atom (B False)) in case kl_V3197 of !(kl_V3197@(Cons (!kl_V3197h) (!kl_V3197t))) -> pat_cond_596 kl_V3197 kl_V3197h kl_V3197t _ -> pat_cond_1053))) !appl_1054 <- kl_V3196h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3196h kl_V3437) appl_1054 `pseq` applyWrapper appl_595 [appl_1054] pat_cond_1055 = do do return (Atom (B False)) in case kl_V3196 of !(kl_V3196@(Cons (!kl_V3196h) (!kl_V3196t))) -> pat_cond_594 kl_V3196 kl_V3196h kl_V3196t _ -> pat_cond_1055))) !appl_1056 <- kl_V3195h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3195h kl_V3437) appl_1056 `pseq` applyWrapper appl_593 [appl_1056] pat_cond_1057 = do do return (Atom (B False)) in case kl_V3195 of !(kl_V3195@(Cons (!kl_V3195h) (!kl_V3195t))) -> pat_cond_592 kl_V3195 kl_V3195h kl_V3195t _ -> pat_cond_1057))) !appl_1058 <- kl_V3435 `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3435 kl_V3437) !appl_1059 <- appl_1058 `pseq` applyWrapper appl_591 [appl_1058] appl_1059 `pseq` applyWrapper appl_2 [appl_1059] pat_cond_1060 = 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_1060))) let !appl_1061 = ApplC (Func "lambda" (Context (\(!kl_V3172) -> do let pat_cond_1062 kl_V3172 kl_V3172h kl_V3172t = do let !appl_1063 = ApplC (Func "lambda" (Context (\(!kl_V3173) -> do let pat_cond_1064 kl_V3173 kl_V3173h kl_V3173t = do let !appl_1065 = ApplC (Func "lambda" (Context (\(!kl_V3174) -> do let pat_cond_1066 kl_V3174 kl_V3174h kl_V3174t = do let !appl_1067 = ApplC (Func "lambda" (Context (\(!kl_V3175) -> do let pat_cond_1068 = do let !appl_1069 = ApplC (Func "lambda" (Context (\(!kl_V3176) -> do let pat_cond_1070 kl_V3176 kl_V3176h kl_V3176t = do let !appl_1071 = ApplC (Func "lambda" (Context (\(!kl_X) -> do let !appl_1072 = ApplC (Func "lambda" (Context (\(!kl_V3177) -> do let pat_cond_1073 kl_V3177 kl_V3177h kl_V3177t = do let !appl_1074 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_1075 = ApplC (Func "lambda" (Context (\(!kl_V3178) -> do let pat_cond_1076 = do let !appl_1077 = ApplC (Func "lambda" (Context (\(!kl_V3179) -> do let pat_cond_1078 kl_V3179 kl_V3179h kl_V3179t = do let !appl_1079 = ApplC (Func "lambda" (Context (\(!kl_V3180) -> do let pat_cond_1080 = do let !appl_1081 = ApplC (Func "lambda" (Context (\(!kl_V3181) -> do let pat_cond_1082 kl_V3181 kl_V3181h kl_V3181t = do let !appl_1083 = ApplC (Func "lambda" (Context (\(!kl_V3182) -> do let pat_cond_1084 kl_V3182 kl_V3182h kl_V3182t = do let !appl_1085 = ApplC (Func "lambda" (Context (\(!kl_V3183) -> do let pat_cond_1086 = do let !appl_1087 = ApplC (Func "lambda" (Context (\(!kl_V3184) -> do let pat_cond_1088 kl_V3184 kl_V3184h kl_V3184t = do let !appl_1089 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1090 = ApplC (Func "lambda" (Context (\(!kl_V3185) -> do let pat_cond_1091 = do let !appl_1092 = ApplC (Func "lambda" (Context (\(!kl_V3186) -> do let pat_cond_1093 = do let !appl_1094 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1095 <- kl_shen_incinfs !appl_1096 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1097 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1098 <- appl_1097 `pseq` klCons appl_1097 (Types.Atom Types.Nil) !appl_1099 <- appl_1098 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1098 !appl_1100 <- appl_1096 `pseq` (appl_1099 `pseq` klCons appl_1096 appl_1099) !appl_1101 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1102 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1103 <- appl_1102 `pseq` klCons appl_1102 (Types.Atom Types.Nil) !appl_1104 <- appl_1103 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1103 !appl_1105 <- appl_1104 `pseq` klCons appl_1104 (Types.Atom Types.Nil) !appl_1106 <- appl_1105 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1105 !appl_1107 <- appl_1101 `pseq` (appl_1106 `pseq` klCons appl_1101 appl_1106) !appl_1108 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1109 <- appl_1107 `pseq` (appl_1108 `pseq` klCons appl_1107 appl_1108) !appl_1110 <- appl_1100 `pseq` (appl_1109 `pseq` klCons appl_1100 appl_1109) !appl_1111 <- kl_V3436 `pseq` (appl_1110 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1110 kl_V3437 kl_V3438))) appl_1095 `pseq` (appl_1111 `pseq` kl_do appl_1095 appl_1111)))) kl_V3172t `pseq` applyWrapper appl_1094 [kl_V3172t] pat_cond_1112 = do do !kl_if_1113 <- kl_V3186 `pseq` kl_shen_pvarP kl_V3186 case kl_if_1113 of Atom (B (True)) -> do !appl_1114 <- kl_V3186 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3186 (Types.Atom Types.Nil) kl_V3437) let !appl_1115 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1116 <- kl_V3186 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3186 kl_V3437) appl_1116 `pseq` (kl_Result `pseq` kl_do appl_1116 kl_Result)))) let !appl_1117 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1118 <- kl_shen_incinfs !appl_1119 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1120 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1121 <- appl_1120 `pseq` klCons appl_1120 (Types.Atom Types.Nil) !appl_1122 <- appl_1121 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1121 !appl_1123 <- appl_1119 `pseq` (appl_1122 `pseq` klCons appl_1119 appl_1122) !appl_1124 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1125 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1126 <- appl_1125 `pseq` klCons appl_1125 (Types.Atom Types.Nil) !appl_1127 <- appl_1126 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1126 !appl_1128 <- appl_1127 `pseq` klCons appl_1127 (Types.Atom Types.Nil) !appl_1129 <- appl_1128 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1128 !appl_1130 <- appl_1124 `pseq` (appl_1129 `pseq` klCons appl_1124 appl_1129) !appl_1131 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1132 <- appl_1130 `pseq` (appl_1131 `pseq` klCons appl_1130 appl_1131) !appl_1133 <- appl_1123 `pseq` (appl_1132 `pseq` klCons appl_1123 appl_1132) !appl_1134 <- kl_V3436 `pseq` (appl_1133 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1133 kl_V3437 kl_V3438))) appl_1118 `pseq` (appl_1134 `pseq` kl_do appl_1118 appl_1134)))) !appl_1135 <- kl_V3172t `pseq` applyWrapper appl_1117 [kl_V3172t] !appl_1136 <- appl_1135 `pseq` applyWrapper appl_1115 [appl_1135] appl_1114 `pseq` (appl_1136 `pseq` kl_do appl_1114 appl_1136) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3186 of kl_V3186@(Atom (Nil)) -> pat_cond_1093 _ -> pat_cond_1112))) !appl_1137 <- kl_V3181t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3181t kl_V3437) appl_1137 `pseq` applyWrapper appl_1092 [appl_1137] pat_cond_1138 = do do !kl_if_1139 <- kl_V3185 `pseq` kl_shen_pvarP kl_V3185 case kl_if_1139 of Atom (B (True)) -> do !appl_1140 <- kl_V3185 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3185 (Types.Atom Types.Nil) kl_V3437) let !appl_1141 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1142 <- kl_V3185 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3185 kl_V3437) appl_1142 `pseq` (kl_Result `pseq` kl_do appl_1142 kl_Result)))) let !appl_1143 = ApplC (Func "lambda" (Context (\(!kl_V3187) -> do let pat_cond_1144 = do let !appl_1145 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1146 <- kl_shen_incinfs !appl_1147 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1148 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1149 <- appl_1148 `pseq` klCons appl_1148 (Types.Atom Types.Nil) !appl_1150 <- appl_1149 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1149 !appl_1151 <- appl_1147 `pseq` (appl_1150 `pseq` klCons appl_1147 appl_1150) !appl_1152 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1153 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1154 <- appl_1153 `pseq` klCons appl_1153 (Types.Atom Types.Nil) !appl_1155 <- appl_1154 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1154 !appl_1156 <- appl_1155 `pseq` klCons appl_1155 (Types.Atom Types.Nil) !appl_1157 <- appl_1156 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1156 !appl_1158 <- appl_1152 `pseq` (appl_1157 `pseq` klCons appl_1152 appl_1157) !appl_1159 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1160 <- appl_1158 `pseq` (appl_1159 `pseq` klCons appl_1158 appl_1159) !appl_1161 <- appl_1151 `pseq` (appl_1160 `pseq` klCons appl_1151 appl_1160) !appl_1162 <- kl_V3436 `pseq` (appl_1161 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1161 kl_V3437 kl_V3438))) appl_1146 `pseq` (appl_1162 `pseq` kl_do appl_1146 appl_1162)))) kl_V3172t `pseq` applyWrapper appl_1145 [kl_V3172t] pat_cond_1163 = do do !kl_if_1164 <- kl_V3187 `pseq` kl_shen_pvarP kl_V3187 case kl_if_1164 of Atom (B (True)) -> do !appl_1165 <- kl_V3187 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3187 (Types.Atom Types.Nil) kl_V3437) let !appl_1166 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1167 <- kl_V3187 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3187 kl_V3437) appl_1167 `pseq` (kl_Result `pseq` kl_do appl_1167 kl_Result)))) let !appl_1168 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1169 <- kl_shen_incinfs !appl_1170 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1171 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1172 <- appl_1171 `pseq` klCons appl_1171 (Types.Atom Types.Nil) !appl_1173 <- appl_1172 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1172 !appl_1174 <- appl_1170 `pseq` (appl_1173 `pseq` klCons appl_1170 appl_1173) !appl_1175 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1176 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1177 <- appl_1176 `pseq` klCons appl_1176 (Types.Atom Types.Nil) !appl_1178 <- appl_1177 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1177 !appl_1179 <- appl_1178 `pseq` klCons appl_1178 (Types.Atom Types.Nil) !appl_1180 <- appl_1179 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1179 !appl_1181 <- appl_1175 `pseq` (appl_1180 `pseq` klCons appl_1175 appl_1180) !appl_1182 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1183 <- appl_1181 `pseq` (appl_1182 `pseq` klCons appl_1181 appl_1182) !appl_1184 <- appl_1174 `pseq` (appl_1183 `pseq` klCons appl_1174 appl_1183) !appl_1185 <- kl_V3436 `pseq` (appl_1184 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1184 kl_V3437 kl_V3438))) appl_1169 `pseq` (appl_1185 `pseq` kl_do appl_1169 appl_1185)))) !appl_1186 <- kl_V3172t `pseq` applyWrapper appl_1168 [kl_V3172t] !appl_1187 <- appl_1186 `pseq` applyWrapper appl_1166 [appl_1186] appl_1165 `pseq` (appl_1187 `pseq` kl_do appl_1165 appl_1187) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3187 of kl_V3187@(Atom (Nil)) -> pat_cond_1144 _ -> pat_cond_1163))) !appl_1188 <- kl_V3181t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3181t kl_V3437) !appl_1189 <- appl_1188 `pseq` applyWrapper appl_1143 [appl_1188] !appl_1190 <- appl_1189 `pseq` applyWrapper appl_1141 [appl_1189] appl_1140 `pseq` (appl_1190 `pseq` kl_do appl_1140 appl_1190) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3185 of kl_V3185@(Atom (Nil)) -> pat_cond_1091 _ -> pat_cond_1138))) !appl_1191 <- kl_V3184t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3184t kl_V3437) appl_1191 `pseq` applyWrapper appl_1090 [appl_1191]))) kl_V3184h `pseq` applyWrapper appl_1089 [kl_V3184h] pat_cond_1192 = do do !kl_if_1193 <- kl_V3184 `pseq` kl_shen_pvarP kl_V3184 case kl_if_1193 of Atom (B (True)) -> do let !appl_1194 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_1195 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1196 <- kl_V3184 `pseq` (appl_1195 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3184 appl_1195 kl_V3437)) let !appl_1197 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1198 <- kl_V3184 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3184 kl_V3437) appl_1198 `pseq` (kl_Result `pseq` kl_do appl_1198 kl_Result)))) let !appl_1199 = ApplC (Func "lambda" (Context (\(!kl_V3188) -> do let pat_cond_1200 = do let !appl_1201 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1202 <- kl_shen_incinfs !appl_1203 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1204 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1205 <- appl_1204 `pseq` klCons appl_1204 (Types.Atom Types.Nil) !appl_1206 <- appl_1205 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1205 !appl_1207 <- appl_1203 `pseq` (appl_1206 `pseq` klCons appl_1203 appl_1206) !appl_1208 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1209 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1210 <- appl_1209 `pseq` klCons appl_1209 (Types.Atom Types.Nil) !appl_1211 <- appl_1210 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1210 !appl_1212 <- appl_1211 `pseq` klCons appl_1211 (Types.Atom Types.Nil) !appl_1213 <- appl_1212 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1212 !appl_1214 <- appl_1208 `pseq` (appl_1213 `pseq` klCons appl_1208 appl_1213) !appl_1215 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1216 <- appl_1214 `pseq` (appl_1215 `pseq` klCons appl_1214 appl_1215) !appl_1217 <- appl_1207 `pseq` (appl_1216 `pseq` klCons appl_1207 appl_1216) !appl_1218 <- kl_V3436 `pseq` (appl_1217 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1217 kl_V3437 kl_V3438))) appl_1202 `pseq` (appl_1218 `pseq` kl_do appl_1202 appl_1218)))) kl_V3172t `pseq` applyWrapper appl_1201 [kl_V3172t] pat_cond_1219 = do do !kl_if_1220 <- kl_V3188 `pseq` kl_shen_pvarP kl_V3188 case kl_if_1220 of Atom (B (True)) -> do !appl_1221 <- kl_V3188 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3188 (Types.Atom Types.Nil) kl_V3437) let !appl_1222 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1223 <- kl_V3188 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3188 kl_V3437) appl_1223 `pseq` (kl_Result `pseq` kl_do appl_1223 kl_Result)))) let !appl_1224 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1225 <- kl_shen_incinfs !appl_1226 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1227 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1228 <- appl_1227 `pseq` klCons appl_1227 (Types.Atom Types.Nil) !appl_1229 <- appl_1228 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1228 !appl_1230 <- appl_1226 `pseq` (appl_1229 `pseq` klCons appl_1226 appl_1229) !appl_1231 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1232 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1233 <- appl_1232 `pseq` klCons appl_1232 (Types.Atom Types.Nil) !appl_1234 <- appl_1233 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1233 !appl_1235 <- appl_1234 `pseq` klCons appl_1234 (Types.Atom Types.Nil) !appl_1236 <- appl_1235 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1235 !appl_1237 <- appl_1231 `pseq` (appl_1236 `pseq` klCons appl_1231 appl_1236) !appl_1238 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1239 <- appl_1237 `pseq` (appl_1238 `pseq` klCons appl_1237 appl_1238) !appl_1240 <- appl_1230 `pseq` (appl_1239 `pseq` klCons appl_1230 appl_1239) !appl_1241 <- kl_V3436 `pseq` (appl_1240 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1240 kl_V3437 kl_V3438))) appl_1225 `pseq` (appl_1241 `pseq` kl_do appl_1225 appl_1241)))) !appl_1242 <- kl_V3172t `pseq` applyWrapper appl_1224 [kl_V3172t] !appl_1243 <- appl_1242 `pseq` applyWrapper appl_1222 [appl_1242] appl_1221 `pseq` (appl_1243 `pseq` kl_do appl_1221 appl_1243) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3188 of kl_V3188@(Atom (Nil)) -> pat_cond_1200 _ -> pat_cond_1219))) !appl_1244 <- kl_V3181t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3181t kl_V3437) !appl_1245 <- appl_1244 `pseq` applyWrapper appl_1199 [appl_1244] !appl_1246 <- appl_1245 `pseq` applyWrapper appl_1197 [appl_1245] appl_1196 `pseq` (appl_1246 `pseq` kl_do appl_1196 appl_1246)))) !appl_1247 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_1247 `pseq` applyWrapper appl_1194 [appl_1247] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3184 of !(kl_V3184@(Cons (!kl_V3184h) (!kl_V3184t))) -> pat_cond_1088 kl_V3184 kl_V3184h kl_V3184t _ -> pat_cond_1192))) !appl_1248 <- kl_V3182t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3182t kl_V3437) appl_1248 `pseq` applyWrapper appl_1087 [appl_1248] pat_cond_1249 = do do !kl_if_1250 <- kl_V3183 `pseq` kl_shen_pvarP kl_V3183 case kl_if_1250 of Atom (B (True)) -> do !appl_1251 <- kl_V3183 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3183 (Types.Atom (Types.UnboundSym "list")) kl_V3437) let !appl_1252 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1253 <- kl_V3183 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3183 kl_V3437) appl_1253 `pseq` (kl_Result `pseq` kl_do appl_1253 kl_Result)))) let !appl_1254 = ApplC (Func "lambda" (Context (\(!kl_V3189) -> do let pat_cond_1255 kl_V3189 kl_V3189h kl_V3189t = do let !appl_1256 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_1257 = ApplC (Func "lambda" (Context (\(!kl_V3190) -> do let pat_cond_1258 = do let !appl_1259 = ApplC (Func "lambda" (Context (\(!kl_V3191) -> do let pat_cond_1260 = do let !appl_1261 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1262 <- kl_shen_incinfs !appl_1263 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1264 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1265 <- appl_1264 `pseq` klCons appl_1264 (Types.Atom Types.Nil) !appl_1266 <- appl_1265 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1265 !appl_1267 <- appl_1263 `pseq` (appl_1266 `pseq` klCons appl_1263 appl_1266) !appl_1268 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1269 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1270 <- appl_1269 `pseq` klCons appl_1269 (Types.Atom Types.Nil) !appl_1271 <- appl_1270 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1270 !appl_1272 <- appl_1271 `pseq` klCons appl_1271 (Types.Atom Types.Nil) !appl_1273 <- appl_1272 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1272 !appl_1274 <- appl_1268 `pseq` (appl_1273 `pseq` klCons appl_1268 appl_1273) !appl_1275 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1276 <- appl_1274 `pseq` (appl_1275 `pseq` klCons appl_1274 appl_1275) !appl_1277 <- appl_1267 `pseq` (appl_1276 `pseq` klCons appl_1267 appl_1276) !appl_1278 <- kl_V3436 `pseq` (appl_1277 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1277 kl_V3437 kl_V3438))) appl_1262 `pseq` (appl_1278 `pseq` kl_do appl_1262 appl_1278)))) kl_V3172t `pseq` applyWrapper appl_1261 [kl_V3172t] pat_cond_1279 = do do !kl_if_1280 <- kl_V3191 `pseq` kl_shen_pvarP kl_V3191 case kl_if_1280 of Atom (B (True)) -> do !appl_1281 <- kl_V3191 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3191 (Types.Atom Types.Nil) kl_V3437) let !appl_1282 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1283 <- kl_V3191 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3191 kl_V3437) appl_1283 `pseq` (kl_Result `pseq` kl_do appl_1283 kl_Result)))) let !appl_1284 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1285 <- kl_shen_incinfs !appl_1286 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1287 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1288 <- appl_1287 `pseq` klCons appl_1287 (Types.Atom Types.Nil) !appl_1289 <- appl_1288 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1288 !appl_1290 <- appl_1286 `pseq` (appl_1289 `pseq` klCons appl_1286 appl_1289) !appl_1291 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1292 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1293 <- appl_1292 `pseq` klCons appl_1292 (Types.Atom Types.Nil) !appl_1294 <- appl_1293 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1293 !appl_1295 <- appl_1294 `pseq` klCons appl_1294 (Types.Atom Types.Nil) !appl_1296 <- appl_1295 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1295 !appl_1297 <- appl_1291 `pseq` (appl_1296 `pseq` klCons appl_1291 appl_1296) !appl_1298 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1299 <- appl_1297 `pseq` (appl_1298 `pseq` klCons appl_1297 appl_1298) !appl_1300 <- appl_1290 `pseq` (appl_1299 `pseq` klCons appl_1290 appl_1299) !appl_1301 <- kl_V3436 `pseq` (appl_1300 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1300 kl_V3437 kl_V3438))) appl_1285 `pseq` (appl_1301 `pseq` kl_do appl_1285 appl_1301)))) !appl_1302 <- kl_V3172t `pseq` applyWrapper appl_1284 [kl_V3172t] !appl_1303 <- appl_1302 `pseq` applyWrapper appl_1282 [appl_1302] appl_1281 `pseq` (appl_1303 `pseq` kl_do appl_1281 appl_1303) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3191 of kl_V3191@(Atom (Nil)) -> pat_cond_1260 _ -> pat_cond_1279))) !appl_1304 <- kl_V3181t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3181t kl_V3437) appl_1304 `pseq` applyWrapper appl_1259 [appl_1304] pat_cond_1305 = do do !kl_if_1306 <- kl_V3190 `pseq` kl_shen_pvarP kl_V3190 case kl_if_1306 of Atom (B (True)) -> do !appl_1307 <- kl_V3190 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3190 (Types.Atom Types.Nil) kl_V3437) let !appl_1308 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1309 <- kl_V3190 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3190 kl_V3437) appl_1309 `pseq` (kl_Result `pseq` kl_do appl_1309 kl_Result)))) let !appl_1310 = ApplC (Func "lambda" (Context (\(!kl_V3192) -> do let pat_cond_1311 = do let !appl_1312 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1313 <- kl_shen_incinfs !appl_1314 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1315 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1316 <- appl_1315 `pseq` klCons appl_1315 (Types.Atom Types.Nil) !appl_1317 <- appl_1316 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1316 !appl_1318 <- appl_1314 `pseq` (appl_1317 `pseq` klCons appl_1314 appl_1317) !appl_1319 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1320 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1321 <- appl_1320 `pseq` klCons appl_1320 (Types.Atom Types.Nil) !appl_1322 <- appl_1321 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1321 !appl_1323 <- appl_1322 `pseq` klCons appl_1322 (Types.Atom Types.Nil) !appl_1324 <- appl_1323 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1323 !appl_1325 <- appl_1319 `pseq` (appl_1324 `pseq` klCons appl_1319 appl_1324) !appl_1326 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1327 <- appl_1325 `pseq` (appl_1326 `pseq` klCons appl_1325 appl_1326) !appl_1328 <- appl_1318 `pseq` (appl_1327 `pseq` klCons appl_1318 appl_1327) !appl_1329 <- kl_V3436 `pseq` (appl_1328 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1328 kl_V3437 kl_V3438))) appl_1313 `pseq` (appl_1329 `pseq` kl_do appl_1313 appl_1329)))) kl_V3172t `pseq` applyWrapper appl_1312 [kl_V3172t] pat_cond_1330 = do do !kl_if_1331 <- kl_V3192 `pseq` kl_shen_pvarP kl_V3192 case kl_if_1331 of Atom (B (True)) -> do !appl_1332 <- kl_V3192 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3192 (Types.Atom Types.Nil) kl_V3437) let !appl_1333 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1334 <- kl_V3192 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3192 kl_V3437) appl_1334 `pseq` (kl_Result `pseq` kl_do appl_1334 kl_Result)))) let !appl_1335 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1336 <- kl_shen_incinfs !appl_1337 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1338 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1339 <- appl_1338 `pseq` klCons appl_1338 (Types.Atom Types.Nil) !appl_1340 <- appl_1339 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1339 !appl_1341 <- appl_1337 `pseq` (appl_1340 `pseq` klCons appl_1337 appl_1340) !appl_1342 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1343 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1344 <- appl_1343 `pseq` klCons appl_1343 (Types.Atom Types.Nil) !appl_1345 <- appl_1344 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1344 !appl_1346 <- appl_1345 `pseq` klCons appl_1345 (Types.Atom Types.Nil) !appl_1347 <- appl_1346 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1346 !appl_1348 <- appl_1342 `pseq` (appl_1347 `pseq` klCons appl_1342 appl_1347) !appl_1349 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1350 <- appl_1348 `pseq` (appl_1349 `pseq` klCons appl_1348 appl_1349) !appl_1351 <- appl_1341 `pseq` (appl_1350 `pseq` klCons appl_1341 appl_1350) !appl_1352 <- kl_V3436 `pseq` (appl_1351 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1351 kl_V3437 kl_V3438))) appl_1336 `pseq` (appl_1352 `pseq` kl_do appl_1336 appl_1352)))) !appl_1353 <- kl_V3172t `pseq` applyWrapper appl_1335 [kl_V3172t] !appl_1354 <- appl_1353 `pseq` applyWrapper appl_1333 [appl_1353] appl_1332 `pseq` (appl_1354 `pseq` kl_do appl_1332 appl_1354) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3192 of kl_V3192@(Atom (Nil)) -> pat_cond_1311 _ -> pat_cond_1330))) !appl_1355 <- kl_V3181t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3181t kl_V3437) !appl_1356 <- appl_1355 `pseq` applyWrapper appl_1310 [appl_1355] !appl_1357 <- appl_1356 `pseq` applyWrapper appl_1308 [appl_1356] appl_1307 `pseq` (appl_1357 `pseq` kl_do appl_1307 appl_1357) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3190 of kl_V3190@(Atom (Nil)) -> pat_cond_1258 _ -> pat_cond_1305))) !appl_1358 <- kl_V3189t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3189t kl_V3437) appl_1358 `pseq` applyWrapper appl_1257 [appl_1358]))) kl_V3189h `pseq` applyWrapper appl_1256 [kl_V3189h] pat_cond_1359 = do do !kl_if_1360 <- kl_V3189 `pseq` kl_shen_pvarP kl_V3189 case kl_if_1360 of Atom (B (True)) -> do let !appl_1361 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_1362 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1363 <- kl_V3189 `pseq` (appl_1362 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3189 appl_1362 kl_V3437)) let !appl_1364 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1365 <- kl_V3189 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3189 kl_V3437) appl_1365 `pseq` (kl_Result `pseq` kl_do appl_1365 kl_Result)))) let !appl_1366 = ApplC (Func "lambda" (Context (\(!kl_V3193) -> do let pat_cond_1367 = do let !appl_1368 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1369 <- kl_shen_incinfs !appl_1370 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1371 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1372 <- appl_1371 `pseq` klCons appl_1371 (Types.Atom Types.Nil) !appl_1373 <- appl_1372 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1372 !appl_1374 <- appl_1370 `pseq` (appl_1373 `pseq` klCons appl_1370 appl_1373) !appl_1375 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1376 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1377 <- appl_1376 `pseq` klCons appl_1376 (Types.Atom Types.Nil) !appl_1378 <- appl_1377 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1377 !appl_1379 <- appl_1378 `pseq` klCons appl_1378 (Types.Atom Types.Nil) !appl_1380 <- appl_1379 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1379 !appl_1381 <- appl_1375 `pseq` (appl_1380 `pseq` klCons appl_1375 appl_1380) !appl_1382 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1383 <- appl_1381 `pseq` (appl_1382 `pseq` klCons appl_1381 appl_1382) !appl_1384 <- appl_1374 `pseq` (appl_1383 `pseq` klCons appl_1374 appl_1383) !appl_1385 <- kl_V3436 `pseq` (appl_1384 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1384 kl_V3437 kl_V3438))) appl_1369 `pseq` (appl_1385 `pseq` kl_do appl_1369 appl_1385)))) kl_V3172t `pseq` applyWrapper appl_1368 [kl_V3172t] pat_cond_1386 = do do !kl_if_1387 <- kl_V3193 `pseq` kl_shen_pvarP kl_V3193 case kl_if_1387 of Atom (B (True)) -> do !appl_1388 <- kl_V3193 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3193 (Types.Atom Types.Nil) kl_V3437) let !appl_1389 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1390 <- kl_V3193 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3193 kl_V3437) appl_1390 `pseq` (kl_Result `pseq` kl_do appl_1390 kl_Result)))) let !appl_1391 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1392 <- kl_shen_incinfs !appl_1393 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1394 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1395 <- appl_1394 `pseq` klCons appl_1394 (Types.Atom Types.Nil) !appl_1396 <- appl_1395 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1395 !appl_1397 <- appl_1393 `pseq` (appl_1396 `pseq` klCons appl_1393 appl_1396) !appl_1398 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1399 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1400 <- appl_1399 `pseq` klCons appl_1399 (Types.Atom Types.Nil) !appl_1401 <- appl_1400 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1400 !appl_1402 <- appl_1401 `pseq` klCons appl_1401 (Types.Atom Types.Nil) !appl_1403 <- appl_1402 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1402 !appl_1404 <- appl_1398 `pseq` (appl_1403 `pseq` klCons appl_1398 appl_1403) !appl_1405 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1406 <- appl_1404 `pseq` (appl_1405 `pseq` klCons appl_1404 appl_1405) !appl_1407 <- appl_1397 `pseq` (appl_1406 `pseq` klCons appl_1397 appl_1406) !appl_1408 <- kl_V3436 `pseq` (appl_1407 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1407 kl_V3437 kl_V3438))) appl_1392 `pseq` (appl_1408 `pseq` kl_do appl_1392 appl_1408)))) !appl_1409 <- kl_V3172t `pseq` applyWrapper appl_1391 [kl_V3172t] !appl_1410 <- appl_1409 `pseq` applyWrapper appl_1389 [appl_1409] appl_1388 `pseq` (appl_1410 `pseq` kl_do appl_1388 appl_1410) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3193 of kl_V3193@(Atom (Nil)) -> pat_cond_1367 _ -> pat_cond_1386))) !appl_1411 <- kl_V3181t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3181t kl_V3437) !appl_1412 <- appl_1411 `pseq` applyWrapper appl_1366 [appl_1411] !appl_1413 <- appl_1412 `pseq` applyWrapper appl_1364 [appl_1412] appl_1363 `pseq` (appl_1413 `pseq` kl_do appl_1363 appl_1413)))) !appl_1414 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_1414 `pseq` applyWrapper appl_1361 [appl_1414] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3189 of !(kl_V3189@(Cons (!kl_V3189h) (!kl_V3189t))) -> pat_cond_1255 kl_V3189 kl_V3189h kl_V3189t _ -> pat_cond_1359))) !appl_1415 <- kl_V3182t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3182t kl_V3437) !appl_1416 <- appl_1415 `pseq` applyWrapper appl_1254 [appl_1415] !appl_1417 <- appl_1416 `pseq` applyWrapper appl_1252 [appl_1416] appl_1251 `pseq` (appl_1417 `pseq` kl_do appl_1251 appl_1417) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3183 of kl_V3183@(Atom (UnboundSym "list")) -> pat_cond_1086 kl_V3183@(ApplC (PL "list" _)) -> pat_cond_1086 kl_V3183@(ApplC (Func "list" _)) -> pat_cond_1086 _ -> pat_cond_1249))) !appl_1418 <- kl_V3182h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3182h kl_V3437) appl_1418 `pseq` applyWrapper appl_1085 [appl_1418] pat_cond_1419 = do do !kl_if_1420 <- kl_V3182 `pseq` kl_shen_pvarP kl_V3182 case kl_if_1420 of Atom (B (True)) -> do let !appl_1421 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_1422 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_1423 <- appl_1422 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1422 !appl_1424 <- kl_V3182 `pseq` (appl_1423 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3182 appl_1423 kl_V3437)) let !appl_1425 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1426 <- kl_V3182 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3182 kl_V3437) appl_1426 `pseq` (kl_Result `pseq` kl_do appl_1426 kl_Result)))) let !appl_1427 = ApplC (Func "lambda" (Context (\(!kl_V3194) -> do let pat_cond_1428 = do let !appl_1429 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1430 <- kl_shen_incinfs !appl_1431 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1432 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1433 <- appl_1432 `pseq` klCons appl_1432 (Types.Atom Types.Nil) !appl_1434 <- appl_1433 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1433 !appl_1435 <- appl_1431 `pseq` (appl_1434 `pseq` klCons appl_1431 appl_1434) !appl_1436 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1437 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1438 <- appl_1437 `pseq` klCons appl_1437 (Types.Atom Types.Nil) !appl_1439 <- appl_1438 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1438 !appl_1440 <- appl_1439 `pseq` klCons appl_1439 (Types.Atom Types.Nil) !appl_1441 <- appl_1440 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1440 !appl_1442 <- appl_1436 `pseq` (appl_1441 `pseq` klCons appl_1436 appl_1441) !appl_1443 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1444 <- appl_1442 `pseq` (appl_1443 `pseq` klCons appl_1442 appl_1443) !appl_1445 <- appl_1435 `pseq` (appl_1444 `pseq` klCons appl_1435 appl_1444) !appl_1446 <- kl_V3436 `pseq` (appl_1445 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1445 kl_V3437 kl_V3438))) appl_1430 `pseq` (appl_1446 `pseq` kl_do appl_1430 appl_1446)))) kl_V3172t `pseq` applyWrapper appl_1429 [kl_V3172t] pat_cond_1447 = do do !kl_if_1448 <- kl_V3194 `pseq` kl_shen_pvarP kl_V3194 case kl_if_1448 of Atom (B (True)) -> do !appl_1449 <- kl_V3194 `pseq` (kl_V3437 `pseq` kl_shen_bindv kl_V3194 (Types.Atom Types.Nil) kl_V3437) let !appl_1450 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_1451 <- kl_V3194 `pseq` (kl_V3437 `pseq` kl_shen_unbindv kl_V3194 kl_V3437) appl_1451 `pseq` (kl_Result `pseq` kl_do appl_1451 kl_Result)))) let !appl_1452 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_1453 <- kl_shen_incinfs !appl_1454 <- kl_X `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_X kl_V3437) !appl_1455 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1456 <- appl_1455 `pseq` klCons appl_1455 (Types.Atom Types.Nil) !appl_1457 <- appl_1456 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1456 !appl_1458 <- appl_1454 `pseq` (appl_1457 `pseq` klCons appl_1454 appl_1457) !appl_1459 <- kl_Y `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Y kl_V3437) !appl_1460 <- kl_A `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_A kl_V3437) !appl_1461 <- appl_1460 `pseq` klCons appl_1460 (Types.Atom Types.Nil) !appl_1462 <- appl_1461 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_1461 !appl_1463 <- appl_1462 `pseq` klCons appl_1462 (Types.Atom Types.Nil) !appl_1464 <- appl_1463 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1463 !appl_1465 <- appl_1459 `pseq` (appl_1464 `pseq` klCons appl_1459 appl_1464) !appl_1466 <- kl_Hyp `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_Hyp kl_V3437) !appl_1467 <- appl_1465 `pseq` (appl_1466 `pseq` klCons appl_1465 appl_1466) !appl_1468 <- appl_1458 `pseq` (appl_1467 `pseq` klCons appl_1458 appl_1467) !appl_1469 <- kl_V3436 `pseq` (appl_1468 `pseq` (kl_V3437 `pseq` (kl_V3438 `pseq` kl_bind kl_V3436 appl_1468 kl_V3437 kl_V3438))) appl_1453 `pseq` (appl_1469 `pseq` kl_do appl_1453 appl_1469)))) !appl_1470 <- kl_V3172t `pseq` applyWrapper appl_1452 [kl_V3172t] !appl_1471 <- appl_1470 `pseq` applyWrapper appl_1450 [appl_1470] appl_1449 `pseq` (appl_1471 `pseq` kl_do appl_1449 appl_1471) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3194 of kl_V3194@(Atom (Nil)) -> pat_cond_1428 _ -> pat_cond_1447))) !appl_1472 <- kl_V3181t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3181t kl_V3437) !appl_1473 <- appl_1472 `pseq` applyWrapper appl_1427 [appl_1472] !appl_1474 <- appl_1473 `pseq` applyWrapper appl_1425 [appl_1473] appl_1424 `pseq` (appl_1474 `pseq` kl_do appl_1424 appl_1474)))) !appl_1475 <- kl_V3437 `pseq` kl_shen_newpv kl_V3437 appl_1475 `pseq` applyWrapper appl_1421 [appl_1475] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3182 of !(kl_V3182@(Cons (!kl_V3182h) (!kl_V3182t))) -> pat_cond_1084 kl_V3182 kl_V3182h kl_V3182t _ -> pat_cond_1419))) !appl_1476 <- kl_V3181h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3181h kl_V3437) appl_1476 `pseq` applyWrapper appl_1083 [appl_1476] pat_cond_1477 = do do return (Atom (B False)) in case kl_V3181 of !(kl_V3181@(Cons (!kl_V3181h) (!kl_V3181t))) -> pat_cond_1082 kl_V3181 kl_V3181h kl_V3181t _ -> pat_cond_1477))) !appl_1478 <- kl_V3179t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3179t kl_V3437) appl_1478 `pseq` applyWrapper appl_1081 [appl_1478] pat_cond_1479 = do do return (Atom (B False)) in case kl_V3180 of kl_V3180@(Atom (UnboundSym ":")) -> pat_cond_1080 kl_V3180@(ApplC (PL ":" _)) -> pat_cond_1080 kl_V3180@(ApplC (Func ":" _)) -> pat_cond_1080 _ -> pat_cond_1479))) !appl_1480 <- kl_V3179h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3179h kl_V3437) appl_1480 `pseq` applyWrapper appl_1079 [appl_1480] pat_cond_1481 = do do return (Atom (B False)) in case kl_V3179 of !(kl_V3179@(Cons (!kl_V3179h) (!kl_V3179t))) -> pat_cond_1078 kl_V3179 kl_V3179h kl_V3179t _ -> pat_cond_1481))) !appl_1482 <- kl_V3173t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3173t kl_V3437) appl_1482 `pseq` applyWrapper appl_1077 [appl_1482] pat_cond_1483 = do do return (Atom (B False)) in case kl_V3178 of kl_V3178@(Atom (Nil)) -> pat_cond_1076 _ -> pat_cond_1483))) !appl_1484 <- kl_V3177t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3177t kl_V3437) appl_1484 `pseq` applyWrapper appl_1075 [appl_1484]))) kl_V3177h `pseq` applyWrapper appl_1074 [kl_V3177h] pat_cond_1485 = do do return (Atom (B False)) in case kl_V3177 of !(kl_V3177@(Cons (!kl_V3177h) (!kl_V3177t))) -> pat_cond_1073 kl_V3177 kl_V3177h kl_V3177t _ -> pat_cond_1485))) !appl_1486 <- kl_V3176t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3176t kl_V3437) appl_1486 `pseq` applyWrapper appl_1072 [appl_1486]))) kl_V3176h `pseq` applyWrapper appl_1071 [kl_V3176h] pat_cond_1487 = do do return (Atom (B False)) in case kl_V3176 of !(kl_V3176@(Cons (!kl_V3176h) (!kl_V3176t))) -> pat_cond_1070 kl_V3176 kl_V3176h kl_V3176t _ -> pat_cond_1487))) !appl_1488 <- kl_V3174t `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3174t kl_V3437) appl_1488 `pseq` applyWrapper appl_1069 [appl_1488] pat_cond_1489 = do do return (Atom (B False)) in case kl_V3175 of kl_V3175@(Atom (UnboundSym "cons")) -> pat_cond_1068 kl_V3175@(ApplC (PL "cons" _)) -> pat_cond_1068 kl_V3175@(ApplC (Func "cons" _)) -> pat_cond_1068 _ -> pat_cond_1489))) !appl_1490 <- kl_V3174h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3174h kl_V3437) appl_1490 `pseq` applyWrapper appl_1067 [appl_1490] pat_cond_1491 = do do return (Atom (B False)) in case kl_V3174 of !(kl_V3174@(Cons (!kl_V3174h) (!kl_V3174t))) -> pat_cond_1066 kl_V3174 kl_V3174h kl_V3174t _ -> pat_cond_1491))) !appl_1492 <- kl_V3173h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3173h kl_V3437) appl_1492 `pseq` applyWrapper appl_1065 [appl_1492] pat_cond_1493 = do do return (Atom (B False)) in case kl_V3173 of !(kl_V3173@(Cons (!kl_V3173h) (!kl_V3173t))) -> pat_cond_1064 kl_V3173 kl_V3173h kl_V3173t _ -> pat_cond_1493))) !appl_1494 <- kl_V3172h `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3172h kl_V3437) appl_1494 `pseq` applyWrapper appl_1063 [appl_1494] pat_cond_1495 = do do return (Atom (B False)) in case kl_V3172 of !(kl_V3172@(Cons (!kl_V3172h) (!kl_V3172t))) -> pat_cond_1062 kl_V3172 kl_V3172h kl_V3172t _ -> pat_cond_1495))) !appl_1496 <- kl_V3435 `pseq` (kl_V3437 `pseq` kl_shen_lazyderef kl_V3435 kl_V3437) !appl_1497 <- appl_1496 `pseq` applyWrapper appl_1061 [appl_1496] appl_1497 `pseq` applyWrapper appl_0 [appl_1497] kl_shen_show :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_show (!kl_V3455) (!kl_V3456) (!kl_V3457) (!kl_V3458) = do !kl_if_0 <- value (Types.Atom (Types.UnboundSym "shen.*spy*")) case kl_if_0 of Atom (B (True)) -> do !appl_1 <- kl_shen_line !appl_2 <- kl_V3455 `pseq` (kl_V3457 `pseq` kl_shen_deref kl_V3455 kl_V3457) !appl_3 <- appl_2 `pseq` kl_shen_show_p appl_2 !appl_4 <- kl_nl (Types.Atom (Types.N (Types.KI 1))) !appl_5 <- kl_nl (Types.Atom (Types.N (Types.KI 1))) !appl_6 <- kl_V3456 `pseq` (kl_V3457 `pseq` kl_shen_deref kl_V3456 kl_V3457) !appl_7 <- appl_6 `pseq` kl_shen_show_assumptions appl_6 (Types.Atom (Types.N (Types.KI 1))) !appl_8 <- kl_stoutput !appl_9 <- appl_8 `pseq` kl_shen_prhush (Types.Atom (Types.Str "\n> ")) appl_8 !appl_10 <- kl_shen_pause_for_user !appl_11 <- kl_V3458 `pseq` kl_thaw kl_V3458 !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_V3458 `pseq` kl_thaw kl_V3458 _ -> throwError "if: expected boolean" kl_shen_line :: Types.KLContext Types.Env Types.KLValue kl_shen_line = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Infs) -> do !appl_1 <- let pat_cond_2 = do return (Types.Atom (Types.Str "")) pat_cond_3 = do do return (Types.Atom (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 (Types.Atom (Types.Str " \n?- ")) (Types.Atom (Types.UnboundSym "shen.a")) !appl_5 <- appl_4 `pseq` cn (Types.Atom (Types.Str " inference")) appl_4 !appl_6 <- kl_Infs `pseq` (appl_5 `pseq` kl_shen_app kl_Infs appl_5 (Types.Atom (Types.UnboundSym "shen.a"))) !appl_7 <- appl_6 `pseq` cn (Types.Atom (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 :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_show_p (!kl_V3460) = do let pat_cond_0 kl_V3460 kl_V3460h kl_V3460t kl_V3460tt kl_V3460tth = do !appl_1 <- kl_V3460tth `pseq` kl_shen_app kl_V3460tth (Types.Atom (Types.Str "")) (Types.Atom (Types.UnboundSym "shen.r")) !appl_2 <- appl_1 `pseq` cn (Types.Atom (Types.Str " : ")) appl_1 !appl_3 <- kl_V3460h `pseq` (appl_2 `pseq` kl_shen_app kl_V3460h appl_2 (Types.Atom (Types.UnboundSym "shen.r"))) !appl_4 <- kl_stoutput appl_3 `pseq` (appl_4 `pseq` kl_shen_prhush appl_3 appl_4) pat_cond_5 = do do !appl_6 <- kl_V3460 `pseq` kl_shen_app kl_V3460 (Types.Atom (Types.Str "")) (Types.Atom (Types.UnboundSym "shen.r")) !appl_7 <- kl_stoutput appl_6 `pseq` (appl_7 `pseq` kl_shen_prhush appl_6 appl_7) in case kl_V3460 of !(kl_V3460@(Cons (!kl_V3460h) (!(kl_V3460t@(Cons (Atom (UnboundSym ":")) (!(kl_V3460tt@(Cons (!kl_V3460tth) (Atom (Nil)))))))))) -> pat_cond_0 kl_V3460 kl_V3460h kl_V3460t kl_V3460tt kl_V3460tth !(kl_V3460@(Cons (!kl_V3460h) (!(kl_V3460t@(Cons (ApplC (PL ":" _)) (!(kl_V3460tt@(Cons (!kl_V3460tth) (Atom (Nil)))))))))) -> pat_cond_0 kl_V3460 kl_V3460h kl_V3460t kl_V3460tt kl_V3460tth !(kl_V3460@(Cons (!kl_V3460h) (!(kl_V3460t@(Cons (ApplC (Func ":" _)) (!(kl_V3460tt@(Cons (!kl_V3460tth) (Atom (Nil)))))))))) -> pat_cond_0 kl_V3460 kl_V3460h kl_V3460t kl_V3460tt kl_V3460tth _ -> pat_cond_5 kl_shen_show_assumptions :: Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_show_assumptions (!kl_V3465) (!kl_V3466) = do let pat_cond_0 = do return (Types.Atom (Types.UnboundSym "shen.skip")) pat_cond_1 kl_V3465 kl_V3465h kl_V3465t = do !appl_2 <- kl_V3466 `pseq` kl_shen_app kl_V3466 (Types.Atom (Types.Str ". ")) (Types.Atom (Types.UnboundSym "shen.a")) !appl_3 <- kl_stoutput !appl_4 <- appl_2 `pseq` (appl_3 `pseq` kl_shen_prhush appl_2 appl_3) !appl_5 <- kl_V3465h `pseq` kl_shen_show_p kl_V3465h !appl_6 <- kl_nl (Types.Atom (Types.N (Types.KI 1))) !appl_7 <- kl_V3466 `pseq` add kl_V3466 (Types.Atom (Types.N (Types.KI 1))) !appl_8 <- kl_V3465t `pseq` (appl_7 `pseq` kl_shen_show_assumptions kl_V3465t appl_7) !appl_9 <- appl_6 `pseq` (appl_8 `pseq` kl_do appl_6 appl_8) !appl_10 <- appl_5 `pseq` (appl_9 `pseq` kl_do appl_5 appl_9) appl_4 `pseq` (appl_10 `pseq` kl_do appl_4 appl_10) pat_cond_11 = do do kl_shen_f_error (ApplC (wrapNamed "shen.show-assumptions" kl_shen_show_assumptions)) in case kl_V3465 of kl_V3465@(Atom (Nil)) -> pat_cond_0 !(kl_V3465@(Cons (!kl_V3465h) (!kl_V3465t))) -> pat_cond_1 kl_V3465 kl_V3465h kl_V3465t _ -> pat_cond_11 kl_shen_pause_for_user :: Types.KLContext Types.Env Types.KLValue kl_shen_pause_for_user = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Byte) -> do let pat_cond_1 = do simpleError (Types.Atom (Types.Str "input aborted\n")) pat_cond_2 = do do kl_nl (Types.Atom (Types.N (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 :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_typedfP (!kl_V3468) = do !appl_0 <- value (Types.Atom (Types.UnboundSym "shen.*signedfuncs*")) !appl_1 <- kl_V3468 `pseq` (appl_0 `pseq` kl_assoc kl_V3468 appl_0) appl_1 `pseq` consP appl_1 kl_shen_sigf :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_sigf (!kl_V3470) = do kl_V3470 `pseq` kl_concat (Types.Atom (Types.UnboundSym "shen.type-signature-of-")) kl_V3470 kl_shen_placeholder :: Types.KLContext Types.Env Types.KLValue kl_shen_placeholder = do kl_gensym (Types.Atom (Types.UnboundSym "&&")) kl_shen_base :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_base (!kl_V3475) (!kl_V3476) (!kl_V3477) (!kl_V3478) = 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_V3163) -> do let pat_cond_9 = do let !appl_10 = ApplC (Func "lambda" (Context (\(!kl_V3164) -> do let pat_cond_11 kl_V3164 kl_V3164h kl_V3164t = do let !appl_12 = ApplC (Func "lambda" (Context (\(!kl_V3165) -> do let pat_cond_13 = do let !appl_14 = ApplC (Func "lambda" (Context (\(!kl_V3166) -> do let pat_cond_15 kl_V3166 kl_V3166h kl_V3166t = do let !appl_16 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_17 = ApplC (Func "lambda" (Context (\(!kl_V3167) -> do let pat_cond_18 = do !appl_19 <- kl_shen_incinfs !appl_20 <- kl_V3478 `pseq` kl_thaw kl_V3478 appl_19 `pseq` (appl_20 `pseq` kl_do appl_19 appl_20) pat_cond_21 = do do !kl_if_22 <- kl_V3167 `pseq` kl_shen_pvarP kl_V3167 case kl_if_22 of Atom (B (True)) -> do !appl_23 <- kl_V3167 `pseq` (kl_V3477 `pseq` kl_shen_bindv kl_V3167 (Types.Atom Types.Nil) kl_V3477) let !appl_24 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_25 <- kl_V3167 `pseq` (kl_V3477 `pseq` kl_shen_unbindv kl_V3167 kl_V3477) appl_25 `pseq` (kl_Result `pseq` kl_do appl_25 kl_Result)))) !appl_26 <- kl_shen_incinfs !appl_27 <- kl_V3478 `pseq` kl_thaw kl_V3478 !appl_28 <- appl_26 `pseq` (appl_27 `pseq` kl_do appl_26 appl_27) !appl_29 <- appl_28 `pseq` applyWrapper appl_24 [appl_28] appl_23 `pseq` (appl_29 `pseq` kl_do appl_23 appl_29) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3167 of kl_V3167@(Atom (Nil)) -> pat_cond_18 _ -> pat_cond_21))) !appl_30 <- kl_V3166t `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3166t kl_V3477) appl_30 `pseq` applyWrapper appl_17 [appl_30]))) kl_V3166h `pseq` applyWrapper appl_16 [kl_V3166h] pat_cond_31 = do do !kl_if_32 <- kl_V3166 `pseq` kl_shen_pvarP kl_V3166 case kl_if_32 of Atom (B (True)) -> do let !appl_33 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_34 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_35 <- kl_V3166 `pseq` (appl_34 `pseq` (kl_V3477 `pseq` kl_shen_bindv kl_V3166 appl_34 kl_V3477)) let !appl_36 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_37 <- kl_V3166 `pseq` (kl_V3477 `pseq` kl_shen_unbindv kl_V3166 kl_V3477) appl_37 `pseq` (kl_Result `pseq` kl_do appl_37 kl_Result)))) !appl_38 <- kl_shen_incinfs !appl_39 <- kl_V3478 `pseq` kl_thaw kl_V3478 !appl_40 <- appl_38 `pseq` (appl_39 `pseq` kl_do appl_38 appl_39) !appl_41 <- appl_40 `pseq` applyWrapper appl_36 [appl_40] appl_35 `pseq` (appl_41 `pseq` kl_do appl_35 appl_41)))) !appl_42 <- kl_V3477 `pseq` kl_shen_newpv kl_V3477 appl_42 `pseq` applyWrapper appl_33 [appl_42] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3166 of !(kl_V3166@(Cons (!kl_V3166h) (!kl_V3166t))) -> pat_cond_15 kl_V3166 kl_V3166h kl_V3166t _ -> pat_cond_31))) !appl_43 <- kl_V3164t `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3164t kl_V3477) appl_43 `pseq` applyWrapper appl_14 [appl_43] pat_cond_44 = do do !kl_if_45 <- kl_V3165 `pseq` kl_shen_pvarP kl_V3165 case kl_if_45 of Atom (B (True)) -> do !appl_46 <- kl_V3165 `pseq` (kl_V3477 `pseq` kl_shen_bindv kl_V3165 (Types.Atom (Types.UnboundSym "list")) kl_V3477) let !appl_47 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_48 <- kl_V3165 `pseq` (kl_V3477 `pseq` kl_shen_unbindv kl_V3165 kl_V3477) appl_48 `pseq` (kl_Result `pseq` kl_do appl_48 kl_Result)))) let !appl_49 = ApplC (Func "lambda" (Context (\(!kl_V3168) -> do let pat_cond_50 kl_V3168 kl_V3168h kl_V3168t = do let !appl_51 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_52 = ApplC (Func "lambda" (Context (\(!kl_V3169) -> do let pat_cond_53 = do !appl_54 <- kl_shen_incinfs !appl_55 <- kl_V3478 `pseq` kl_thaw kl_V3478 appl_54 `pseq` (appl_55 `pseq` kl_do appl_54 appl_55) pat_cond_56 = do do !kl_if_57 <- kl_V3169 `pseq` kl_shen_pvarP kl_V3169 case kl_if_57 of Atom (B (True)) -> do !appl_58 <- kl_V3169 `pseq` (kl_V3477 `pseq` kl_shen_bindv kl_V3169 (Types.Atom Types.Nil) kl_V3477) let !appl_59 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_60 <- kl_V3169 `pseq` (kl_V3477 `pseq` kl_shen_unbindv kl_V3169 kl_V3477) appl_60 `pseq` (kl_Result `pseq` kl_do appl_60 kl_Result)))) !appl_61 <- kl_shen_incinfs !appl_62 <- kl_V3478 `pseq` kl_thaw kl_V3478 !appl_63 <- appl_61 `pseq` (appl_62 `pseq` kl_do appl_61 appl_62) !appl_64 <- appl_63 `pseq` applyWrapper appl_59 [appl_63] appl_58 `pseq` (appl_64 `pseq` kl_do appl_58 appl_64) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3169 of kl_V3169@(Atom (Nil)) -> pat_cond_53 _ -> pat_cond_56))) !appl_65 <- kl_V3168t `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3168t kl_V3477) appl_65 `pseq` applyWrapper appl_52 [appl_65]))) kl_V3168h `pseq` applyWrapper appl_51 [kl_V3168h] pat_cond_66 = do do !kl_if_67 <- kl_V3168 `pseq` kl_shen_pvarP kl_V3168 case kl_if_67 of Atom (B (True)) -> do let !appl_68 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_69 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_70 <- kl_V3168 `pseq` (appl_69 `pseq` (kl_V3477 `pseq` kl_shen_bindv kl_V3168 appl_69 kl_V3477)) let !appl_71 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_72 <- kl_V3168 `pseq` (kl_V3477 `pseq` kl_shen_unbindv kl_V3168 kl_V3477) appl_72 `pseq` (kl_Result `pseq` kl_do appl_72 kl_Result)))) !appl_73 <- kl_shen_incinfs !appl_74 <- kl_V3478 `pseq` kl_thaw kl_V3478 !appl_75 <- appl_73 `pseq` (appl_74 `pseq` kl_do appl_73 appl_74) !appl_76 <- appl_75 `pseq` applyWrapper appl_71 [appl_75] appl_70 `pseq` (appl_76 `pseq` kl_do appl_70 appl_76)))) !appl_77 <- kl_V3477 `pseq` kl_shen_newpv kl_V3477 appl_77 `pseq` applyWrapper appl_68 [appl_77] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3168 of !(kl_V3168@(Cons (!kl_V3168h) (!kl_V3168t))) -> pat_cond_50 kl_V3168 kl_V3168h kl_V3168t _ -> pat_cond_66))) !appl_78 <- kl_V3164t `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3164t kl_V3477) !appl_79 <- appl_78 `pseq` applyWrapper appl_49 [appl_78] !appl_80 <- appl_79 `pseq` applyWrapper appl_47 [appl_79] appl_46 `pseq` (appl_80 `pseq` kl_do appl_46 appl_80) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3165 of kl_V3165@(Atom (UnboundSym "list")) -> pat_cond_13 kl_V3165@(ApplC (PL "list" _)) -> pat_cond_13 kl_V3165@(ApplC (Func "list" _)) -> pat_cond_13 _ -> pat_cond_44))) !appl_81 <- kl_V3164h `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3164h kl_V3477) appl_81 `pseq` applyWrapper appl_12 [appl_81] pat_cond_82 = do do !kl_if_83 <- kl_V3164 `pseq` kl_shen_pvarP kl_V3164 case kl_if_83 of Atom (B (True)) -> do let !appl_84 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_85 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_86 <- appl_85 `pseq` klCons (Types.Atom (Types.UnboundSym "list")) appl_85 !appl_87 <- kl_V3164 `pseq` (appl_86 `pseq` (kl_V3477 `pseq` kl_shen_bindv kl_V3164 appl_86 kl_V3477)) let !appl_88 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_89 <- kl_V3164 `pseq` (kl_V3477 `pseq` kl_shen_unbindv kl_V3164 kl_V3477) appl_89 `pseq` (kl_Result `pseq` kl_do appl_89 kl_Result)))) !appl_90 <- kl_shen_incinfs !appl_91 <- kl_V3478 `pseq` kl_thaw kl_V3478 !appl_92 <- appl_90 `pseq` (appl_91 `pseq` kl_do appl_90 appl_91) !appl_93 <- appl_92 `pseq` applyWrapper appl_88 [appl_92] appl_87 `pseq` (appl_93 `pseq` kl_do appl_87 appl_93)))) !appl_94 <- kl_V3477 `pseq` kl_shen_newpv kl_V3477 appl_94 `pseq` applyWrapper appl_84 [appl_94] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3164 of !(kl_V3164@(Cons (!kl_V3164h) (!kl_V3164t))) -> pat_cond_11 kl_V3164 kl_V3164h kl_V3164t _ -> pat_cond_82))) !appl_95 <- kl_V3476 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3476 kl_V3477) appl_95 `pseq` applyWrapper appl_10 [appl_95] pat_cond_96 = do do return (Atom (B False)) in case kl_V3163 of kl_V3163@(Atom (Nil)) -> pat_cond_9 _ -> pat_cond_96))) !appl_97 <- kl_V3475 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3475 kl_V3477) appl_97 `pseq` applyWrapper appl_8 [appl_97] pat_cond_98 = 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_98))) let !appl_99 = ApplC (Func "lambda" (Context (\(!kl_V3162) -> do let pat_cond_100 = do !appl_101 <- kl_shen_incinfs !appl_102 <- kl_V3475 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3475 kl_V3477) !appl_103 <- appl_102 `pseq` kl_symbolP appl_102 let !appl_104 = ApplC (PL "thunk" (do !appl_105 <- kl_V3475 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3475 kl_V3477) !appl_106 <- appl_105 `pseq` kl_shen_ueP appl_105 !appl_107 <- appl_106 `pseq` kl_not appl_106 appl_107 `pseq` (kl_V3477 `pseq` (kl_V3478 `pseq` kl_fwhen appl_107 kl_V3477 kl_V3478)))) !appl_108 <- appl_103 `pseq` (kl_V3477 `pseq` (appl_104 `pseq` kl_fwhen appl_103 kl_V3477 appl_104)) appl_101 `pseq` (appl_108 `pseq` kl_do appl_101 appl_108) pat_cond_109 = do do !kl_if_110 <- kl_V3162 `pseq` kl_shen_pvarP kl_V3162 case kl_if_110 of Atom (B (True)) -> do !appl_111 <- kl_V3162 `pseq` (kl_V3477 `pseq` kl_shen_bindv kl_V3162 (Types.Atom (Types.UnboundSym "symbol")) kl_V3477) let !appl_112 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_113 <- kl_V3162 `pseq` (kl_V3477 `pseq` kl_shen_unbindv kl_V3162 kl_V3477) appl_113 `pseq` (kl_Result `pseq` kl_do appl_113 kl_Result)))) !appl_114 <- kl_shen_incinfs !appl_115 <- kl_V3475 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3475 kl_V3477) !appl_116 <- appl_115 `pseq` kl_symbolP appl_115 let !appl_117 = ApplC (PL "thunk" (do !appl_118 <- kl_V3475 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3475 kl_V3477) !appl_119 <- appl_118 `pseq` kl_shen_ueP appl_118 !appl_120 <- appl_119 `pseq` kl_not appl_119 appl_120 `pseq` (kl_V3477 `pseq` (kl_V3478 `pseq` kl_fwhen appl_120 kl_V3477 kl_V3478)))) !appl_121 <- appl_116 `pseq` (kl_V3477 `pseq` (appl_117 `pseq` kl_fwhen appl_116 kl_V3477 appl_117)) !appl_122 <- appl_114 `pseq` (appl_121 `pseq` kl_do appl_114 appl_121) !appl_123 <- appl_122 `pseq` applyWrapper appl_112 [appl_122] appl_111 `pseq` (appl_123 `pseq` kl_do appl_111 appl_123) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3162 of kl_V3162@(Atom (UnboundSym "symbol")) -> pat_cond_100 kl_V3162@(ApplC (PL "symbol" _)) -> pat_cond_100 kl_V3162@(ApplC (Func "symbol" _)) -> pat_cond_100 _ -> pat_cond_109))) !appl_124 <- kl_V3476 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3476 kl_V3477) !appl_125 <- appl_124 `pseq` applyWrapper appl_99 [appl_124] appl_125 `pseq` applyWrapper appl_6 [appl_125] pat_cond_126 = 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_126))) let !appl_127 = ApplC (Func "lambda" (Context (\(!kl_V3161) -> do let pat_cond_128 = do !appl_129 <- kl_shen_incinfs !appl_130 <- kl_V3475 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3475 kl_V3477) !appl_131 <- appl_130 `pseq` stringP appl_130 !appl_132 <- appl_131 `pseq` (kl_V3477 `pseq` (kl_V3478 `pseq` kl_fwhen appl_131 kl_V3477 kl_V3478)) appl_129 `pseq` (appl_132 `pseq` kl_do appl_129 appl_132) pat_cond_133 = do do !kl_if_134 <- kl_V3161 `pseq` kl_shen_pvarP kl_V3161 case kl_if_134 of Atom (B (True)) -> do !appl_135 <- kl_V3161 `pseq` (kl_V3477 `pseq` kl_shen_bindv kl_V3161 (Types.Atom (Types.UnboundSym "string")) kl_V3477) let !appl_136 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_137 <- kl_V3161 `pseq` (kl_V3477 `pseq` kl_shen_unbindv kl_V3161 kl_V3477) appl_137 `pseq` (kl_Result `pseq` kl_do appl_137 kl_Result)))) !appl_138 <- kl_shen_incinfs !appl_139 <- kl_V3475 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3475 kl_V3477) !appl_140 <- appl_139 `pseq` stringP appl_139 !appl_141 <- appl_140 `pseq` (kl_V3477 `pseq` (kl_V3478 `pseq` kl_fwhen appl_140 kl_V3477 kl_V3478)) !appl_142 <- appl_138 `pseq` (appl_141 `pseq` kl_do appl_138 appl_141) !appl_143 <- appl_142 `pseq` applyWrapper appl_136 [appl_142] appl_135 `pseq` (appl_143 `pseq` kl_do appl_135 appl_143) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3161 of kl_V3161@(Atom (UnboundSym "string")) -> pat_cond_128 kl_V3161@(ApplC (PL "string" _)) -> pat_cond_128 kl_V3161@(ApplC (Func "string" _)) -> pat_cond_128 _ -> pat_cond_133))) !appl_144 <- kl_V3476 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3476 kl_V3477) !appl_145 <- appl_144 `pseq` applyWrapper appl_127 [appl_144] appl_145 `pseq` applyWrapper appl_4 [appl_145] pat_cond_146 = 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_146))) let !appl_147 = ApplC (Func "lambda" (Context (\(!kl_V3160) -> do let pat_cond_148 = do !appl_149 <- kl_shen_incinfs !appl_150 <- kl_V3475 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3475 kl_V3477) !appl_151 <- appl_150 `pseq` kl_booleanP appl_150 !appl_152 <- appl_151 `pseq` (kl_V3477 `pseq` (kl_V3478 `pseq` kl_fwhen appl_151 kl_V3477 kl_V3478)) appl_149 `pseq` (appl_152 `pseq` kl_do appl_149 appl_152) pat_cond_153 = do do !kl_if_154 <- kl_V3160 `pseq` kl_shen_pvarP kl_V3160 case kl_if_154 of Atom (B (True)) -> do !appl_155 <- kl_V3160 `pseq` (kl_V3477 `pseq` kl_shen_bindv kl_V3160 (Types.Atom (Types.UnboundSym "boolean")) kl_V3477) let !appl_156 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_157 <- kl_V3160 `pseq` (kl_V3477 `pseq` kl_shen_unbindv kl_V3160 kl_V3477) appl_157 `pseq` (kl_Result `pseq` kl_do appl_157 kl_Result)))) !appl_158 <- kl_shen_incinfs !appl_159 <- kl_V3475 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3475 kl_V3477) !appl_160 <- appl_159 `pseq` kl_booleanP appl_159 !appl_161 <- appl_160 `pseq` (kl_V3477 `pseq` (kl_V3478 `pseq` kl_fwhen appl_160 kl_V3477 kl_V3478)) !appl_162 <- appl_158 `pseq` (appl_161 `pseq` kl_do appl_158 appl_161) !appl_163 <- appl_162 `pseq` applyWrapper appl_156 [appl_162] appl_155 `pseq` (appl_163 `pseq` kl_do appl_155 appl_163) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3160 of kl_V3160@(Atom (UnboundSym "boolean")) -> pat_cond_148 kl_V3160@(ApplC (PL "boolean" _)) -> pat_cond_148 kl_V3160@(ApplC (Func "boolean" _)) -> pat_cond_148 _ -> pat_cond_153))) !appl_164 <- kl_V3476 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3476 kl_V3477) !appl_165 <- appl_164 `pseq` applyWrapper appl_147 [appl_164] appl_165 `pseq` applyWrapper appl_2 [appl_165] pat_cond_166 = 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_166))) let !appl_167 = ApplC (Func "lambda" (Context (\(!kl_V3159) -> do let pat_cond_168 = do !appl_169 <- kl_shen_incinfs !appl_170 <- kl_V3475 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3475 kl_V3477) !appl_171 <- appl_170 `pseq` numberP appl_170 !appl_172 <- appl_171 `pseq` (kl_V3477 `pseq` (kl_V3478 `pseq` kl_fwhen appl_171 kl_V3477 kl_V3478)) appl_169 `pseq` (appl_172 `pseq` kl_do appl_169 appl_172) pat_cond_173 = do do !kl_if_174 <- kl_V3159 `pseq` kl_shen_pvarP kl_V3159 case kl_if_174 of Atom (B (True)) -> do !appl_175 <- kl_V3159 `pseq` (kl_V3477 `pseq` kl_shen_bindv kl_V3159 (Types.Atom (Types.UnboundSym "number")) kl_V3477) let !appl_176 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_177 <- kl_V3159 `pseq` (kl_V3477 `pseq` kl_shen_unbindv kl_V3159 kl_V3477) appl_177 `pseq` (kl_Result `pseq` kl_do appl_177 kl_Result)))) !appl_178 <- kl_shen_incinfs !appl_179 <- kl_V3475 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3475 kl_V3477) !appl_180 <- appl_179 `pseq` numberP appl_179 !appl_181 <- appl_180 `pseq` (kl_V3477 `pseq` (kl_V3478 `pseq` kl_fwhen appl_180 kl_V3477 kl_V3478)) !appl_182 <- appl_178 `pseq` (appl_181 `pseq` kl_do appl_178 appl_181) !appl_183 <- appl_182 `pseq` applyWrapper appl_176 [appl_182] appl_175 `pseq` (appl_183 `pseq` kl_do appl_175 appl_183) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3159 of kl_V3159@(Atom (UnboundSym "number")) -> pat_cond_168 kl_V3159@(ApplC (PL "number" _)) -> pat_cond_168 kl_V3159@(ApplC (Func "number" _)) -> pat_cond_168 _ -> pat_cond_173))) !appl_184 <- kl_V3476 `pseq` (kl_V3477 `pseq` kl_shen_lazyderef kl_V3476 kl_V3477) !appl_185 <- appl_184 `pseq` applyWrapper appl_167 [appl_184] appl_185 `pseq` applyWrapper appl_0 [appl_185] kl_shen_by_hypothesis :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_by_hypothesis (!kl_V3484) (!kl_V3485) (!kl_V3486) (!kl_V3487) (!kl_V3488) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_V3156) -> do let pat_cond_3 kl_V3156 kl_V3156h kl_V3156t = do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_Hyp) -> do !appl_5 <- kl_shen_incinfs !appl_6 <- kl_V3484 `pseq` (kl_V3485 `pseq` (kl_Hyp `pseq` (kl_V3487 `pseq` (kl_V3488 `pseq` kl_shen_by_hypothesis kl_V3484 kl_V3485 kl_Hyp kl_V3487 kl_V3488)))) appl_5 `pseq` (appl_6 `pseq` kl_do appl_5 appl_6)))) kl_V3156t `pseq` applyWrapper appl_4 [kl_V3156t] pat_cond_7 = do do return (Atom (B False)) in case kl_V3156 of !(kl_V3156@(Cons (!kl_V3156h) (!kl_V3156t))) -> pat_cond_3 kl_V3156 kl_V3156h kl_V3156t _ -> pat_cond_7))) !appl_8 <- kl_V3486 `pseq` (kl_V3487 `pseq` kl_shen_lazyderef kl_V3486 kl_V3487) 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_V3150) -> do let pat_cond_11 kl_V3150 kl_V3150h kl_V3150t = do let !appl_12 = ApplC (Func "lambda" (Context (\(!kl_V3151) -> do let pat_cond_13 kl_V3151 kl_V3151h kl_V3151t = do let !appl_14 = ApplC (Func "lambda" (Context (\(!kl_Y) -> do let !appl_15 = ApplC (Func "lambda" (Context (\(!kl_V3152) -> do let pat_cond_16 kl_V3152 kl_V3152h kl_V3152t = do let !appl_17 = ApplC (Func "lambda" (Context (\(!kl_V3153) -> do let pat_cond_18 = do let !appl_19 = ApplC (Func "lambda" (Context (\(!kl_V3154) -> do let pat_cond_20 kl_V3154 kl_V3154h kl_V3154t = do let !appl_21 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_22 = ApplC (Func "lambda" (Context (\(!kl_V3155) -> do let pat_cond_23 = do !appl_24 <- kl_shen_incinfs let !appl_25 = ApplC (PL "thunk" (do kl_V3485 `pseq` (kl_B `pseq` (kl_V3487 `pseq` (kl_V3488 `pseq` kl_unifyExcl kl_V3485 kl_B kl_V3487 kl_V3488))))) !appl_26 <- kl_V3484 `pseq` (kl_Y `pseq` (kl_V3487 `pseq` (appl_25 `pseq` kl_identical kl_V3484 kl_Y kl_V3487 appl_25))) appl_24 `pseq` (appl_26 `pseq` kl_do appl_24 appl_26) pat_cond_27 = do do return (Atom (B False)) in case kl_V3155 of kl_V3155@(Atom (Nil)) -> pat_cond_23 _ -> pat_cond_27))) !appl_28 <- kl_V3154t `pseq` (kl_V3487 `pseq` kl_shen_lazyderef kl_V3154t kl_V3487) appl_28 `pseq` applyWrapper appl_22 [appl_28]))) kl_V3154h `pseq` applyWrapper appl_21 [kl_V3154h] pat_cond_29 = do do return (Atom (B False)) in case kl_V3154 of !(kl_V3154@(Cons (!kl_V3154h) (!kl_V3154t))) -> pat_cond_20 kl_V3154 kl_V3154h kl_V3154t _ -> pat_cond_29))) !appl_30 <- kl_V3152t `pseq` (kl_V3487 `pseq` kl_shen_lazyderef kl_V3152t kl_V3487) appl_30 `pseq` applyWrapper appl_19 [appl_30] pat_cond_31 = do do return (Atom (B False)) in case kl_V3153 of kl_V3153@(Atom (UnboundSym ":")) -> pat_cond_18 kl_V3153@(ApplC (PL ":" _)) -> pat_cond_18 kl_V3153@(ApplC (Func ":" _)) -> pat_cond_18 _ -> pat_cond_31))) !appl_32 <- kl_V3152h `pseq` (kl_V3487 `pseq` kl_shen_lazyderef kl_V3152h kl_V3487) appl_32 `pseq` applyWrapper appl_17 [appl_32] pat_cond_33 = do do return (Atom (B False)) in case kl_V3152 of !(kl_V3152@(Cons (!kl_V3152h) (!kl_V3152t))) -> pat_cond_16 kl_V3152 kl_V3152h kl_V3152t _ -> pat_cond_33))) !appl_34 <- kl_V3151t `pseq` (kl_V3487 `pseq` kl_shen_lazyderef kl_V3151t kl_V3487) appl_34 `pseq` applyWrapper appl_15 [appl_34]))) kl_V3151h `pseq` applyWrapper appl_14 [kl_V3151h] pat_cond_35 = do do return (Atom (B False)) in case kl_V3151 of !(kl_V3151@(Cons (!kl_V3151h) (!kl_V3151t))) -> pat_cond_13 kl_V3151 kl_V3151h kl_V3151t _ -> pat_cond_35))) !appl_36 <- kl_V3150h `pseq` (kl_V3487 `pseq` kl_shen_lazyderef kl_V3150h kl_V3487) appl_36 `pseq` applyWrapper appl_12 [appl_36] pat_cond_37 = do do return (Atom (B False)) in case kl_V3150 of !(kl_V3150@(Cons (!kl_V3150h) (!kl_V3150t))) -> pat_cond_11 kl_V3150 kl_V3150h kl_V3150t _ -> pat_cond_37))) !appl_38 <- kl_V3486 `pseq` (kl_V3487 `pseq` kl_shen_lazyderef kl_V3486 kl_V3487) !appl_39 <- appl_38 `pseq` applyWrapper appl_10 [appl_38] appl_39 `pseq` applyWrapper appl_0 [appl_39] kl_shen_tMult_def :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_tMult_def (!kl_V3494) (!kl_V3495) (!kl_V3496) (!kl_V3497) (!kl_V3498) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_V3144) -> do let pat_cond_1 kl_V3144 kl_V3144h kl_V3144t = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_V3145) -> do let pat_cond_3 = do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_V3146) -> do let pat_cond_5 kl_V3146 kl_V3146h kl_V3146t = 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 (Types.Atom (Types.Str "\n")) (Types.Atom (Types.UnboundSym "shen.s")) !appl_15 <- appl_14 `pseq` cn (Types.Atom (Types.Str "parse error here: ")) appl_14 appl_15 `pseq` simpleError appl_15 pat_cond_16 = do do simpleError (Types.Atom (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_V3495 `pseq` (kl_V3496 `pseq` (kl_V3497 `pseq` (kl_V3498 `pseq` kl_shen_tMult_defh appl_17 kl_F kl_V3495 kl_V3496 kl_V3497 kl_V3498))))) appl_10 `pseq` (appl_18 `pseq` kl_do appl_10 appl_18)))) !appl_19 <- kl_V3497 `pseq` kl_shen_newpv kl_V3497 appl_19 `pseq` applyWrapper appl_9 [appl_19]))) !appl_20 <- kl_V3497 `pseq` kl_shen_newpv kl_V3497 appl_20 `pseq` applyWrapper appl_8 [appl_20]))) kl_V3146t `pseq` applyWrapper appl_7 [kl_V3146t]))) kl_V3146h `pseq` applyWrapper appl_6 [kl_V3146h] pat_cond_21 = do do return (Atom (B False)) in case kl_V3146 of !(kl_V3146@(Cons (!kl_V3146h) (!kl_V3146t))) -> pat_cond_5 kl_V3146 kl_V3146h kl_V3146t _ -> pat_cond_21))) !appl_22 <- kl_V3144t `pseq` (kl_V3497 `pseq` kl_shen_lazyderef kl_V3144t kl_V3497) appl_22 `pseq` applyWrapper appl_4 [appl_22] pat_cond_23 = do do return (Atom (B False)) in case kl_V3145 of kl_V3145@(Atom (UnboundSym "define")) -> pat_cond_3 kl_V3145@(ApplC (PL "define" _)) -> pat_cond_3 kl_V3145@(ApplC (Func "define" _)) -> pat_cond_3 _ -> pat_cond_23))) !appl_24 <- kl_V3144h `pseq` (kl_V3497 `pseq` kl_shen_lazyderef kl_V3144h kl_V3497) appl_24 `pseq` applyWrapper appl_2 [appl_24] pat_cond_25 = do do return (Atom (B False)) in case kl_V3144 of !(kl_V3144@(Cons (!kl_V3144h) (!kl_V3144t))) -> pat_cond_1 kl_V3144 kl_V3144h kl_V3144t _ -> pat_cond_25))) !appl_26 <- kl_V3494 `pseq` (kl_V3497 `pseq` kl_shen_lazyderef kl_V3494 kl_V3497) appl_26 `pseq` applyWrapper appl_0 [appl_26] kl_shen_tMult_defh :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_tMult_defh (!kl_V3505) (!kl_V3506) (!kl_V3507) (!kl_V3508) (!kl_V3509) (!kl_V3510) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_V3140) -> do let pat_cond_1 kl_V3140 kl_V3140h kl_V3140t = 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_V3506 `pseq` (kl_V3507 `pseq` (kl_V3508 `pseq` (kl_Rules `pseq` (kl_V3509 `pseq` (kl_V3510 `pseq` kl_shen_tMult_defhh kl_Sig appl_5 kl_V3506 kl_V3507 kl_V3508 kl_Rules kl_V3509 kl_V3510))))))) appl_4 `pseq` (appl_6 `pseq` kl_do appl_4 appl_6)))) kl_V3140t `pseq` applyWrapper appl_3 [kl_V3140t]))) kl_V3140h `pseq` applyWrapper appl_2 [kl_V3140h] pat_cond_7 = do do return (Atom (B False)) in case kl_V3140 of !(kl_V3140@(Cons (!kl_V3140h) (!kl_V3140t))) -> pat_cond_1 kl_V3140 kl_V3140h kl_V3140t _ -> pat_cond_7))) !appl_8 <- kl_V3505 `pseq` (kl_V3509 `pseq` kl_shen_lazyderef kl_V3505 kl_V3509) appl_8 `pseq` applyWrapper appl_0 [appl_8] kl_shen_tMult_defhh :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_tMult_defhh (!kl_V3519) (!kl_V3520) (!kl_V3521) (!kl_V3522) (!kl_V3523) (!kl_V3524) (!kl_V3525) (!kl_V3526) = do !appl_0 <- kl_shen_incinfs !appl_1 <- kl_V3520 `pseq` klCons kl_V3520 (Types.Atom Types.Nil) !appl_2 <- appl_1 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_1 !appl_3 <- kl_V3521 `pseq` (appl_2 `pseq` klCons kl_V3521 appl_2) !appl_4 <- appl_3 `pseq` (kl_V3523 `pseq` klCons appl_3 kl_V3523) let !appl_5 = ApplC (PL "thunk" (do kl_V3521 `pseq` (kl_V3519 `pseq` (kl_V3522 `pseq` (kl_V3525 `pseq` (kl_V3526 `pseq` kl_shen_memo kl_V3521 kl_V3519 kl_V3522 kl_V3525 kl_V3526)))))) !appl_6 <- kl_V3524 `pseq` (kl_V3520 `pseq` (kl_V3521 `pseq` (appl_4 `pseq` (kl_V3525 `pseq` (appl_5 `pseq` kl_shen_tMult_rules kl_V3524 kl_V3520 (Types.Atom (Types.N (Types.KI 1))) kl_V3521 appl_4 kl_V3525 appl_5))))) appl_0 `pseq` (appl_6 `pseq` kl_do appl_0 appl_6) kl_shen_memo :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_memo (!kl_V3532) (!kl_V3533) (!kl_V3534) (!kl_V3535) (!kl_V3536) = 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_V3532 `pseq` (kl_V3535 `pseq` kl_shen_lazyderef kl_V3532 kl_V3535) !appl_4 <- kl_V3534 `pseq` (kl_V3535 `pseq` kl_shen_lazyderef kl_V3534 kl_V3535) !appl_5 <- appl_3 `pseq` (appl_4 `pseq` kl_declare appl_3 appl_4) kl_Jnk `pseq` (appl_5 `pseq` (kl_V3535 `pseq` (kl_V3536 `pseq` kl_bind kl_Jnk appl_5 kl_V3535 kl_V3536))))) !appl_6 <- kl_V3534 `pseq` (kl_V3533 `pseq` (kl_V3535 `pseq` (appl_2 `pseq` kl_unifyExcl kl_V3534 kl_V3533 kl_V3535 appl_2))) appl_1 `pseq` (appl_6 `pseq` kl_do appl_1 appl_6)))) !appl_7 <- kl_V3535 `pseq` kl_shen_newpv kl_V3535 appl_7 `pseq` applyWrapper appl_0 [appl_7] kl_shen_LBsigPlusrulesRB :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_LBsigPlusrulesRB (!kl_V3538) = 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_V3538 `pseq` kl_shen_LBsignatureRB kl_V3538 appl_13 `pseq` applyWrapper appl_0 [appl_13] kl_shen_LBnon_ll_rulesRB :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_LBnon_ll_rulesRB (!kl_V3540) = 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 !appl_9 <- appl_8 `pseq` klCons appl_8 (Types.Atom Types.Nil) appl_7 `pseq` (appl_9 `pseq` kl_shen_pair appl_7 appl_9) Atom (B (False)) -> do do kl_fail _ -> throwError "if: expected boolean"))) !appl_10 <- kl_V3540 `pseq` kl_shen_LBruleRB kl_V3540 appl_10 `pseq` applyWrapper appl_3 [appl_10] Atom (B (False)) -> do do return kl_YaccParse _ -> throwError "if: expected boolean"))) let !appl_11 = ApplC (Func "lambda" (Context (\(!kl_Parse_shen_LBruleRB) -> do !appl_12 <- kl_fail !appl_13 <- appl_12 `pseq` (kl_Parse_shen_LBruleRB `pseq` eq appl_12 kl_Parse_shen_LBruleRB) !kl_if_14 <- appl_13 `pseq` kl_not appl_13 case kl_if_14 of Atom (B (True)) -> do let !appl_15 = ApplC (Func "lambda" (Context (\(!kl_Parse_shen_LBnon_ll_rulesRB) -> do !appl_16 <- kl_fail !appl_17 <- appl_16 `pseq` (kl_Parse_shen_LBnon_ll_rulesRB `pseq` eq appl_16 kl_Parse_shen_LBnon_ll_rulesRB) !kl_if_18 <- appl_17 `pseq` kl_not appl_17 case kl_if_18 of Atom (B (True)) -> do !appl_19 <- kl_Parse_shen_LBnon_ll_rulesRB `pseq` hd kl_Parse_shen_LBnon_ll_rulesRB !appl_20 <- kl_Parse_shen_LBruleRB `pseq` kl_shen_hdtl kl_Parse_shen_LBruleRB !appl_21 <- kl_Parse_shen_LBnon_ll_rulesRB `pseq` kl_shen_hdtl kl_Parse_shen_LBnon_ll_rulesRB !appl_22 <- appl_20 `pseq` (appl_21 `pseq` klCons appl_20 appl_21) appl_19 `pseq` (appl_22 `pseq` kl_shen_pair appl_19 appl_22) Atom (B (False)) -> do do kl_fail _ -> throwError "if: expected boolean"))) !appl_23 <- kl_Parse_shen_LBruleRB `pseq` kl_shen_LBnon_ll_rulesRB kl_Parse_shen_LBruleRB appl_23 `pseq` applyWrapper appl_15 [appl_23] Atom (B (False)) -> do do kl_fail _ -> throwError "if: expected boolean"))) !appl_24 <- kl_V3540 `pseq` kl_shen_LBruleRB kl_V3540 !appl_25 <- appl_24 `pseq` applyWrapper appl_11 [appl_24] appl_25 `pseq` applyWrapper appl_0 [appl_25] kl_shen_ue :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_ue (!kl_V3542) = do let pat_cond_0 kl_V3542 kl_V3542t kl_V3542th = do return kl_V3542 pat_cond_1 kl_V3542 kl_V3542h kl_V3542t = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do kl_Z `pseq` kl_shen_ue kl_Z))) appl_2 `pseq` (kl_V3542 `pseq` kl_map appl_2 kl_V3542) pat_cond_3 = do !kl_if_4 <- kl_V3542 `pseq` kl_variableP kl_V3542 case kl_if_4 of Atom (B (True)) -> do kl_V3542 `pseq` kl_concat (Types.Atom (Types.UnboundSym "&&")) kl_V3542 Atom (B (False)) -> do do return kl_V3542 _ -> throwError "if: expected boolean" in case kl_V3542 of !(kl_V3542@(Cons (Atom (UnboundSym "protect")) (!(kl_V3542t@(Cons (!kl_V3542th) (Atom (Nil))))))) -> pat_cond_0 kl_V3542 kl_V3542t kl_V3542th !(kl_V3542@(Cons (ApplC (PL "protect" _)) (!(kl_V3542t@(Cons (!kl_V3542th) (Atom (Nil))))))) -> pat_cond_0 kl_V3542 kl_V3542t kl_V3542th !(kl_V3542@(Cons (ApplC (Func "protect" _)) (!(kl_V3542t@(Cons (!kl_V3542th) (Atom (Nil))))))) -> pat_cond_0 kl_V3542 kl_V3542t kl_V3542th !(kl_V3542@(Cons (!kl_V3542h) (!kl_V3542t))) -> pat_cond_1 kl_V3542 kl_V3542h kl_V3542t _ -> pat_cond_3 kl_shen_ue_sig :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_ue_sig (!kl_V3544) = do let pat_cond_0 kl_V3544 kl_V3544h kl_V3544t = do let !appl_1 = ApplC (Func "lambda" (Context (\(!kl_Z) -> do kl_Z `pseq` kl_shen_ue_sig kl_Z))) appl_1 `pseq` (kl_V3544 `pseq` kl_map appl_1 kl_V3544) pat_cond_2 = do !kl_if_3 <- kl_V3544 `pseq` kl_variableP kl_V3544 case kl_if_3 of Atom (B (True)) -> do kl_V3544 `pseq` kl_concat (Types.Atom (Types.UnboundSym "&&&")) kl_V3544 Atom (B (False)) -> do do return kl_V3544 _ -> throwError "if: expected boolean" in case kl_V3544 of !(kl_V3544@(Cons (!kl_V3544h) (!kl_V3544t))) -> pat_cond_0 kl_V3544 kl_V3544h kl_V3544t _ -> pat_cond_2 kl_shen_ues :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_ues (!kl_V3550) = do !kl_if_0 <- kl_V3550 `pseq` kl_shen_ueP kl_V3550 case kl_if_0 of Atom (B (True)) -> do kl_V3550 `pseq` klCons kl_V3550 (Types.Atom Types.Nil) Atom (B (False)) -> do let pat_cond_1 kl_V3550 kl_V3550h kl_V3550t = do !appl_2 <- kl_V3550h `pseq` kl_shen_ues kl_V3550h !appl_3 <- kl_V3550t `pseq` kl_shen_ues kl_V3550t appl_2 `pseq` (appl_3 `pseq` kl_union appl_2 appl_3) pat_cond_4 = do do return (Types.Atom Types.Nil) in case kl_V3550 of !(kl_V3550@(Cons (!kl_V3550h) (!kl_V3550t))) -> pat_cond_1 kl_V3550 kl_V3550h kl_V3550t _ -> pat_cond_4 _ -> throwError "if: expected boolean" kl_shen_ueP :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_ueP (!kl_V3552) = do !kl_if_0 <- kl_V3552 `pseq` kl_symbolP kl_V3552 case kl_if_0 of Atom (B (True)) -> do !appl_1 <- kl_V3552 `pseq` str kl_V3552 !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 :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_ue_hP (!kl_V3560) = do !kl_if_0 <- kl_V3560 `pseq` kl_shen_PlusstringP kl_V3560 !kl_if_1 <- case kl_if_0 of Atom (B (True)) -> do !appl_2 <- kl_V3560 `pseq` pos kl_V3560 (Types.Atom (Types.N (Types.KI 0))) !kl_if_3 <- appl_2 `pseq` eq (Types.Atom (Types.Str "&")) appl_2 !kl_if_4 <- case kl_if_3 of Atom (B (True)) -> do !appl_5 <- kl_V3560 `pseq` tlstr kl_V3560 !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_V3560 `pseq` tlstr kl_V3560 !appl_9 <- appl_8 `pseq` pos appl_8 (Types.Atom (Types.N (Types.KI 0))) !kl_if_10 <- appl_9 `pseq` eq (Types.Atom (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 :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_tMult_rules (!kl_V3568) (!kl_V3569) (!kl_V3570) (!kl_V3571) (!kl_V3572) (!kl_V3573) (!kl_V3574) = 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_V3570 `pseq` (kl_V3573 `pseq` kl_shen_lazyderef kl_V3570 kl_V3573) !appl_8 <- kl_V3571 `pseq` (kl_V3573 `pseq` kl_shen_lazyderef kl_V3571 kl_V3573) !appl_9 <- appl_8 `pseq` kl_shen_app appl_8 (Types.Atom (Types.Str "")) (Types.Atom (Types.UnboundSym "shen.a")) !appl_10 <- appl_9 `pseq` cn (Types.Atom (Types.Str " of ")) appl_9 !appl_11 <- appl_7 `pseq` (appl_10 `pseq` kl_shen_app appl_7 appl_10 (Types.Atom (Types.UnboundSym "shen.a"))) !appl_12 <- appl_11 `pseq` cn (Types.Atom (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_V3573 `pseq` (kl_V3574 `pseq` kl_bind kl_Err appl_13 kl_V3573 kl_V3574))) appl_6 `pseq` (appl_14 `pseq` kl_do appl_6 appl_14)))) !appl_15 <- kl_V3573 `pseq` kl_shen_newpv kl_V3573 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_V3125) -> do let pat_cond_18 kl_V3125 kl_V3125h kl_V3125t = 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_V3570 `pseq` add kl_V3570 (Types.Atom (Types.N (Types.KI 1))) kl_Rules `pseq` (kl_V3569 `pseq` (appl_25 `pseq` (kl_V3571 `pseq` (kl_V3572 `pseq` (kl_V3573 `pseq` (kl_V3574 `pseq` kl_shen_tMult_rules kl_Rules kl_V3569 appl_25 kl_V3571 kl_V3572 kl_V3573 kl_V3574)))))))) kl_Throwcontrol `pseq` (kl_V3573 `pseq` (appl_24 `pseq` kl_cut kl_Throwcontrol kl_V3573 appl_24)))) !appl_26 <- appl_22 `pseq` (kl_V3569 `pseq` (kl_V3572 `pseq` (kl_V3573 `pseq` (appl_23 `pseq` kl_shen_tMult_rule appl_22 kl_V3569 kl_V3572 kl_V3573 appl_23)))) appl_21 `pseq` (appl_26 `pseq` kl_do appl_21 appl_26)))) kl_V3125t `pseq` applyWrapper appl_20 [kl_V3125t]))) kl_V3125h `pseq` applyWrapper appl_19 [kl_V3125h] pat_cond_27 = do do return (Atom (B False)) in case kl_V3125 of !(kl_V3125@(Cons (!kl_V3125h) (!kl_V3125t))) -> pat_cond_18 kl_V3125 kl_V3125h kl_V3125t _ -> pat_cond_27))) !appl_28 <- kl_V3568 `pseq` (kl_V3573 `pseq` kl_shen_lazyderef kl_V3568 kl_V3573) !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_V3124) -> do let pat_cond_32 = do !appl_33 <- kl_shen_incinfs !appl_34 <- kl_V3574 `pseq` kl_thaw kl_V3574 appl_33 `pseq` (appl_34 `pseq` kl_do appl_33 appl_34) pat_cond_35 = do do return (Atom (B False)) in case kl_V3124 of kl_V3124@(Atom (Nil)) -> pat_cond_32 _ -> pat_cond_35))) !appl_36 <- kl_V3568 `pseq` (kl_V3573 `pseq` kl_shen_lazyderef kl_V3568 kl_V3573) !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 :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_tMult_rule (!kl_V3580) (!kl_V3581) (!kl_V3582) (!kl_V3583) (!kl_V3584) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Throwcontrol) -> do let !appl_1 = ApplC (Func "lambda" (Context (\(!kl_V3116) -> do let pat_cond_2 kl_V3116 kl_V3116h kl_V3116t = do let !appl_3 = ApplC (Func "lambda" (Context (\(!kl_Patterns) -> do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_V3117) -> do let pat_cond_5 kl_V3117 kl_V3117h kl_V3117t = do let !appl_6 = ApplC (Func "lambda" (Context (\(!kl_Action) -> do let !appl_7 = ApplC (Func "lambda" (Context (\(!kl_V3118) -> do let pat_cond_8 = do let !appl_9 = ApplC (Func "lambda" (Context (\(!kl_NewHyps) -> do !appl_10 <- kl_shen_incinfs !appl_11 <- kl_Patterns `pseq` kl_shen_placeholders kl_Patterns let !appl_12 = ApplC (PL "thunk" (do let !appl_13 = ApplC (PL "thunk" (do let !appl_14 = ApplC (PL "thunk" (do !appl_15 <- kl_Action `pseq` kl_shen_ue kl_Action !appl_16 <- appl_15 `pseq` kl_shen_curry appl_15 !appl_17 <- kl_Patterns `pseq` (kl_V3581 `pseq` kl_shen_result_type kl_Patterns kl_V3581) !appl_18 <- kl_Patterns `pseq` (kl_V3581 `pseq` (kl_V3582 `pseq` kl_shen_patthyps kl_Patterns kl_V3581 kl_V3582)) appl_16 `pseq` (appl_17 `pseq` (appl_18 `pseq` (kl_V3583 `pseq` (kl_V3584 `pseq` kl_shen_tMult_action appl_16 appl_17 appl_18 kl_V3583 kl_V3584)))))) kl_Throwcontrol `pseq` (kl_V3583 `pseq` (appl_14 `pseq` kl_cut kl_Throwcontrol kl_V3583 appl_14)))) kl_Patterns `pseq` (kl_V3581 `pseq` (kl_NewHyps `pseq` (kl_V3583 `pseq` (appl_13 `pseq` kl_shen_tMult_patterns kl_Patterns kl_V3581 kl_NewHyps kl_V3583 appl_13)))))) !appl_19 <- appl_11 `pseq` (kl_V3582 `pseq` (kl_NewHyps `pseq` (kl_V3583 `pseq` (appl_12 `pseq` kl_shen_newhyps appl_11 kl_V3582 kl_NewHyps kl_V3583 appl_12)))) appl_10 `pseq` (appl_19 `pseq` kl_do appl_10 appl_19)))) !appl_20 <- kl_V3583 `pseq` kl_shen_newpv kl_V3583 appl_20 `pseq` applyWrapper appl_9 [appl_20] pat_cond_21 = do do return (Atom (B False)) in case kl_V3118 of kl_V3118@(Atom (Nil)) -> pat_cond_8 _ -> pat_cond_21))) !appl_22 <- kl_V3117t `pseq` (kl_V3583 `pseq` kl_shen_lazyderef kl_V3117t kl_V3583) appl_22 `pseq` applyWrapper appl_7 [appl_22]))) kl_V3117h `pseq` applyWrapper appl_6 [kl_V3117h] pat_cond_23 = do do return (Atom (B False)) in case kl_V3117 of !(kl_V3117@(Cons (!kl_V3117h) (!kl_V3117t))) -> pat_cond_5 kl_V3117 kl_V3117h kl_V3117t _ -> pat_cond_23))) !appl_24 <- kl_V3116t `pseq` (kl_V3583 `pseq` kl_shen_lazyderef kl_V3116t kl_V3583) appl_24 `pseq` applyWrapper appl_4 [appl_24]))) kl_V3116h `pseq` applyWrapper appl_3 [kl_V3116h] pat_cond_25 = do do return (Atom (B False)) in case kl_V3116 of !(kl_V3116@(Cons (!kl_V3116h) (!kl_V3116t))) -> pat_cond_2 kl_V3116 kl_V3116h kl_V3116t _ -> pat_cond_25))) !appl_26 <- kl_V3580 `pseq` (kl_V3583 `pseq` kl_shen_lazyderef kl_V3580 kl_V3583) !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 :: Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_placeholders (!kl_V3590) = do !kl_if_0 <- kl_V3590 `pseq` kl_shen_ueP kl_V3590 case kl_if_0 of Atom (B (True)) -> do kl_V3590 `pseq` klCons kl_V3590 (Types.Atom Types.Nil) Atom (B (False)) -> do let pat_cond_1 kl_V3590 kl_V3590h kl_V3590t = do !appl_2 <- kl_V3590h `pseq` kl_shen_placeholders kl_V3590h !appl_3 <- kl_V3590t `pseq` kl_shen_placeholders kl_V3590t appl_2 `pseq` (appl_3 `pseq` kl_union appl_2 appl_3) pat_cond_4 = do do return (Types.Atom Types.Nil) in case kl_V3590 of !(kl_V3590@(Cons (!kl_V3590h) (!kl_V3590t))) -> pat_cond_1 kl_V3590 kl_V3590h kl_V3590t _ -> pat_cond_4 _ -> throwError "if: expected boolean" kl_shen_newhyps :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_newhyps (!kl_V3596) (!kl_V3597) (!kl_V3598) (!kl_V3599) (!kl_V3600) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_V3104) -> do let pat_cond_3 kl_V3104 kl_V3104h kl_V3104t = do let !appl_4 = ApplC (Func "lambda" (Context (\(!kl_V3099) -> do let !appl_5 = ApplC (Func "lambda" (Context (\(!kl_Vs) -> do let !appl_6 = ApplC (Func "lambda" (Context (\(!kl_V3105) -> do let pat_cond_7 kl_V3105 kl_V3105h kl_V3105t = do let !appl_8 = ApplC (Func "lambda" (Context (\(!kl_V3106) -> do let pat_cond_9 kl_V3106 kl_V3106h kl_V3106t = do let !appl_10 = ApplC (Func "lambda" (Context (\(!kl_V) -> do let !appl_11 = ApplC (Func "lambda" (Context (\(!kl_V3107) -> do let pat_cond_12 kl_V3107 kl_V3107h kl_V3107t = do let !appl_13 = ApplC (Func "lambda" (Context (\(!kl_V3108) -> do let pat_cond_14 = do let !appl_15 = ApplC (Func "lambda" (Context (\(!kl_V3109) -> do let pat_cond_16 kl_V3109 kl_V3109h kl_V3109t = do let !appl_17 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_18 = ApplC (Func "lambda" (Context (\(!kl_V3110) -> do let pat_cond_19 = do let !appl_20 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_21 <- kl_shen_incinfs let !appl_22 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3597 `pseq` (kl_NewHyp `pseq` (kl_V3599 `pseq` (kl_V3600 `pseq` kl_shen_newhyps kl_Vs kl_V3597 kl_NewHyp kl_V3599 kl_V3600)))))) !appl_23 <- kl_V `pseq` (kl_V3099 `pseq` (kl_V3599 `pseq` (appl_22 `pseq` kl_unifyExcl kl_V kl_V3099 kl_V3599 appl_22))) appl_21 `pseq` (appl_23 `pseq` kl_do appl_21 appl_23)))) kl_V3105t `pseq` applyWrapper appl_20 [kl_V3105t] pat_cond_24 = do do !kl_if_25 <- kl_V3110 `pseq` kl_shen_pvarP kl_V3110 case kl_if_25 of Atom (B (True)) -> do !appl_26 <- kl_V3110 `pseq` (kl_V3599 `pseq` kl_shen_bindv kl_V3110 (Types.Atom Types.Nil) kl_V3599) let !appl_27 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_28 <- kl_V3110 `pseq` (kl_V3599 `pseq` kl_shen_unbindv kl_V3110 kl_V3599) appl_28 `pseq` (kl_Result `pseq` kl_do appl_28 kl_Result)))) let !appl_29 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_30 <- kl_shen_incinfs let !appl_31 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3597 `pseq` (kl_NewHyp `pseq` (kl_V3599 `pseq` (kl_V3600 `pseq` kl_shen_newhyps kl_Vs kl_V3597 kl_NewHyp kl_V3599 kl_V3600)))))) !appl_32 <- kl_V `pseq` (kl_V3099 `pseq` (kl_V3599 `pseq` (appl_31 `pseq` kl_unifyExcl kl_V kl_V3099 kl_V3599 appl_31))) appl_30 `pseq` (appl_32 `pseq` kl_do appl_30 appl_32)))) !appl_33 <- kl_V3105t `pseq` applyWrapper appl_29 [kl_V3105t] !appl_34 <- appl_33 `pseq` applyWrapper appl_27 [appl_33] appl_26 `pseq` (appl_34 `pseq` kl_do appl_26 appl_34) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3110 of kl_V3110@(Atom (Nil)) -> pat_cond_19 _ -> pat_cond_24))) !appl_35 <- kl_V3109t `pseq` (kl_V3599 `pseq` kl_shen_lazyderef kl_V3109t kl_V3599) appl_35 `pseq` applyWrapper appl_18 [appl_35]))) kl_V3109h `pseq` applyWrapper appl_17 [kl_V3109h] pat_cond_36 = do do !kl_if_37 <- kl_V3109 `pseq` kl_shen_pvarP kl_V3109 case kl_if_37 of Atom (B (True)) -> do let !appl_38 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_39 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_40 <- kl_V3109 `pseq` (appl_39 `pseq` (kl_V3599 `pseq` kl_shen_bindv kl_V3109 appl_39 kl_V3599)) let !appl_41 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_42 <- kl_V3109 `pseq` (kl_V3599 `pseq` kl_shen_unbindv kl_V3109 kl_V3599) appl_42 `pseq` (kl_Result `pseq` kl_do appl_42 kl_Result)))) let !appl_43 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_44 <- kl_shen_incinfs let !appl_45 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3597 `pseq` (kl_NewHyp `pseq` (kl_V3599 `pseq` (kl_V3600 `pseq` kl_shen_newhyps kl_Vs kl_V3597 kl_NewHyp kl_V3599 kl_V3600)))))) !appl_46 <- kl_V `pseq` (kl_V3099 `pseq` (kl_V3599 `pseq` (appl_45 `pseq` kl_unifyExcl kl_V kl_V3099 kl_V3599 appl_45))) appl_44 `pseq` (appl_46 `pseq` kl_do appl_44 appl_46)))) !appl_47 <- kl_V3105t `pseq` applyWrapper appl_43 [kl_V3105t] !appl_48 <- appl_47 `pseq` applyWrapper appl_41 [appl_47] appl_40 `pseq` (appl_48 `pseq` kl_do appl_40 appl_48)))) !appl_49 <- kl_V3599 `pseq` kl_shen_newpv kl_V3599 appl_49 `pseq` applyWrapper appl_38 [appl_49] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3109 of !(kl_V3109@(Cons (!kl_V3109h) (!kl_V3109t))) -> pat_cond_16 kl_V3109 kl_V3109h kl_V3109t _ -> pat_cond_36))) !appl_50 <- kl_V3107t `pseq` (kl_V3599 `pseq` kl_shen_lazyderef kl_V3107t kl_V3599) appl_50 `pseq` applyWrapper appl_15 [appl_50] pat_cond_51 = do do !kl_if_52 <- kl_V3108 `pseq` kl_shen_pvarP kl_V3108 case kl_if_52 of Atom (B (True)) -> do !appl_53 <- kl_V3108 `pseq` (kl_V3599 `pseq` kl_shen_bindv kl_V3108 (Types.Atom (Types.UnboundSym ":")) kl_V3599) let !appl_54 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_55 <- kl_V3108 `pseq` (kl_V3599 `pseq` kl_shen_unbindv kl_V3108 kl_V3599) appl_55 `pseq` (kl_Result `pseq` kl_do appl_55 kl_Result)))) let !appl_56 = ApplC (Func "lambda" (Context (\(!kl_V3111) -> do let pat_cond_57 kl_V3111 kl_V3111h kl_V3111t = do let !appl_58 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_59 = ApplC (Func "lambda" (Context (\(!kl_V3112) -> do let pat_cond_60 = do let !appl_61 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_62 <- kl_shen_incinfs let !appl_63 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3597 `pseq` (kl_NewHyp `pseq` (kl_V3599 `pseq` (kl_V3600 `pseq` kl_shen_newhyps kl_Vs kl_V3597 kl_NewHyp kl_V3599 kl_V3600)))))) !appl_64 <- kl_V `pseq` (kl_V3099 `pseq` (kl_V3599 `pseq` (appl_63 `pseq` kl_unifyExcl kl_V kl_V3099 kl_V3599 appl_63))) appl_62 `pseq` (appl_64 `pseq` kl_do appl_62 appl_64)))) kl_V3105t `pseq` applyWrapper appl_61 [kl_V3105t] pat_cond_65 = do do !kl_if_66 <- kl_V3112 `pseq` kl_shen_pvarP kl_V3112 case kl_if_66 of Atom (B (True)) -> do !appl_67 <- kl_V3112 `pseq` (kl_V3599 `pseq` kl_shen_bindv kl_V3112 (Types.Atom Types.Nil) kl_V3599) let !appl_68 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_69 <- kl_V3112 `pseq` (kl_V3599 `pseq` kl_shen_unbindv kl_V3112 kl_V3599) appl_69 `pseq` (kl_Result `pseq` kl_do appl_69 kl_Result)))) let !appl_70 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_71 <- kl_shen_incinfs let !appl_72 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3597 `pseq` (kl_NewHyp `pseq` (kl_V3599 `pseq` (kl_V3600 `pseq` kl_shen_newhyps kl_Vs kl_V3597 kl_NewHyp kl_V3599 kl_V3600)))))) !appl_73 <- kl_V `pseq` (kl_V3099 `pseq` (kl_V3599 `pseq` (appl_72 `pseq` kl_unifyExcl kl_V kl_V3099 kl_V3599 appl_72))) appl_71 `pseq` (appl_73 `pseq` kl_do appl_71 appl_73)))) !appl_74 <- kl_V3105t `pseq` applyWrapper appl_70 [kl_V3105t] !appl_75 <- appl_74 `pseq` applyWrapper appl_68 [appl_74] appl_67 `pseq` (appl_75 `pseq` kl_do appl_67 appl_75) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3112 of kl_V3112@(Atom (Nil)) -> pat_cond_60 _ -> pat_cond_65))) !appl_76 <- kl_V3111t `pseq` (kl_V3599 `pseq` kl_shen_lazyderef kl_V3111t kl_V3599) appl_76 `pseq` applyWrapper appl_59 [appl_76]))) kl_V3111h `pseq` applyWrapper appl_58 [kl_V3111h] pat_cond_77 = do do !kl_if_78 <- kl_V3111 `pseq` kl_shen_pvarP kl_V3111 case kl_if_78 of Atom (B (True)) -> do let !appl_79 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_80 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_81 <- kl_V3111 `pseq` (appl_80 `pseq` (kl_V3599 `pseq` kl_shen_bindv kl_V3111 appl_80 kl_V3599)) let !appl_82 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_83 <- kl_V3111 `pseq` (kl_V3599 `pseq` kl_shen_unbindv kl_V3111 kl_V3599) appl_83 `pseq` (kl_Result `pseq` kl_do appl_83 kl_Result)))) let !appl_84 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_85 <- kl_shen_incinfs let !appl_86 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3597 `pseq` (kl_NewHyp `pseq` (kl_V3599 `pseq` (kl_V3600 `pseq` kl_shen_newhyps kl_Vs kl_V3597 kl_NewHyp kl_V3599 kl_V3600)))))) !appl_87 <- kl_V `pseq` (kl_V3099 `pseq` (kl_V3599 `pseq` (appl_86 `pseq` kl_unifyExcl kl_V kl_V3099 kl_V3599 appl_86))) appl_85 `pseq` (appl_87 `pseq` kl_do appl_85 appl_87)))) !appl_88 <- kl_V3105t `pseq` applyWrapper appl_84 [kl_V3105t] !appl_89 <- appl_88 `pseq` applyWrapper appl_82 [appl_88] appl_81 `pseq` (appl_89 `pseq` kl_do appl_81 appl_89)))) !appl_90 <- kl_V3599 `pseq` kl_shen_newpv kl_V3599 appl_90 `pseq` applyWrapper appl_79 [appl_90] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3111 of !(kl_V3111@(Cons (!kl_V3111h) (!kl_V3111t))) -> pat_cond_57 kl_V3111 kl_V3111h kl_V3111t _ -> pat_cond_77))) !appl_91 <- kl_V3107t `pseq` (kl_V3599 `pseq` kl_shen_lazyderef kl_V3107t kl_V3599) !appl_92 <- appl_91 `pseq` applyWrapper appl_56 [appl_91] !appl_93 <- appl_92 `pseq` applyWrapper appl_54 [appl_92] appl_53 `pseq` (appl_93 `pseq` kl_do appl_53 appl_93) Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3108 of kl_V3108@(Atom (UnboundSym ":")) -> pat_cond_14 kl_V3108@(ApplC (PL ":" _)) -> pat_cond_14 kl_V3108@(ApplC (Func ":" _)) -> pat_cond_14 _ -> pat_cond_51))) !appl_94 <- kl_V3107h `pseq` (kl_V3599 `pseq` kl_shen_lazyderef kl_V3107h kl_V3599) appl_94 `pseq` applyWrapper appl_13 [appl_94] pat_cond_95 = do do !kl_if_96 <- kl_V3107 `pseq` kl_shen_pvarP kl_V3107 case kl_if_96 of Atom (B (True)) -> do let !appl_97 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_98 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_99 <- appl_98 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_98 !appl_100 <- kl_V3107 `pseq` (appl_99 `pseq` (kl_V3599 `pseq` kl_shen_bindv kl_V3107 appl_99 kl_V3599)) let !appl_101 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_102 <- kl_V3107 `pseq` (kl_V3599 `pseq` kl_shen_unbindv kl_V3107 kl_V3599) appl_102 `pseq` (kl_Result `pseq` kl_do appl_102 kl_Result)))) let !appl_103 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_104 <- kl_shen_incinfs let !appl_105 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3597 `pseq` (kl_NewHyp `pseq` (kl_V3599 `pseq` (kl_V3600 `pseq` kl_shen_newhyps kl_Vs kl_V3597 kl_NewHyp kl_V3599 kl_V3600)))))) !appl_106 <- kl_V `pseq` (kl_V3099 `pseq` (kl_V3599 `pseq` (appl_105 `pseq` kl_unifyExcl kl_V kl_V3099 kl_V3599 appl_105))) appl_104 `pseq` (appl_106 `pseq` kl_do appl_104 appl_106)))) !appl_107 <- kl_V3105t `pseq` applyWrapper appl_103 [kl_V3105t] !appl_108 <- appl_107 `pseq` applyWrapper appl_101 [appl_107] appl_100 `pseq` (appl_108 `pseq` kl_do appl_100 appl_108)))) !appl_109 <- kl_V3599 `pseq` kl_shen_newpv kl_V3599 appl_109 `pseq` applyWrapper appl_97 [appl_109] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3107 of !(kl_V3107@(Cons (!kl_V3107h) (!kl_V3107t))) -> pat_cond_12 kl_V3107 kl_V3107h kl_V3107t _ -> pat_cond_95))) !appl_110 <- kl_V3106t `pseq` (kl_V3599 `pseq` kl_shen_lazyderef kl_V3106t kl_V3599) appl_110 `pseq` applyWrapper appl_11 [appl_110]))) kl_V3106h `pseq` applyWrapper appl_10 [kl_V3106h] pat_cond_111 = do do !kl_if_112 <- kl_V3106 `pseq` kl_shen_pvarP kl_V3106 case kl_if_112 of Atom (B (True)) -> do let !appl_113 = ApplC (Func "lambda" (Context (\(!kl_V) -> do let !appl_114 = ApplC (Func "lambda" (Context (\(!kl_A) -> do !appl_115 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_116 <- appl_115 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_115 !appl_117 <- kl_V `pseq` (appl_116 `pseq` klCons kl_V appl_116) !appl_118 <- kl_V3106 `pseq` (appl_117 `pseq` (kl_V3599 `pseq` kl_shen_bindv kl_V3106 appl_117 kl_V3599)) let !appl_119 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_120 <- kl_V3106 `pseq` (kl_V3599 `pseq` kl_shen_unbindv kl_V3106 kl_V3599) appl_120 `pseq` (kl_Result `pseq` kl_do appl_120 kl_Result)))) let !appl_121 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_122 <- kl_shen_incinfs let !appl_123 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3597 `pseq` (kl_NewHyp `pseq` (kl_V3599 `pseq` (kl_V3600 `pseq` kl_shen_newhyps kl_Vs kl_V3597 kl_NewHyp kl_V3599 kl_V3600)))))) !appl_124 <- kl_V `pseq` (kl_V3099 `pseq` (kl_V3599 `pseq` (appl_123 `pseq` kl_unifyExcl kl_V kl_V3099 kl_V3599 appl_123))) appl_122 `pseq` (appl_124 `pseq` kl_do appl_122 appl_124)))) !appl_125 <- kl_V3105t `pseq` applyWrapper appl_121 [kl_V3105t] !appl_126 <- appl_125 `pseq` applyWrapper appl_119 [appl_125] appl_118 `pseq` (appl_126 `pseq` kl_do appl_118 appl_126)))) !appl_127 <- kl_V3599 `pseq` kl_shen_newpv kl_V3599 appl_127 `pseq` applyWrapper appl_114 [appl_127]))) !appl_128 <- kl_V3599 `pseq` kl_shen_newpv kl_V3599 appl_128 `pseq` applyWrapper appl_113 [appl_128] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3106 of !(kl_V3106@(Cons (!kl_V3106h) (!kl_V3106t))) -> pat_cond_9 kl_V3106 kl_V3106h kl_V3106t _ -> pat_cond_111))) !appl_129 <- kl_V3105h `pseq` (kl_V3599 `pseq` kl_shen_lazyderef kl_V3105h kl_V3599) appl_129 `pseq` applyWrapper appl_8 [appl_129] pat_cond_130 = do do !kl_if_131 <- kl_V3105 `pseq` kl_shen_pvarP kl_V3105 case kl_if_131 of Atom (B (True)) -> do let !appl_132 = ApplC (Func "lambda" (Context (\(!kl_V) -> do let !appl_133 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_134 = ApplC (Func "lambda" (Context (\(!kl_NewHyp) -> do !appl_135 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_136 <- appl_135 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_135 !appl_137 <- kl_V `pseq` (appl_136 `pseq` klCons kl_V appl_136) !appl_138 <- appl_137 `pseq` (kl_NewHyp `pseq` klCons appl_137 kl_NewHyp) !appl_139 <- kl_V3105 `pseq` (appl_138 `pseq` (kl_V3599 `pseq` kl_shen_bindv kl_V3105 appl_138 kl_V3599)) let !appl_140 = ApplC (Func "lambda" (Context (\(!kl_Result) -> do !appl_141 <- kl_V3105 `pseq` (kl_V3599 `pseq` kl_shen_unbindv kl_V3105 kl_V3599) appl_141 `pseq` (kl_Result `pseq` kl_do appl_141 kl_Result)))) !appl_142 <- kl_shen_incinfs let !appl_143 = ApplC (PL "thunk" (do kl_Vs `pseq` (kl_V3597 `pseq` (kl_NewHyp `pseq` (kl_V3599 `pseq` (kl_V3600 `pseq` kl_shen_newhyps kl_Vs kl_V3597 kl_NewHyp kl_V3599 kl_V3600)))))) !appl_144 <- kl_V `pseq` (kl_V3099 `pseq` (kl_V3599 `pseq` (appl_143 `pseq` kl_unifyExcl kl_V kl_V3099 kl_V3599 appl_143))) !appl_145 <- appl_142 `pseq` (appl_144 `pseq` kl_do appl_142 appl_144) !appl_146 <- appl_145 `pseq` applyWrapper appl_140 [appl_145] appl_139 `pseq` (appl_146 `pseq` kl_do appl_139 appl_146)))) !appl_147 <- kl_V3599 `pseq` kl_shen_newpv kl_V3599 appl_147 `pseq` applyWrapper appl_134 [appl_147]))) !appl_148 <- kl_V3599 `pseq` kl_shen_newpv kl_V3599 appl_148 `pseq` applyWrapper appl_133 [appl_148]))) !appl_149 <- kl_V3599 `pseq` kl_shen_newpv kl_V3599 appl_149 `pseq` applyWrapper appl_132 [appl_149] Atom (B (False)) -> do do return (Atom (B False)) _ -> throwError "if: expected boolean" in case kl_V3105 of !(kl_V3105@(Cons (!kl_V3105h) (!kl_V3105t))) -> pat_cond_7 kl_V3105 kl_V3105h kl_V3105t _ -> pat_cond_130))) !appl_150 <- kl_V3598 `pseq` (kl_V3599 `pseq` kl_shen_lazyderef kl_V3598 kl_V3599) appl_150 `pseq` applyWrapper appl_6 [appl_150]))) kl_V3104t `pseq` applyWrapper appl_5 [kl_V3104t]))) kl_V3104h `pseq` applyWrapper appl_4 [kl_V3104h] pat_cond_151 = do do return (Atom (B False)) in case kl_V3104 of !(kl_V3104@(Cons (!kl_V3104h) (!kl_V3104t))) -> pat_cond_3 kl_V3104 kl_V3104h kl_V3104t _ -> pat_cond_151))) !appl_152 <- kl_V3596 `pseq` (kl_V3599 `pseq` kl_shen_lazyderef kl_V3596 kl_V3599) appl_152 `pseq` applyWrapper appl_2 [appl_152] pat_cond_153 = 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_153))) let !appl_154 = ApplC (Func "lambda" (Context (\(!kl_V3103) -> do let pat_cond_155 = do !appl_156 <- kl_shen_incinfs !appl_157 <- kl_V3598 `pseq` (kl_V3597 `pseq` (kl_V3599 `pseq` (kl_V3600 `pseq` kl_unifyExcl kl_V3598 kl_V3597 kl_V3599 kl_V3600))) appl_156 `pseq` (appl_157 `pseq` kl_do appl_156 appl_157) pat_cond_158 = do do return (Atom (B False)) in case kl_V3103 of kl_V3103@(Atom (Nil)) -> pat_cond_155 _ -> pat_cond_158))) !appl_159 <- kl_V3596 `pseq` (kl_V3599 `pseq` kl_shen_lazyderef kl_V3596 kl_V3599) !appl_160 <- appl_159 `pseq` applyWrapper appl_154 [appl_159] appl_160 `pseq` applyWrapper appl_0 [appl_160] kl_shen_patthyps :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_patthyps (!kl_V3606) (!kl_V3607) (!kl_V3608) = do let pat_cond_0 = do return kl_V3608 pat_cond_1 = do !kl_if_2 <- let pat_cond_3 kl_V3606 kl_V3606h kl_V3606t = do let pat_cond_4 kl_V3607 kl_V3607h kl_V3607t kl_V3607tt kl_V3607tth = do return (Atom (B True)) pat_cond_5 = do do return (Atom (B False)) in case kl_V3607 of !(kl_V3607@(Cons (!kl_V3607h) (!(kl_V3607t@(Cons (Atom (UnboundSym "-->")) (!(kl_V3607tt@(Cons (!kl_V3607tth) (Atom (Nil)))))))))) -> pat_cond_4 kl_V3607 kl_V3607h kl_V3607t kl_V3607tt kl_V3607tth !(kl_V3607@(Cons (!kl_V3607h) (!(kl_V3607t@(Cons (ApplC (PL "-->" _)) (!(kl_V3607tt@(Cons (!kl_V3607tth) (Atom (Nil)))))))))) -> pat_cond_4 kl_V3607 kl_V3607h kl_V3607t kl_V3607tt kl_V3607tth !(kl_V3607@(Cons (!kl_V3607h) (!(kl_V3607t@(Cons (ApplC (Func "-->" _)) (!(kl_V3607tt@(Cons (!kl_V3607tth) (Atom (Nil)))))))))) -> pat_cond_4 kl_V3607 kl_V3607h kl_V3607t kl_V3607tt kl_V3607tth _ -> pat_cond_5 pat_cond_6 = do do return (Atom (B False)) in case kl_V3606 of !(kl_V3606@(Cons (!kl_V3606h) (!kl_V3606t))) -> pat_cond_3 kl_V3606 kl_V3606h kl_V3606t _ -> pat_cond_6 case kl_if_2 of Atom (B (True)) -> do !appl_7 <- kl_V3606 `pseq` hd kl_V3606 !appl_8 <- kl_V3607 `pseq` hd kl_V3607 !appl_9 <- appl_8 `pseq` klCons appl_8 (Types.Atom Types.Nil) !appl_10 <- appl_9 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_9 !appl_11 <- appl_7 `pseq` (appl_10 `pseq` klCons appl_7 appl_10) !appl_12 <- kl_V3606 `pseq` tl kl_V3606 !appl_13 <- kl_V3607 `pseq` tl kl_V3607 !appl_14 <- appl_13 `pseq` tl appl_13 !appl_15 <- appl_14 `pseq` hd appl_14 !appl_16 <- appl_12 `pseq` (appl_15 `pseq` (kl_V3608 `pseq` kl_shen_patthyps appl_12 appl_15 kl_V3608)) appl_11 `pseq` (appl_16 `pseq` kl_adjoin appl_11 appl_16) Atom (B (False)) -> do do kl_shen_f_error (ApplC (wrapNamed "shen.patthyps" kl_shen_patthyps)) _ -> throwError "if: expected boolean" in case kl_V3606 of kl_V3606@(Atom (Nil)) -> pat_cond_0 _ -> pat_cond_1 kl_shen_result_type :: Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_result_type (!kl_V3615) (!kl_V3616) = do !kl_if_0 <- let pat_cond_1 = do let pat_cond_2 kl_V3616 kl_V3616t kl_V3616th = do return (Atom (B True)) pat_cond_3 = do do return (Atom (B False)) in case kl_V3616 of !(kl_V3616@(Cons (Atom (UnboundSym "-->")) (!(kl_V3616t@(Cons (!kl_V3616th) (Atom (Nil))))))) -> pat_cond_2 kl_V3616 kl_V3616t kl_V3616th !(kl_V3616@(Cons (ApplC (PL "-->" _)) (!(kl_V3616t@(Cons (!kl_V3616th) (Atom (Nil))))))) -> pat_cond_2 kl_V3616 kl_V3616t kl_V3616th !(kl_V3616@(Cons (ApplC (Func "-->" _)) (!(kl_V3616t@(Cons (!kl_V3616th) (Atom (Nil))))))) -> pat_cond_2 kl_V3616 kl_V3616t kl_V3616th _ -> pat_cond_3 pat_cond_4 = do do return (Atom (B False)) in case kl_V3615 of kl_V3615@(Atom (Nil)) -> pat_cond_1 _ -> pat_cond_4 case kl_if_0 of Atom (B (True)) -> do !appl_5 <- kl_V3616 `pseq` tl kl_V3616 appl_5 `pseq` hd appl_5 Atom (B (False)) -> do let pat_cond_6 = do return kl_V3616 pat_cond_7 = do !kl_if_8 <- let pat_cond_9 kl_V3615 kl_V3615h kl_V3615t = do let pat_cond_10 kl_V3616 kl_V3616h kl_V3616t kl_V3616tt kl_V3616tth = do return (Atom (B True)) pat_cond_11 = do do return (Atom (B False)) in case kl_V3616 of !(kl_V3616@(Cons (!kl_V3616h) (!(kl_V3616t@(Cons (Atom (UnboundSym "-->")) (!(kl_V3616tt@(Cons (!kl_V3616tth) (Atom (Nil)))))))))) -> pat_cond_10 kl_V3616 kl_V3616h kl_V3616t kl_V3616tt kl_V3616tth !(kl_V3616@(Cons (!kl_V3616h) (!(kl_V3616t@(Cons (ApplC (PL "-->" _)) (!(kl_V3616tt@(Cons (!kl_V3616tth) (Atom (Nil)))))))))) -> pat_cond_10 kl_V3616 kl_V3616h kl_V3616t kl_V3616tt kl_V3616tth !(kl_V3616@(Cons (!kl_V3616h) (!(kl_V3616t@(Cons (ApplC (Func "-->" _)) (!(kl_V3616tt@(Cons (!kl_V3616tth) (Atom (Nil)))))))))) -> pat_cond_10 kl_V3616 kl_V3616h kl_V3616t kl_V3616tt kl_V3616tth _ -> pat_cond_11 pat_cond_12 = do do return (Atom (B False)) in case kl_V3615 of !(kl_V3615@(Cons (!kl_V3615h) (!kl_V3615t))) -> pat_cond_9 kl_V3615 kl_V3615h kl_V3615t _ -> pat_cond_12 case kl_if_8 of Atom (B (True)) -> do !appl_13 <- kl_V3615 `pseq` tl kl_V3615 !appl_14 <- kl_V3616 `pseq` tl kl_V3616 !appl_15 <- appl_14 `pseq` tl appl_14 !appl_16 <- appl_15 `pseq` hd appl_15 appl_13 `pseq` (appl_16 `pseq` kl_shen_result_type appl_13 appl_16) Atom (B (False)) -> do do kl_shen_f_error (ApplC (wrapNamed "shen.result-type" kl_shen_result_type)) _ -> throwError "if: expected boolean" in case kl_V3615 of kl_V3615@(Atom (Nil)) -> pat_cond_6 _ -> pat_cond_7 _ -> throwError "if: expected boolean" kl_shen_tMult_patterns :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_tMult_patterns (!kl_V3622) (!kl_V3623) (!kl_V3624) (!kl_V3625) (!kl_V3626) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do let !appl_2 = ApplC (Func "lambda" (Context (\(!kl_V3092) -> do let pat_cond_3 kl_V3092 kl_V3092h kl_V3092t = 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_V3093) -> do let pat_cond_7 kl_V3093 kl_V3093h kl_V3093t = do let !appl_8 = ApplC (Func "lambda" (Context (\(!kl_A) -> do let !appl_9 = ApplC (Func "lambda" (Context (\(!kl_V3094) -> do let pat_cond_10 kl_V3094 kl_V3094h kl_V3094t = do let !appl_11 = ApplC (Func "lambda" (Context (\(!kl_V3095) -> do let pat_cond_12 = do let !appl_13 = ApplC (Func "lambda" (Context (\(!kl_V3096) -> do let pat_cond_14 kl_V3096 kl_V3096h kl_V3096t = do let !appl_15 = ApplC (Func "lambda" (Context (\(!kl_B) -> do let !appl_16 = ApplC (Func "lambda" (Context (\(!kl_V3097) -> do let pat_cond_17 = do !appl_18 <- kl_shen_incinfs !appl_19 <- kl_A `pseq` klCons kl_A (Types.Atom Types.Nil) !appl_20 <- appl_19 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_19 !appl_21 <- kl_Pattern `pseq` (appl_20 `pseq` klCons kl_Pattern appl_20) let !appl_22 = ApplC (PL "thunk" (do kl_Patterns `pseq` (kl_B `pseq` (kl_V3624 `pseq` (kl_V3625 `pseq` (kl_V3626 `pseq` kl_shen_tMult_patterns kl_Patterns kl_B kl_V3624 kl_V3625 kl_V3626)))))) !appl_23 <- appl_21 `pseq` (kl_V3624 `pseq` (kl_V3625 `pseq` (appl_22 `pseq` kl_shen_tMult appl_21 kl_V3624 kl_V3625 appl_22))) appl_18 `pseq` (appl_23 `pseq` kl_do appl_18 appl_23) pat_cond_24 = do do return (Atom (B False)) in case kl_V3097 of kl_V3097@(Atom (Nil)) -> pat_cond_17 _ -> pat_cond_24))) !appl_25 <- kl_V3096t `pseq` (kl_V3625 `pseq` kl_shen_lazyderef kl_V3096t kl_V3625) appl_25 `pseq` applyWrapper appl_16 [appl_25]))) kl_V3096h `pseq` applyWrapper appl_15 [kl_V3096h] pat_cond_26 = do do return (Atom (B False)) in case kl_V3096 of !(kl_V3096@(Cons (!kl_V3096h) (!kl_V3096t))) -> pat_cond_14 kl_V3096 kl_V3096h kl_V3096t _ -> pat_cond_26))) !appl_27 <- kl_V3094t `pseq` (kl_V3625 `pseq` kl_shen_lazyderef kl_V3094t kl_V3625) appl_27 `pseq` applyWrapper appl_13 [appl_27] pat_cond_28 = do do return (Atom (B False)) in case kl_V3095 of kl_V3095@(Atom (UnboundSym "-->")) -> pat_cond_12 kl_V3095@(ApplC (PL "-->" _)) -> pat_cond_12 kl_V3095@(ApplC (Func "-->" _)) -> pat_cond_12 _ -> pat_cond_28))) !appl_29 <- kl_V3094h `pseq` (kl_V3625 `pseq` kl_shen_lazyderef kl_V3094h kl_V3625) appl_29 `pseq` applyWrapper appl_11 [appl_29] pat_cond_30 = do do return (Atom (B False)) in case kl_V3094 of !(kl_V3094@(Cons (!kl_V3094h) (!kl_V3094t))) -> pat_cond_10 kl_V3094 kl_V3094h kl_V3094t _ -> pat_cond_30))) !appl_31 <- kl_V3093t `pseq` (kl_V3625 `pseq` kl_shen_lazyderef kl_V3093t kl_V3625) appl_31 `pseq` applyWrapper appl_9 [appl_31]))) kl_V3093h `pseq` applyWrapper appl_8 [kl_V3093h] pat_cond_32 = do do return (Atom (B False)) in case kl_V3093 of !(kl_V3093@(Cons (!kl_V3093h) (!kl_V3093t))) -> pat_cond_7 kl_V3093 kl_V3093h kl_V3093t _ -> pat_cond_32))) !appl_33 <- kl_V3623 `pseq` (kl_V3625 `pseq` kl_shen_lazyderef kl_V3623 kl_V3625) appl_33 `pseq` applyWrapper appl_6 [appl_33]))) kl_V3092t `pseq` applyWrapper appl_5 [kl_V3092t]))) kl_V3092h `pseq` applyWrapper appl_4 [kl_V3092h] pat_cond_34 = do do return (Atom (B False)) in case kl_V3092 of !(kl_V3092@(Cons (!kl_V3092h) (!kl_V3092t))) -> pat_cond_3 kl_V3092 kl_V3092h kl_V3092t _ -> pat_cond_34))) !appl_35 <- kl_V3622 `pseq` (kl_V3625 `pseq` kl_shen_lazyderef kl_V3622 kl_V3625) appl_35 `pseq` applyWrapper appl_2 [appl_35] pat_cond_36 = 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_36))) let !appl_37 = ApplC (Func "lambda" (Context (\(!kl_V3091) -> do let pat_cond_38 = do !appl_39 <- kl_shen_incinfs !appl_40 <- kl_V3626 `pseq` kl_thaw kl_V3626 appl_39 `pseq` (appl_40 `pseq` kl_do appl_39 appl_40) pat_cond_41 = do do return (Atom (B False)) in case kl_V3091 of kl_V3091@(Atom (Nil)) -> pat_cond_38 _ -> pat_cond_41))) !appl_42 <- kl_V3622 `pseq` (kl_V3625 `pseq` kl_shen_lazyderef kl_V3622 kl_V3625) !appl_43 <- appl_42 `pseq` applyWrapper appl_37 [appl_42] appl_43 `pseq` applyWrapper appl_0 [appl_43] kl_shen_tMult_action :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_tMult_action (!kl_V3632) (!kl_V3633) (!kl_V3634) (!kl_V3635) (!kl_V3636) = 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 !appl_8 <- kl_V3633 `pseq` klCons kl_V3633 (Types.Atom Types.Nil) !appl_9 <- appl_8 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_8 !appl_10 <- kl_V3632 `pseq` (appl_9 `pseq` klCons kl_V3632 appl_9) !appl_11 <- appl_10 `pseq` (kl_V3634 `pseq` (kl_V3635 `pseq` (kl_V3636 `pseq` kl_shen_tMult appl_10 kl_V3634 kl_V3635 kl_V3636))) appl_7 `pseq` (appl_11 `pseq` kl_do appl_7 appl_11) pat_cond_12 = 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_12))) let !appl_13 = ApplC (Func "lambda" (Context (\(!kl_V3084) -> do let pat_cond_14 kl_V3084 kl_V3084h kl_V3084t = do let !appl_15 = ApplC (Func "lambda" (Context (\(!kl_V3085) -> do let pat_cond_16 = do let !appl_17 = ApplC (Func "lambda" (Context (\(!kl_V3086) -> do let pat_cond_18 kl_V3086 kl_V3086h kl_V3086t = do let !appl_19 = ApplC (Func "lambda" (Context (\(!kl_Action) -> do let !appl_20 = ApplC (Func "lambda" (Context (\(!kl_V3087) -> do let pat_cond_21 = do !appl_22 <- kl_shen_incinfs let !appl_23 = ApplC (PL "thunk" (do !appl_24 <- kl_Action `pseq` klCons kl_Action (Types.Atom Types.Nil) !appl_25 <- appl_24 `pseq` klCons (ApplC (wrapNamed "=" eq)) appl_24 !appl_26 <- klCons (ApplC (PL "fail" kl_fail)) (Types.Atom Types.Nil) !appl_27 <- appl_26 `pseq` klCons appl_26 (Types.Atom Types.Nil) !appl_28 <- appl_25 `pseq` (appl_27 `pseq` klCons appl_25 appl_27) !appl_29 <- appl_28 `pseq` klCons appl_28 (Types.Atom Types.Nil) !appl_30 <- appl_29 `pseq` klCons (ApplC (wrapNamed "not" kl_not)) appl_29 !appl_31 <- kl_Action `pseq` klCons kl_Action (Types.Atom Types.Nil) !appl_32 <- appl_30 `pseq` (appl_31 `pseq` klCons appl_30 appl_31) !appl_33 <- appl_32 `pseq` klCons (Types.Atom (Types.UnboundSym "where")) appl_32 appl_33 `pseq` (kl_V3633 `pseq` (kl_V3634 `pseq` (kl_V3635 `pseq` (kl_V3636 `pseq` kl_shen_tMult_action appl_33 kl_V3633 kl_V3634 kl_V3635 kl_V3636)))))) !appl_34 <- kl_Throwcontrol `pseq` (kl_V3635 `pseq` (appl_23 `pseq` kl_cut kl_Throwcontrol kl_V3635 appl_23)) appl_22 `pseq` (appl_34 `pseq` kl_do appl_22 appl_34) pat_cond_35 = do do return (Atom (B False)) in case kl_V3087 of kl_V3087@(Atom (Nil)) -> pat_cond_21 _ -> pat_cond_35))) !appl_36 <- kl_V3086t `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3086t kl_V3635) appl_36 `pseq` applyWrapper appl_20 [appl_36]))) kl_V3086h `pseq` applyWrapper appl_19 [kl_V3086h] pat_cond_37 = do do return (Atom (B False)) in case kl_V3086 of !(kl_V3086@(Cons (!kl_V3086h) (!kl_V3086t))) -> pat_cond_18 kl_V3086 kl_V3086h kl_V3086t _ -> pat_cond_37))) !appl_38 <- kl_V3084t `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3084t kl_V3635) appl_38 `pseq` applyWrapper appl_17 [appl_38] pat_cond_39 = do do return (Atom (B False)) in case kl_V3085 of kl_V3085@(Atom (UnboundSym "shen.choicepoint!")) -> pat_cond_16 kl_V3085@(ApplC (PL "shen.choicepoint!" _)) -> pat_cond_16 kl_V3085@(ApplC (Func "shen.choicepoint!" _)) -> pat_cond_16 _ -> pat_cond_39))) !appl_40 <- kl_V3084h `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3084h kl_V3635) appl_40 `pseq` applyWrapper appl_15 [appl_40] pat_cond_41 = do do return (Atom (B False)) in case kl_V3084 of !(kl_V3084@(Cons (!kl_V3084h) (!kl_V3084t))) -> pat_cond_14 kl_V3084 kl_V3084h kl_V3084t _ -> pat_cond_41))) !appl_42 <- kl_V3632 `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3632 kl_V3635) !appl_43 <- appl_42 `pseq` applyWrapper appl_13 [appl_42] appl_43 `pseq` applyWrapper appl_5 [appl_43] pat_cond_44 = 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_44))) let !appl_45 = ApplC (Func "lambda" (Context (\(!kl_V3073) -> do let pat_cond_46 kl_V3073 kl_V3073h kl_V3073t = do let !appl_47 = ApplC (Func "lambda" (Context (\(!kl_V3074) -> do let pat_cond_48 = do let !appl_49 = ApplC (Func "lambda" (Context (\(!kl_V3075) -> do let pat_cond_50 kl_V3075 kl_V3075h kl_V3075t = do let !appl_51 = ApplC (Func "lambda" (Context (\(!kl_V3076) -> do let pat_cond_52 kl_V3076 kl_V3076h kl_V3076t = do let !appl_53 = ApplC (Func "lambda" (Context (\(!kl_V3077) -> do let pat_cond_54 kl_V3077 kl_V3077h kl_V3077t = do let !appl_55 = ApplC (Func "lambda" (Context (\(!kl_V3078) -> do let pat_cond_56 = do let !appl_57 = ApplC (Func "lambda" (Context (\(!kl_V3079) -> do let pat_cond_58 kl_V3079 kl_V3079h kl_V3079t = do let !appl_59 = ApplC (Func "lambda" (Context (\(!kl_F) -> do let !appl_60 = ApplC (Func "lambda" (Context (\(!kl_V3080) -> do let pat_cond_61 = do let !appl_62 = ApplC (Func "lambda" (Context (\(!kl_V3081) -> do let pat_cond_63 kl_V3081 kl_V3081h kl_V3081t = do let !appl_64 = ApplC (Func "lambda" (Context (\(!kl_Action) -> do let !appl_65 = ApplC (Func "lambda" (Context (\(!kl_V3082) -> do let pat_cond_66 = do let !appl_67 = ApplC (Func "lambda" (Context (\(!kl_V3083) -> do let pat_cond_68 = do !appl_69 <- kl_shen_incinfs let !appl_70 = ApplC (PL "thunk" (do !appl_71 <- kl_Action `pseq` klCons kl_Action (Types.Atom Types.Nil) !appl_72 <- kl_F `pseq` (appl_71 `pseq` klCons kl_F appl_71) !appl_73 <- appl_72 `pseq` klCons appl_72 (Types.Atom Types.Nil) !appl_74 <- appl_73 `pseq` klCons (ApplC (wrapNamed "not" kl_not)) appl_73 !appl_75 <- kl_Action `pseq` klCons kl_Action (Types.Atom Types.Nil) !appl_76 <- appl_74 `pseq` (appl_75 `pseq` klCons appl_74 appl_75) !appl_77 <- appl_76 `pseq` klCons (Types.Atom (Types.UnboundSym "where")) appl_76 appl_77 `pseq` (kl_V3633 `pseq` (kl_V3634 `pseq` (kl_V3635 `pseq` (kl_V3636 `pseq` kl_shen_tMult_action appl_77 kl_V3633 kl_V3634 kl_V3635 kl_V3636)))))) !appl_78 <- kl_Throwcontrol `pseq` (kl_V3635 `pseq` (appl_70 `pseq` kl_cut kl_Throwcontrol kl_V3635 appl_70)) appl_69 `pseq` (appl_78 `pseq` kl_do appl_69 appl_78) pat_cond_79 = do do return (Atom (B False)) in case kl_V3083 of kl_V3083@(Atom (Nil)) -> pat_cond_68 _ -> pat_cond_79))) !appl_80 <- kl_V3075t `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3075t kl_V3635) appl_80 `pseq` applyWrapper appl_67 [appl_80] pat_cond_81 = do do return (Atom (B False)) in case kl_V3082 of kl_V3082@(Atom (Nil)) -> pat_cond_66 _ -> pat_cond_81))) !appl_82 <- kl_V3081t `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3081t kl_V3635) appl_82 `pseq` applyWrapper appl_65 [appl_82]))) kl_V3081h `pseq` applyWrapper appl_64 [kl_V3081h] pat_cond_83 = do do return (Atom (B False)) in case kl_V3081 of !(kl_V3081@(Cons (!kl_V3081h) (!kl_V3081t))) -> pat_cond_63 kl_V3081 kl_V3081h kl_V3081t _ -> pat_cond_83))) !appl_84 <- kl_V3076t `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3076t kl_V3635) appl_84 `pseq` applyWrapper appl_62 [appl_84] pat_cond_85 = do do return (Atom (B False)) in case kl_V3080 of kl_V3080@(Atom (Nil)) -> pat_cond_61 _ -> pat_cond_85))) !appl_86 <- kl_V3079t `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3079t kl_V3635) appl_86 `pseq` applyWrapper appl_60 [appl_86]))) kl_V3079h `pseq` applyWrapper appl_59 [kl_V3079h] pat_cond_87 = do do return (Atom (B False)) in case kl_V3079 of !(kl_V3079@(Cons (!kl_V3079h) (!kl_V3079t))) -> pat_cond_58 kl_V3079 kl_V3079h kl_V3079t _ -> pat_cond_87))) !appl_88 <- kl_V3077t `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3077t kl_V3635) appl_88 `pseq` applyWrapper appl_57 [appl_88] pat_cond_89 = do do return (Atom (B False)) in case kl_V3078 of kl_V3078@(Atom (UnboundSym "fail-if")) -> pat_cond_56 kl_V3078@(ApplC (PL "fail-if" _)) -> pat_cond_56 kl_V3078@(ApplC (Func "fail-if" _)) -> pat_cond_56 _ -> pat_cond_89))) !appl_90 <- kl_V3077h `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3077h kl_V3635) appl_90 `pseq` applyWrapper appl_55 [appl_90] pat_cond_91 = do do return (Atom (B False)) in case kl_V3077 of !(kl_V3077@(Cons (!kl_V3077h) (!kl_V3077t))) -> pat_cond_54 kl_V3077 kl_V3077h kl_V3077t _ -> pat_cond_91))) !appl_92 <- kl_V3076h `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3076h kl_V3635) appl_92 `pseq` applyWrapper appl_53 [appl_92] pat_cond_93 = do do return (Atom (B False)) in case kl_V3076 of !(kl_V3076@(Cons (!kl_V3076h) (!kl_V3076t))) -> pat_cond_52 kl_V3076 kl_V3076h kl_V3076t _ -> pat_cond_93))) !appl_94 <- kl_V3075h `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3075h kl_V3635) appl_94 `pseq` applyWrapper appl_51 [appl_94] pat_cond_95 = do do return (Atom (B False)) in case kl_V3075 of !(kl_V3075@(Cons (!kl_V3075h) (!kl_V3075t))) -> pat_cond_50 kl_V3075 kl_V3075h kl_V3075t _ -> pat_cond_95))) !appl_96 <- kl_V3073t `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3073t kl_V3635) appl_96 `pseq` applyWrapper appl_49 [appl_96] pat_cond_97 = do do return (Atom (B False)) in case kl_V3074 of kl_V3074@(Atom (UnboundSym "shen.choicepoint!")) -> pat_cond_48 kl_V3074@(ApplC (PL "shen.choicepoint!" _)) -> pat_cond_48 kl_V3074@(ApplC (Func "shen.choicepoint!" _)) -> pat_cond_48 _ -> pat_cond_97))) !appl_98 <- kl_V3073h `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3073h kl_V3635) appl_98 `pseq` applyWrapper appl_47 [appl_98] pat_cond_99 = do do return (Atom (B False)) in case kl_V3073 of !(kl_V3073@(Cons (!kl_V3073h) (!kl_V3073t))) -> pat_cond_46 kl_V3073 kl_V3073h kl_V3073t _ -> pat_cond_99))) !appl_100 <- kl_V3632 `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3632 kl_V3635) !appl_101 <- appl_100 `pseq` applyWrapper appl_45 [appl_100] appl_101 `pseq` applyWrapper appl_3 [appl_101] pat_cond_102 = 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_102))) let !appl_103 = ApplC (Func "lambda" (Context (\(!kl_V3068) -> do let pat_cond_104 kl_V3068 kl_V3068h kl_V3068t = do let !appl_105 = ApplC (Func "lambda" (Context (\(!kl_V3069) -> do let pat_cond_106 = do let !appl_107 = ApplC (Func "lambda" (Context (\(!kl_V3070) -> do let pat_cond_108 kl_V3070 kl_V3070h kl_V3070t = do let !appl_109 = ApplC (Func "lambda" (Context (\(!kl_P) -> do let !appl_110 = ApplC (Func "lambda" (Context (\(!kl_V3071) -> do let pat_cond_111 kl_V3071 kl_V3071h kl_V3071t = do let !appl_112 = ApplC (Func "lambda" (Context (\(!kl_Action) -> do let !appl_113 = ApplC (Func "lambda" (Context (\(!kl_V3072) -> do let pat_cond_114 = do !appl_115 <- kl_shen_incinfs let !appl_116 = ApplC (PL "thunk" (do !appl_117 <- klCons (Types.Atom (Types.UnboundSym "boolean")) (Types.Atom Types.Nil) !appl_118 <- appl_117 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_117 !appl_119 <- kl_P `pseq` (appl_118 `pseq` klCons kl_P appl_118) let !appl_120 = ApplC (PL "thunk" (do let !appl_121 = ApplC (PL "thunk" (do !appl_122 <- klCons (Types.Atom (Types.UnboundSym "verified")) (Types.Atom Types.Nil) !appl_123 <- appl_122 `pseq` klCons (Types.Atom (Types.UnboundSym ":")) appl_122 !appl_124 <- kl_P `pseq` (appl_123 `pseq` klCons kl_P appl_123) !appl_125 <- appl_124 `pseq` (kl_V3634 `pseq` klCons appl_124 kl_V3634) kl_Action `pseq` (kl_V3633 `pseq` (appl_125 `pseq` (kl_V3635 `pseq` (kl_V3636 `pseq` kl_shen_tMult_action kl_Action kl_V3633 appl_125 kl_V3635 kl_V3636)))))) kl_Throwcontrol `pseq` (kl_V3635 `pseq` (appl_121 `pseq` kl_cut kl_Throwcontrol kl_V3635 appl_121)))) appl_119 `pseq` (kl_V3634 `pseq` (kl_V3635 `pseq` (appl_120 `pseq` kl_shen_tMult appl_119 kl_V3634 kl_V3635 appl_120))))) !appl_126 <- kl_Throwcontrol `pseq` (kl_V3635 `pseq` (appl_116 `pseq` kl_cut kl_Throwcontrol kl_V3635 appl_116)) appl_115 `pseq` (appl_126 `pseq` kl_do appl_115 appl_126) pat_cond_127 = do do return (Atom (B False)) in case kl_V3072 of kl_V3072@(Atom (Nil)) -> pat_cond_114 _ -> pat_cond_127))) !appl_128 <- kl_V3071t `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3071t kl_V3635) appl_128 `pseq` applyWrapper appl_113 [appl_128]))) kl_V3071h `pseq` applyWrapper appl_112 [kl_V3071h] pat_cond_129 = do do return (Atom (B False)) in case kl_V3071 of !(kl_V3071@(Cons (!kl_V3071h) (!kl_V3071t))) -> pat_cond_111 kl_V3071 kl_V3071h kl_V3071t _ -> pat_cond_129))) !appl_130 <- kl_V3070t `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3070t kl_V3635) appl_130 `pseq` applyWrapper appl_110 [appl_130]))) kl_V3070h `pseq` applyWrapper appl_109 [kl_V3070h] pat_cond_131 = do do return (Atom (B False)) in case kl_V3070 of !(kl_V3070@(Cons (!kl_V3070h) (!kl_V3070t))) -> pat_cond_108 kl_V3070 kl_V3070h kl_V3070t _ -> pat_cond_131))) !appl_132 <- kl_V3068t `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3068t kl_V3635) appl_132 `pseq` applyWrapper appl_107 [appl_132] pat_cond_133 = do do return (Atom (B False)) in case kl_V3069 of kl_V3069@(Atom (UnboundSym "where")) -> pat_cond_106 kl_V3069@(ApplC (PL "where" _)) -> pat_cond_106 kl_V3069@(ApplC (Func "where" _)) -> pat_cond_106 _ -> pat_cond_133))) !appl_134 <- kl_V3068h `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3068h kl_V3635) appl_134 `pseq` applyWrapper appl_105 [appl_134] pat_cond_135 = do do return (Atom (B False)) in case kl_V3068 of !(kl_V3068@(Cons (!kl_V3068h) (!kl_V3068t))) -> pat_cond_104 kl_V3068 kl_V3068h kl_V3068t _ -> pat_cond_135))) !appl_136 <- kl_V3632 `pseq` (kl_V3635 `pseq` kl_shen_lazyderef kl_V3632 kl_V3635) !appl_137 <- appl_136 `pseq` applyWrapper appl_103 [appl_136] !appl_138 <- appl_137 `pseq` applyWrapper appl_1 [appl_137] kl_Throwcontrol `pseq` (appl_138 `pseq` kl_shen_cutpoint kl_Throwcontrol appl_138)))) !appl_139 <- kl_shen_catchpoint appl_139 `pseq` applyWrapper appl_0 [appl_139] kl_findall :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_findall (!kl_V3642) (!kl_V3643) (!kl_V3644) (!kl_V3645) (!kl_V3646) = 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 (Types.Atom (Types.UnboundSym "shen.a")) let !appl_4 = ApplC (PL "thunk" (do !appl_5 <- kl_A `pseq` (kl_V3645 `pseq` kl_shen_lazyderef kl_A kl_V3645) !appl_6 <- appl_5 `pseq` klSet appl_5 (Types.Atom Types.Nil) let !appl_7 = ApplC (PL "thunk" (do kl_V3642 `pseq` (kl_V3643 `pseq` (kl_V3644 `pseq` (kl_A `pseq` (kl_V3645 `pseq` (kl_V3646 `pseq` kl_shen_findallhelp kl_V3642 kl_V3643 kl_V3644 kl_A kl_V3645 kl_V3646))))))) kl_B `pseq` (appl_6 `pseq` (kl_V3645 `pseq` (appl_7 `pseq` kl_bind kl_B appl_6 kl_V3645 appl_7))))) !appl_8 <- kl_A `pseq` (appl_3 `pseq` (kl_V3645 `pseq` (appl_4 `pseq` kl_bind kl_A appl_3 kl_V3645 appl_4))) appl_2 `pseq` (appl_8 `pseq` kl_do appl_2 appl_8)))) !appl_9 <- kl_V3645 `pseq` kl_shen_newpv kl_V3645 appl_9 `pseq` applyWrapper appl_1 [appl_9]))) !appl_10 <- kl_V3645 `pseq` kl_shen_newpv kl_V3645 appl_10 `pseq` applyWrapper appl_0 [appl_10] kl_shen_findallhelp :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_findallhelp (!kl_V3653) (!kl_V3654) (!kl_V3655) (!kl_V3656) (!kl_V3657) (!kl_V3658) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_Case) -> do let pat_cond_1 = do !appl_2 <- kl_shen_incinfs !appl_3 <- kl_V3656 `pseq` (kl_V3657 `pseq` kl_shen_lazyderef kl_V3656 kl_V3657) !appl_4 <- appl_3 `pseq` value appl_3 !appl_5 <- kl_V3655 `pseq` (appl_4 `pseq` (kl_V3657 `pseq` (kl_V3658 `pseq` kl_bind kl_V3655 appl_4 kl_V3657 kl_V3658))) 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_V3657 `pseq` (kl_V3658 `pseq` kl_fwhen (Atom (B False)) kl_V3657 kl_V3658))) kl_V3656 `pseq` (kl_V3653 `pseq` (kl_V3657 `pseq` (appl_9 `pseq` kl_shen_remember kl_V3656 kl_V3653 kl_V3657 appl_9))))) !appl_10 <- kl_V3654 `pseq` (kl_V3657 `pseq` (appl_8 `pseq` kl_call kl_V3654 kl_V3657 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 :: Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLValue -> Types.KLContext Types.Env Types.KLValue kl_shen_remember (!kl_V3663) (!kl_V3664) (!kl_V3665) (!kl_V3666) = do let !appl_0 = ApplC (Func "lambda" (Context (\(!kl_B) -> do !appl_1 <- kl_shen_incinfs !appl_2 <- kl_V3663 `pseq` (kl_V3665 `pseq` kl_shen_deref kl_V3663 kl_V3665) !appl_3 <- kl_V3664 `pseq` (kl_V3665 `pseq` kl_shen_deref kl_V3664 kl_V3665) !appl_4 <- kl_V3663 `pseq` (kl_V3665 `pseq` kl_shen_deref kl_V3663 kl_V3665) !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_V3665 `pseq` (kl_V3666 `pseq` kl_bind kl_B appl_7 kl_V3665 kl_V3666))) appl_1 `pseq` (appl_8 `pseq` kl_do appl_1 appl_8)))) !appl_9 <- kl_V3665 `pseq` kl_shen_newpv kl_V3665 appl_9 `pseq` applyWrapper appl_0 [appl_9] expr13 :: Types.KLContext Types.Env Types.KLValue expr13 = do (do return (Types.Atom (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 (Types.Atom (Types.Str "E")))