set verbose off
set confirm off
define w
where
end

break stop_if_in_dbx
break KlFatalErrorDefaultHandler

handle 8 stop nopass

define f
finish
end

define di
disable
end

define mc
p KlMC()
end

define mc0
set MDnocheck = 1
end

define mc1
set MDnocheck = 0
end

define ww
set BT()
end

define typelist
echo KlAtomType
p KlAtomType
echo KlKeywordType
p KlKeywordType
echo KlConstantType
p KlConstantType
echo KlActiveType
p KlActiveType
echo KlCollectionType
p KlCollectionType
echo KlQuotedExprType
p KlQuotedExprType
echo KlExoType
p KlExoType
echo KlExoClassType
p KlExoClassType
echo KlGenericFunctionType
p KlGenericFunctionType
echo KlAccessorType
p KlFunctionType
echo KlSubrType
p KlSubrType
echo KlFSubrType
p KlFSubrType
echo KlExprType
p KlExprType
echo KlFExprType
p KlFExprType
echo KlMExprType
p KlMExprType
echo KlHashType
p KlHashType
echo KlListType
p KlListType
echo KlNumberType
p KlNumberType
echo KlRealType
p KlRealType
echo KlStreamType
p KlStreamType
echo KlStringType
p KlStringType
echo KlTypeType
p KlTypeType
end

## must come last!!!
break KlCBreakPoint
break purify_stop_here
break MLEAK_break
run
