juno-app/derived/JunoBundle.m3


MODULE JunoBundle;
Generated by m3bundle; see its manpage.

IMPORT Bundle, BundleRep, Text;
IMPORT Thread, Wr, TextWr;

TYPE T = Bundle.T OBJECT OVERRIDES
           get      := LookUp;
           getNames := GetNames;
         END;

TYPE Texts = REF ARRAY OF TEXT;

VAR
  bundle: T     := NIL;
  names : Texts := NIL;

PROCEDURE Get(): Bundle.T =
  BEGIN
    IF (bundle = NIL) THEN bundle := NEW (T) END;
    RETURN bundle;
  END Get;

PROCEDURE GetNames (<*UNUSED*> self: T): Texts =
  BEGIN
    IF names = NIL THEN
      names := NEW (Texts, NUMBER (Names));
      names^ := Names;
    END;
    RETURN names;
  END GetNames;

PROCEDURE LookUp (<*UNUSED*> self: T;  element: TEXT): TEXT =
  BEGIN
    FOR i := 0 TO LAST (Names)-1 DO
      IF Text.Equal (Names[i], element) THEN
        IF Elements[i] = NIL THEN Elements[i] := GetElt (i) END;
        RETURN Elements[i];
      END;
    END;
    RETURN NIL;
  END LookUp;

CONST Names = ARRAY [0..79] OF TEXT {
  "Triangle.juno",
  "FontData.pkl",
  "Pen.juno",
  "UpArrow.pbm",
  "Arrow.juno",
  "Shadow.juno",
  "Fold.fv",
  "JunoUI.juno",
  "Unit.juno",
  "PS.juno",
  "Editor2.fv",
  "CharSet.juno",
  "Text.juno",
  "DefaultConfig.sx",
  "Offset.juno",
  "Grow.pbm",
  "Angle.juno",
  "Random.juno",
  "SaveFile.fv",
  "DiGraph.juno",
  "TypeLinesC.juno",
  "Plot.juno",
  "Startup.fv",
  "BST.juno",
  "ShowLine.juno",
  "SaveChanges.fv",
  "LineSkip.juno",
  "VPrint.juno",
  "PtLoc.juno",
  "Configure.fv",
  "Color.juno",
  "Time.juno",
  "Path.juno",
  "MenuArrow.pbm",
  "Arc.juno",
  "Rel.juno",
  "SavePS.fv",
  "Geometry.juno",
  "TypeLinesR.juno",
  "Proj3D.juno",
  "Toolbox.fv",
  "C.juno",
  "Square.juno",
  "showerror.ps",
  "Math.juno",
  "CompaqLogo.ppm",
  "Bundled.modlist",
  "R3.juno",
  "LoadFile.fv",
  "Dash.juno",
  "Type.juno",
  "PieChart.juno",
  "Macros.fv",
  "Bezier.juno",
  "Show.juno",
  "FoldAsAnim.fv",
  "Line.juno",
  "Unparse.juno",
  "PtLabel.juno",
  "AboutBox.fv",
  "Circle.juno",
  "TextList.juno",
  "Outline.juno",
  "Juno2Logo.ppm",
  "Anim.juno",
  "Rect.juno",
  "SaveConfirm.fv",
  "Ellipse.juno",
  "TypeLinesL.juno",
  "Print.juno",
  "Juno.fv",
  "BuiltIn.juno",
  "Slider.juno",
  "prologue.ps",
  "List.juno",
  "Xform2.juno",
  "R2.juno",
  "LoadModule.fv",
  "Curve.juno",
  NIL
};

VAR Elements := ARRAY [0..79] OF TEXT {
  E0,
  NIL (* E1 .. E1_40 *),
  NIL (* E2 .. E2_1 *),
  E3,
  NIL (* E4 .. E4_1 *),
  NIL (* E5 .. E5_0 *),
  E6,
  E7,
  E8,
  NIL (* E9 .. E9_6 *),
  E10,
  NIL (* E11 .. E11_0 *),
  E12,
  E13,
  E14,
  E15,
  E16,
  E17,
  E18,
  NIL (* E19 .. E19_1 *),
  NIL (* E20 .. E20_1 *),
  NIL (* E21 .. E21_3 *),
  E22,
  NIL (* E23 .. E23_0 *),
  E24,
  E25,
  E26,
  NIL (* E27 .. E27_2 *),
  E28,
  E29,
  NIL (* E30 .. E30_0 *),
  E31,
  NIL (* E32 .. E32_2 *),
  E33,
  NIL (* E34 .. E34_0 *),
  NIL (* E35 .. E35_0 *),
  E36,
  NIL (* E37 .. E37_1 *),
  NIL (* E38 .. E38_1 *),
  E39,
  E40,
  E41,
  E42,
  E43,
  E44,
  NIL (* E45 .. E45_3 *),
  E46,
  NIL (* E47 .. E47_0 *),
  E48,
  NIL (* E49 .. E49_3 *),
  E50,
  NIL (* E51 .. E51_1 *),
  NIL (* E52 .. E52_0 *),
  NIL (* E53 .. E53_2 *),
  E54,
  E55,
  E56,
  NIL (* E57 .. E57_0 *),
  NIL (* E58 .. E58_1 *),
  E59,
  NIL (* E60 .. E60_0 *),
  E61,
  NIL (* E62 .. E62_2 *),
  NIL (* E63 .. E63_34 *),
  NIL (* E64 .. E64_2 *),
  NIL (* E65 .. E65_3 *),
  E66,
  NIL (* E67 .. E67_0 *),
  NIL (* E68 .. E68_1 *),
  E69,
  NIL (* E70 .. E70_1 *),
  NIL (* E71 .. E71_0 *),
  NIL (* E72 .. E72_3 *),
  NIL (* E73 .. E73_1 *),
  NIL (* E74 .. E74_0 *),
  NIL (* E75 .. E75_0 *),
  NIL (* E76 .. E76_0 *),
  E77,
  NIL (* E78 .. E78_4 *),
  NIL
};

PROCEDURE GetElt (n: INTEGER): TEXT =
  <*FATAL Thread.Alerted, Wr.Failure *>
  VAR wr := TextWr.New ();
  BEGIN
    CASE n OF
    | 1 =>
        Wr.PutText (wr, E1);
        Wr.PutText (wr, E1_0);
        Wr.PutText (wr, E1_1);
        Wr.PutText (wr, E1_2);
        Wr.PutText (wr, E1_3);
        Wr.PutText (wr, E1_4);
        Wr.PutText (wr, E1_5);
        Wr.PutText (wr, E1_6);
        Wr.PutText (wr, E1_7);
        Wr.PutText (wr, E1_8);
        Wr.PutText (wr, E1_9);
        Wr.PutText (wr, E1_10);
        Wr.PutText (wr, E1_11);
        Wr.PutText (wr, E1_12);
        Wr.PutText (wr, E1_13);
        Wr.PutText (wr, E1_14);
        Wr.PutText (wr, E1_15);
        Wr.PutText (wr, E1_16);
        Wr.PutText (wr, E1_17);
        Wr.PutText (wr, E1_18);
        Wr.PutText (wr, E1_19);
        Wr.PutText (wr, E1_20);
        Wr.PutText (wr, E1_21);
        Wr.PutText (wr, E1_22);
        Wr.PutText (wr, E1_23);
        Wr.PutText (wr, E1_24);
        Wr.PutText (wr, E1_25);
        Wr.PutText (wr, E1_26);
        Wr.PutText (wr, E1_27);
        Wr.PutText (wr, E1_28);
        Wr.PutText (wr, E1_29);
        Wr.PutText (wr, E1_30);
        Wr.PutText (wr, E1_31);
        Wr.PutText (wr, E1_32);
        Wr.PutText (wr, E1_33);
        Wr.PutText (wr, E1_34);
        Wr.PutText (wr, E1_35);
        Wr.PutText (wr, E1_36);
        Wr.PutText (wr, E1_37);
        Wr.PutText (wr, E1_38);
        Wr.PutText (wr, E1_39);
        Wr.PutText (wr, E1_40);
    | 2 =>
        Wr.PutText (wr, E2);
        Wr.PutText (wr, E2_0);
        Wr.PutText (wr, E2_1);
    | 4 =>
        Wr.PutText (wr, E4);
        Wr.PutText (wr, E4_0);
        Wr.PutText (wr, E4_1);
    | 5 =>
        Wr.PutText (wr, E5);
        Wr.PutText (wr, E5_0);
    | 9 =>
        Wr.PutText (wr, E9);
        Wr.PutText (wr, E9_0);
        Wr.PutText (wr, E9_1);
        Wr.PutText (wr, E9_2);
        Wr.PutText (wr, E9_3);
        Wr.PutText (wr, E9_4);
        Wr.PutText (wr, E9_5);
        Wr.PutText (wr, E9_6);
    | 11 =>
        Wr.PutText (wr, E11);
        Wr.PutText (wr, E11_0);
    | 19 =>
        Wr.PutText (wr, E19);
        Wr.PutText (wr, E19_0);
        Wr.PutText (wr, E19_1);
    | 20 =>
        Wr.PutText (wr, E20);
        Wr.PutText (wr, E20_0);
        Wr.PutText (wr, E20_1);
    | 21 =>
        Wr.PutText (wr, E21);
        Wr.PutText (wr, E21_0);
        Wr.PutText (wr, E21_1);
        Wr.PutText (wr, E21_2);
        Wr.PutText (wr, E21_3);
    | 23 =>
        Wr.PutText (wr, E23);
        Wr.PutText (wr, E23_0);
    | 27 =>
        Wr.PutText (wr, E27);
        Wr.PutText (wr, E27_0);
        Wr.PutText (wr, E27_1);
        Wr.PutText (wr, E27_2);
    | 30 =>
        Wr.PutText (wr, E30);
        Wr.PutText (wr, E30_0);
    | 32 =>
        Wr.PutText (wr, E32);
        Wr.PutText (wr, E32_0);
        Wr.PutText (wr, E32_1);
        Wr.PutText (wr, E32_2);
    | 34 =>
        Wr.PutText (wr, E34);
        Wr.PutText (wr, E34_0);
    | 35 =>
        Wr.PutText (wr, E35);
        Wr.PutText (wr, E35_0);
    | 37 =>
        Wr.PutText (wr, E37);
        Wr.PutText (wr, E37_0);
        Wr.PutText (wr, E37_1);
    | 38 =>
        Wr.PutText (wr, E38);
        Wr.PutText (wr, E38_0);
        Wr.PutText (wr, E38_1);
    | 45 =>
        Wr.PutText (wr, E45);
        Wr.PutText (wr, E45_0);
        Wr.PutText (wr, E45_1);
        Wr.PutText (wr, E45_2);
        Wr.PutText (wr, E45_3);
    | 47 =>
        Wr.PutText (wr, E47);
        Wr.PutText (wr, E47_0);
    | 49 =>
        Wr.PutText (wr, E49);
        Wr.PutText (wr, E49_0);
        Wr.PutText (wr, E49_1);
        Wr.PutText (wr, E49_2);
        Wr.PutText (wr, E49_3);
    | 51 =>
        Wr.PutText (wr, E51);
        Wr.PutText (wr, E51_0);
        Wr.PutText (wr, E51_1);
    | 52 =>
        Wr.PutText (wr, E52);
        Wr.PutText (wr, E52_0);
    | 53 =>
        Wr.PutText (wr, E53);
        Wr.PutText (wr, E53_0);
        Wr.PutText (wr, E53_1);
        Wr.PutText (wr, E53_2);
    | 57 =>
        Wr.PutText (wr, E57);
        Wr.PutText (wr, E57_0);
    | 58 =>
        Wr.PutText (wr, E58);
        Wr.PutText (wr, E58_0);
        Wr.PutText (wr, E58_1);
    | 60 =>
        Wr.PutText (wr, E60);
        Wr.PutText (wr, E60_0);
    | 62 =>
        Wr.PutText (wr, E62);
        Wr.PutText (wr, E62_0);
        Wr.PutText (wr, E62_1);
        Wr.PutText (wr, E62_2);
    | 63 =>
        Wr.PutText (wr, E63);
        Wr.PutText (wr, E63_0);
        Wr.PutText (wr, E63_1);
        Wr.PutText (wr, E63_2);
        Wr.PutText (wr, E63_3);
        Wr.PutText (wr, E63_4);
        Wr.PutText (wr, E63_5);
        Wr.PutText (wr, E63_6);
        Wr.PutText (wr, E63_7);
        Wr.PutText (wr, E63_8);
        Wr.PutText (wr, E63_9);
        Wr.PutText (wr, E63_10);
        Wr.PutText (wr, E63_11);
        Wr.PutText (wr, E63_12);
        Wr.PutText (wr, E63_13);
        Wr.PutText (wr, E63_14);
        Wr.PutText (wr, E63_15);
        Wr.PutText (wr, E63_16);
        Wr.PutText (wr, E63_17);
        Wr.PutText (wr, E63_18);
        Wr.PutText (wr, E63_19);
        Wr.PutText (wr, E63_20);
        Wr.PutText (wr, E63_21);
        Wr.PutText (wr, E63_22);
        Wr.PutText (wr, E63_23);
        Wr.PutText (wr, E63_24);
        Wr.PutText (wr, E63_25);
        Wr.PutText (wr, E63_26);
        Wr.PutText (wr, E63_27);
        Wr.PutText (wr, E63_28);
        Wr.PutText (wr, E63_29);
        Wr.PutText (wr, E63_30);
        Wr.PutText (wr, E63_31);
        Wr.PutText (wr, E63_32);
        Wr.PutText (wr, E63_33);
        Wr.PutText (wr, E63_34);
    | 64 =>
        Wr.PutText (wr, E64);
        Wr.PutText (wr, E64_0);
        Wr.PutText (wr, E64_1);
        Wr.PutText (wr, E64_2);
    | 65 =>
        Wr.PutText (wr, E65);
        Wr.PutText (wr, E65_0);
        Wr.PutText (wr, E65_1);
        Wr.PutText (wr, E65_2);
        Wr.PutText (wr, E65_3);
    | 67 =>
        Wr.PutText (wr, E67);
        Wr.PutText (wr, E67_0);
    | 68 =>
        Wr.PutText (wr, E68);
        Wr.PutText (wr, E68_0);
        Wr.PutText (wr, E68_1);
    | 70 =>
        Wr.PutText (wr, E70);
        Wr.PutText (wr, E70_0);
        Wr.PutText (wr, E70_1);
    | 71 =>
        Wr.PutText (wr, E71);
        Wr.PutText (wr, E71_0);
    | 72 =>
        Wr.PutText (wr, E72);
        Wr.PutText (wr, E72_0);
        Wr.PutText (wr, E72_1);
        Wr.PutText (wr, E72_2);
        Wr.PutText (wr, E72_3);
    | 73 =>
        Wr.PutText (wr, E73);
        Wr.PutText (wr, E73_0);
        Wr.PutText (wr, E73_1);
    | 74 =>
        Wr.PutText (wr, E74);
        Wr.PutText (wr, E74_0);
    | 75 =>
        Wr.PutText (wr, E75);
        Wr.PutText (wr, E75_0);
    | 76 =>
        Wr.PutText (wr, E76);
        Wr.PutText (wr, E76_0);
    | 78 =>
        Wr.PutText (wr, E78);
        Wr.PutText (wr, E78_0);
        Wr.PutText (wr, E78_1);
        Wr.PutText (wr, E78_2);
        Wr.PutText (wr, E78_3);
        Wr.PutText (wr, E78_4);
    ELSE (*skip*)
    END;
    RETURN TextWr.ToText (wr);
  END GetElt;

CONST E0 =
   "MODULE Triangle;\n\n(* Procedures and predicates for \n   triangles. *)"
 & "\n\nIMPORT Math, R2, Geometry, PS, Angle;\n\nPROC Draw(a, b, c) IS \n  "
 & "IF \n    PS.MoveTo(a); \n    PS.LineTo(b); \n    PS.LineTo(c); \n    PS"
 & ".Close() \n  FI \nEND;\n\nUI PointTool(Draw);\n\n(* Add the closed tria"
 & "ngle on the \n   vertices \"a\", \"b\", and \"c\" to \n   the current p"
 & "ath. *)\n\nFUNC p = OutCenter(a, b, c) IS \n  (b, p) CONG (p, a) AND \n"
 & "  (a, p) CONG (p, c) \nEND;\n\nUI PointTool(OutCenter);\n\n(* \"p\" is "
 & "the center of the circle \n   circumscribing the triangle \n   \"abc\"."
 & " *)\n\nFUNC p = InCenter(a, b, c) IS \n  Angle.OnBisector(p, a, b, c) A"
 & "ND \n  Angle.OnBisector(p, b, a, c) \nEND;\n\nUI PointTool(InCenter);\n"
 & "\n(* \"p\" is the center of the circle \n   inscribed in the triangle \""
 & "abc\". \n*)\n\nFUNC res = Area(a, b, c) IS \n  (E ab = R2.Minus(b, a),\n"
 & "     ac = R2.Minus(c, a), \n     det = R2.Det(ab, ac) :: \n    res = Ma"
 & "th.Abs(det) / 2) \nEND;\n\n(* \"res\" is the area of the \n   triangle "
 & "\"abc\". *)\n\n";

CONST E1 =
   "&%2IL6N5\000null\000\000\200$\000\201\320\032B\345\214\002\n5\001\000U\226"
 & "\303{\303`d\016\010\000\000\000\000\000\000\0005\001\000\312Q\2211\217U"
 & "\207\024\000\001\000\0000005\001\000\236\207\330\351d3h\0105\001\000\375"
 & "\r\300V\'\217\375\0375\000\201\357\272c\366(D\022\t\000\000\000Helvetic"
 & "a5\007\001\000\000\0005\t\000\000\000\000\000\000\000\001\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0005\001\000\022\363M\246+B\016"
 & "\0265\001\0065\001\0065\001\0065\001\0065\007\003\000\000\000-*-5\007\022"
 & "\000\000\000helvetica-medium-r\003\000\000\000\000\000\000\000\022\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0005\007\f\000\000\000"
 & "-normal-*-*-\025\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0005\007\002\000\000\00024!\000\000\000\000"
 & "\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0005\007\r\000\000\0000-*-*-*-*-*-*#\000\000\000\000\000\000\000\r\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000%y\300A\000\000"
 & "\000\00000005\001\0055\001\0065\007\020\000\000\000Times-BoldItalic5\007"
 & "\001\000\000\0000\020\000\000\000\000\000\000\000\001\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001"
 & "\0065\001\0061\f\000\000\0005\007\f\000\000\000times-bold-i\003\000\000"
 & "\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\016\000\000\000\017\000\000\000\000\000\000\000\f\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0005\007\001\000\000\0008\033"
 & "\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001\020\000\000\000\034\000\000\000\000\000\000\000\r"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\360[\347@\000"
 & "\000\000\000005\001\0055\001\0065\007\013\000\000\000Times-Roman5\007\001"
 & "\000\000\0001\013\000\000\000\000\000\000\000\001\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\006"
 & "5\001\0061\f\000\000\0005\007\016\000\000\000times-medium-r\003\000\000"
 & "\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0001\016\000\000\000\021\000\000\000\000\000\000\000\f\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0005\007\002\000\000\000"
 & "10\035\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\020\000\000\000\037\000\000\000\000\000\000\000"
 & "\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004\001\'"
 & "A\000\000\000\00005\001\0055\001\0065\007\f\000\000\000Courier-Bold1\037"
 & "\000\000\000\f\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001"
 & "\0061\f\000\000\0005\007\016\000\000\000courier-bold-r\003\000\000\000\000"
 & "\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0001\016\000\000\000\021\000\000\000\000\000\000\000\f\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001&\000\000\000\035\000\000\000"
 & "\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\020\000\000\000\037\000\000\000\000\000\000\000\r\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000H\f1A\000\000\000\00000"
 & "5\001\0055\001\0065\007\007\000\000\000Courier5\007\001\000\000\0004\007"
 & "\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000"
 & "\000\0005\007\020\000\000\000courier-medium-r\003\000\000\000\000\000\000"
 & "\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016"
 & "\000\000\000\023\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0005\007\002\000\000\00018\037\000\000\000"
 & "\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\020\000\000\000!\000\000\000\000\000\000\000\r\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0008\264\211A\000\000\000\0000"
 & "0005\001\0055\001\0065\007\017\000\000\000Courier-Oblique13\000\000\000"
 & "\017\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f"
 & "\000\000\0005\007\020\000\000\000courier-medium-o\003\000\000\000\000\000"
 & "\000\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1\016\000\000\000\023\000\000\000\000\000\000\000\f\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0001:\000\000\000\037\000\000\000\000"
 & "\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0001\020\000\000\000!\000\000\000\000\000\000\000\r\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0008\264\211A\000\000\000\00000000"
 & "05\001\0055\001\0065\007\016\000\000\000Helvetica-Bold13\000\000\000\016"
 & "\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000"
 & "\000\0005\007\020\000\000\000helvetica-bold-r\003\000\000\000\000\000\000"
 & "\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016"
 & "\000\000\000\023\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001:\000\000\000\037\000\000\000\000\000\000"
 & "\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020"
 & "\000\000\000!\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\230G\222A\000\000\000\00000000005\001\005"
 & "5\001\0065\007\021\000\000\000Helvetica-Oblique13\000\000\000\021\000\000"
 & "\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\000"
 & "5\007\022\000\000\000helvetica-medium-o\003\000\000\000\000\000\000\000"
 & "\022\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000"
 & "\000\000\025\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0001:\000\000\000!\000\000\000\000\000\000\000"
 & "\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000"
 & "\000\000#\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\230G\222A\000\000\000\00005\001\0055\001\006"
 & "1\023\000\000\0001\006\000\000\000\020\000\000\000\000\000\000\000\001\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\006"
 & "5\001\0065\001\0065\001\0061\f\000\000\0001\032\000\000\000\003\000\000"
 & "\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\016\000\000\000\017\000\000\000\000\000\000\000\f\000\000\000"
 & "\000\000\000\000\000\000\000\000\000";

CONST E1_0 =
   "\000\000\0001\017\000\000\000\033\000\000\000\000\000\000\000\002\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000\035"
 & "\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\205\013\276A\000\000\000\00005\001\0055\001\0065\007\n"
 & "\000\000\000Times-Bold5\007\001\000\000\0002\n\000\000\000\000\000\000\000"
 & "\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\001\010"
 & "5\001\0065\001\0065\001\0065\001\0061\f\000\000\0005\007\f\000\000\000t"
 & "imes-bold-r\003\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001\016\000\000\000\017\000\000\000\000\000"
 & "\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0005"
 & "\007\002\000\000\00012\033\000\000\000\000\000\000\000\002\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000\035\000\000"
 & "\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000[\3463A\000\000\000\00005\001\0055\001\0065\007\006\000\000\000"
 & "Symbol1`\000\000\000\006\000\000\000\000\000\000\000\001\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\006"
 & "5\001\0065\001\0061\f\000\000\0005\007\017\000\000\000symbol-medium-r\003"
 & "\000\000\000\000\000\000\000\017\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001\016\000\000\000\022\000\000\000\000\000\000\000\f"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001g\000\000\000"
 & "\036\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\020\000\000\000 \000\000\000\000\000\000\000\r"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\247\2634A\000"
 & "\000\000\0000005\001\0055\001\0065\007\025\000\000\000Helvetica-BoldObl"
 & "ique1\024\000\000\000\025\000\000\000\000\000\000\000\001\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\006"
 & "5\001\0065\001\0061\f\000\000\0005\007\020\000\000\000helvetica-bold-o\003"
 & "\000\000\000\000\000\000\000\020\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001\016\000\000\000\023\000\000\000\000\000\000\000\f"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\033\000\000"
 & "\000\037\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0001\020\000\000\000 \000\000\000\000\000\000\000"
 & "\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\241]\366"
 & "@\000\000\000\00000005\001\0055\001\0061=\000\000\0001\037\000\000\000\017"
 & "\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000"
 & "\000\0001C\000\000\000\003\000\000\000\000\000\000\000\020\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\023\000\000"
 & "\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001&\000\000\000\037\000\000\000\000\000\000\000\002\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000!\000\000\000"
 & "\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000H\f1A\000\000\000\00005\001\0055\001\0065\007\f\000\000\000Times-It"
 & "alic5\007\001\000\000\0003\f\000\000\000\000\000\000\000\001\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001"
 & "\0065\001\0065\001\0061\f\000\000\0005\007\016\000\000\000times-medium-"
 & "i\003\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\016\000\000\000\021\000\000\000\000\000\000\000"
 & "\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\007\002"
 & "\000\000\00014\035\000\000\000\000\000\000\000\002\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\020\000\000\000\037\000\000\000\000"
 & "\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\357\030\\A\000\000\000\0000000005\001\0055\001\0061F\000\000\0001\037\000"
 & "\000\000\016\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001"
 & "\0061\f\000\000\0001L\000\000\000\003\000\000\000\000\000\000\000\020\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000"
 & "\023\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001&\000\000\000\037\000\000\000\000\000\000\000\002\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000"
 & "!\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000^`)A\000\000\000\00005\001\0055\001\0061)\000\000\000"
 & "1`\000\000\000\f\000\000\000\000\000\000\000\001\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\006"
 & "5\001\0061\f\000\000\0001/\000\000\000\003\000\000\000\000\000\000\000\016"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000"
 & "\000\021\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001g\000\000\000\035\000\000\000\000\000\000\000\002"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000"
 & "\000\037\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000Q\270DA\000\000\000\000005\001\0055\001\00612\000"
 & "\000\0001\037\000\000\000\007\000\000\000\000\000\000\000\001\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001"
 & "\0065\001\0065\001\0061\f\000\000\00019\000\000\000\003\000\000\000\000"
 & "\000\000\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0001\016\000\000\000\023\000\000\000\000\000\000\000\f\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001&\000\000\000\037\000\000\000"
 & "\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\020\000\000\000!\000\000\000\000\000\000\000\r\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000H\f1A\000\000\000\0000005\001"
 & "\0055\001\0061O\000\000\0001\037\000\000\000\021\000\000\000\000\000\000"
 & "\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\001"
 & "\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001U\000\000\000\003"
 & "\000\000\000\000\000\000\000\022\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001\016\000\000\000\025\000\000\000\000\000\000\000\f"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001&\000\000\000"
 & "!\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001\020\000\000\000#\000\000\000\000\000\000\000\r\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000^`)A\000\000\000"
 & "\00000005\001\0055\001\0065\007\023\000\000\000Courier-BoldOblique1\204"
 & "\000\000\000\023\000\000\000\000\000\000\000\001\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\006"
 & "5\001\0061\f\000\000\0005\007\016\000\000\000courier-bold-o\003\000\000"
 & "\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0001";

CONST E1_1 =
   "\016\000\000\000\021\000\000\000\000\000\000\000\f\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\213\000\000\000\035\000\000\000\000"
 & "\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0001\020\000\000\000\037\000\000\000\000\000\000\000\r\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000XdXA\000\000\000\0000000000"
 & "00005\001\0055\001\0061\023\000\000\0001`\000\000\000\020\000\000\000\000"
 & "\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001\032\000"
 & "\000\000\003\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0001\016\000\000\000\017\000\000\000\000\000\000"
 & "\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001g\000"
 & "\000\000\033\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001\020\000\000\000\035\000\000\000\000\000"
 & "\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000="
 & "\3105A\000\000\000\0000005\001\0055\001\0061\036\000\000\0001\204\000\000"
 & "\000\013\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\006"
 & "1\f\000\000\0001%\000\000\000\003\000\000\000\000\000\000\000\016\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\021"
 & "\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\0001\213\000\000\000\035\000\000\000\000\000\000\000\002\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000"
 & "\037\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\352\032YA\000\000\000\000005\001\0055\001\0061s\000"
 & "\000\0001\006\000\000\000\025\000\000\000\000\000\000\000\001\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001"
 & "\0065\001\0065\001\0061\f\000\000\0001y\000\000\000\003\000\000\000\000"
 & "\000\000\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0001\016\000\000\000\023\000\000\000\000\000\000\000\f\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001\017\000\000\000\037\000\000"
 & "\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0001\020\000\000\000!\000\000\000\000\000\000\000\r\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000%y\300A\000\000\000\000"
 & "000005\001\0055\001\0061\203\000\000\0001\024\000\000\000\f\000\000\000"
 & "\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001\212"
 & "\000\000\000\003\000\000\000\000\000\000\000\016\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\016\000\000\000\021\000\000\000\000"
 & "\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1\033\000\000\000\035\000\000\000\000\000\000\000\001\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0001\020\000\000\000\036\000\000\000"
 & "\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000)\007\355@\000\000\000\00005\001\0055\001\0061\005\000\000\0001\204"
 & "\000\000\000\t\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001"
 & "\0061\f\000\000\0001\r\000\000\000\003\000\000\000\000\000\000\000\022\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000"
 & "\025\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001\213\000\000\000!\000\000\000\000\000\000\000\002\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000"
 & "#\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\354\221WA\000\000\000\000000005\001\0055\001\0061F"
 & "\000\000\0001`\000\000\000\016\000\000\000\000\000\000\000\001\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001"
 & "\0065\001\0065\001\0061\f\000\000\0001L\000\000\000\003\000\000\000\000"
 & "\000\000\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0001\016\000\000\000\023\000\000\000\000\000\000\000\f\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001g\000\000\000\037\000\000\000"
 & "\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\020\000\000\000!\000\000\000\000\000\000\000\r\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0008\3068A\000\000\000\0000000"
 & "5\001\0055\001\00612\000\000\0001`\000\000\000\007\000\000\000\000\000\000"
 & "\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\001"
 & "\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\00019\000\000\000\003"
 & "\000\000\000\000\000\000\000\020\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001\016\000\000\000\023\000\000\000\000\000\000\000\f"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001g\000\000\000"
 & "\037\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\020\000\000\000!\000\000\000\000\000\000\000\r"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000Q\270DA\000"
 & "\000\000\00000005\001\0055\001\0061_\000\000\0001\024\000\000\000\n\000"
 & "\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000"
 & "\0001f\000\000\000\003\000\000\000\000\000\000\000\f\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\017\000\000\000"
 & "\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0001\033\000\000\000\033\000\000\000\000\000\000\000\001\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000\034\000\000"
 & "\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\242\366\344@\000\000\000\000005\001\0055\001\0061j\000\000\000"
 & "1\024\000\000\000\006\000\000\000\000\000\000\000\001\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001"
 & "\0065\001\0061\f\000\000\0001p\000\000\000\003\000\000\000\000\000\000\000"
 & "\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000"
 & "\000\000\022\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0001\033\000\000\000\036\000\000\000\000\000\000"
 & "\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020"
 & "\000\000\000\037\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\353\373\345@\000\000\000\00005\001\005"
 & "5\001\0061\252\000\000\0001\024\000\000\000\023\000\000\000\000\000\000"
 & "\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\001"
 & "\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001\260\000\000\000"
 & "\003\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\016\000\000\000\021\000\000\000\000\000\000\000"
 & "\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\033\000"
 & "\000\000\035\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001\020\000\000\000\036\000\000\000\000\000"
 & "\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000_"
 & "\020\354@\000\000\000\00005\001\0055\001\0061s\000\000\0001`\000\000\000"
 & "\025\000\000\000\000\000\000\000\001\000\000";

CONST E1_2 =
   "\000\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065"
 & "\001\0065\001\0065\001\0061\f\000\000\0001y\000\000\000\003\000\000\000"
 & "\000\000\000\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\016\000\000\000\023\000\000\000\000\000\000\000\f\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0001g\000\000\000\037\000\000"
 & "\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0001\020\000\000\000!\000\000\000\000\000\000\000\r\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0008\3068A\000\000\000\000"
 & "00005\001\0055\001\0061=\000\000\0001\204\000\000\000\017\000\000\000\000"
 & "\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001C\000\000"
 & "\000\003\000\000\000\000\000\000\000\020\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0001\016\000\000\000\023\000\000\000\000\000\000"
 & "\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\213"
 & "\000\000\000\037\000\000\000\000\000\000\000\002\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\020\000\000\000!\000\000\000\000\000"
 & "\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000X"
 & "dXA\000\000\000\000005\001\0055\001\0061\005\000\000\00013\000\000\000\t"
 & "\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000"
 & "\000\0001\r\000\000\000\003\000\000\000\000\000\000\000\022\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\025\000"
 & "\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0001:\000\000\000!\000\000\000\000\000\000\000\002\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000#\000\000"
 & "\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\230G\222A\000\000\000\0000000005\001\0055\001\0061\036\000\000"
 & "\0001\024\000\000\000\013\000\000\000\000\000\000\000\001\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\006"
 & "5\001\0065\001\0061\f\000\000\0001%\000\000\000\003\000\000\000\000\000"
 & "\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1\016\000\000\000\021\000\000\000\000\000\000\000\f\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0001\033\000\000\000\035\000\000\000"
 & "\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\020\000\000\000\036\000\000\000\000\000\000\000\r\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0008\316\351@\000\000\000\000"
 & "05\001\0055\001\0061)\000\000\0001\024\000\000\000\f\000\000\000\000\000"
 & "\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "5\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001/\000\000\000"
 & "\003\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\016\000\000\000\021\000\000\000\000\000\000\000"
 & "\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\033\000"
 & "\000\000\035\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001\020\000\000\000\036\000\000\000\000\000"
 & "\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000_"
 & "\020\354@\000\000\000\000000005\001\0055\001\0061O\000\000\0001\204\000"
 & "\000\000\021\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001"
 & "\0061\f\000\000\0001U\000\000\000\003\000\000\000\000\000\000\000\022\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000"
 & "\025\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001\213\000\000\000!\000\000\000\000\000\000\000\002\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000"
 & "#\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\354\221WA\000\000\000\00005\001\0055\001\0061_\000"
 & "\000\0001\006\000\000\000\n\000\000\000\000\000\000\000\001\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001"
 & "\0065\001\0065\001\0061\f\000\000\0001f\000\000\000\003\000\000\000\000"
 & "\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1\016\000\000\000\017\000\000\000\000\000\000\000\f\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0001\017\000\000\000\033\000\000\000"
 & "\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\020\000\000\000\035\000\000\000\000\000\000\000\r\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\274\023\274A\000\000\000"
 & "\00005\001\0055\001\0061\203\000\000\0001\006\000\000\000\f\000\000\000"
 & "\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001\212"
 & "\000\000\000\003\000\000\000\000\000\000\000\016\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\016\000\000\000\021\000\000\000\000"
 & "\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1\017\000\000\000\035\000\000\000\000\000\000\000\002\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0001\020\000\000\000\037\000\000\000"
 & "\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\231\263\302A\000\000\000\00005\001\0055\001\0061j\000\000\0001\006"
 & "\000\000\000\006\000\000\000\000\000\000\000\001\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\006"
 & "5\001\0061\f\000\000\0001p\000\000\000\003\000\000\000\000\000\000\000\017"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000"
 & "\000\022\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\017\000\000\000\036\000\000\000\000\000\000\000"
 & "\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000"
 & "\000\000 \000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000]\352\274A\000\000\000\0000000000000005\001"
 & "\0055\001\0061\023\000\000\00013\000\000\000\020\000\000\000\000\000\000"
 & "\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\001"
 & "\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001\032\000\000\000"
 & "\003\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001\016\000\000\000\017\000\000\000\000\000\000\000\f"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001:\000\000\000"
 & "\033\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\020\000\000\000\035\000\000\000\000\000\000\000"
 & "\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\322w\214"
 & "A\000\000\000\000005\001\0055\001\0061\036\000\000\0001\006\000\000\000"
 & "\013\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f"
 & "\000\000\0001%\000\000\000\003\000\000\000\000\000\000\000\016\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\021\000"
 & "\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0001\017\000\000\000\035\000\000\000\000\000\000\000\002\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000";

CONST E1_3 =
   "\037\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\367\r\300A\000\000\000\00005\001\0055\001\0061\252"
 & "\000\000\0001\006\000\000\000\023\000\000\000\000\000\000\000\001\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065"
 & "\001\0065\001\0065\001\0061\f\000\000\0001\260\000\000\000\003\000\000\000"
 & "\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\016\000\000\000\021\000\000\000\000\000\000\000\f\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0001\017\000\000\000\035\000"
 & "\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\0001\020\000\000\000\037\000\000\000\000\000\000\000\r\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000Q\270\304A\000\000"
 & "\000\000000005\001\0055\001\0061=\000\000\0001\024\000\000\000\017\000\000"
 & "\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\000"
 & "1C\000\000\000\003\000\000\000\000\000\000\000\020\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\016\000\000\000\023\000\000\000\000"
 & "\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1\033\000\000\000\037\000\000\000\000\000\000\000\001\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0001\020\000\000\000 \000\000\000\000"
 & "\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "_\020\354@\000\000\000\000005\001\0055\001\0061\005\000\000\0001\037\000"
 & "\000\000\t\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\006"
 & "1\f\000\000\0001\r\000\000\000\003\000\000\000\000\000\000\000\022\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\025"
 & "\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\0001&\000\000\000!\000\000\000\000\000\000\000\002\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000#\000"
 & "\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000^`)A\000\000\000\0005\001\0055\001\0061\203\000\000\0001`\000"
 & "\000\000\f\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\006"
 & "1\f\000\000\0001\212\000\000\000\003\000\000\000\000\000\000\000\016\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000"
 & "\021\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001g\000\000\000\035\000\000\000\000\000\000\000\002\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000"
 & "\037\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000|<:A\000\000\000\000000005\001\0055\001\0061F\000\000"
 & "\0001\024\000\000\000\016\000\000\000\000\000\000\000\001\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\006"
 & "5\001\0065\001\0061\f\000\000\0001L\000\000\000\003\000\000\000\000\000"
 & "\000\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1\016\000\000\000\023\000\000\000\000\000\000\000\f\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0001\033\000\000\000\037\000\000\000"
 & "\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\020\000\000\000 \000\000\000\000\000\000\000\r\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\241]\366@\000\000\000\0000"
 & "05\001\0055\001\0061)\000\000\0001\006\000\000\000\f\000\000\000\000\000"
 & "\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "5\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001/\000\000\000"
 & "\003\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\016\000\000\000\021\000\000\000\000\000\000\000"
 & "\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\017\000"
 & "\000\000\035\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001\020\000\000\000\037\000\000\000\000\000"
 & "\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000Q"
 & "\270\304A\000\000\000\000005\001\0055\001\00612\000\000\0001\024\000\000"
 & "\000\007\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\006"
 & "1\f\000\000\00019\000\000\000\003\000\000\000\000\000\000\000\020\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\023"
 & "\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\0001\033\000\000\000\037\000\000\000\000\000\000\000\001\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000"
 & " \000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000_\020\354@\000\000\000\0000005\001\0055\001\0061O\000"
 & "\000\0001\024\000\000\000\021\000\000\000\000\000\000\000\001\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001"
 & "\0065\001\0065\001\0061\f\000\000\0001U\000\000\000\003\000\000\000\000"
 & "\000\000\000\022\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0001\016\000\000\000\025\000\000\000\000\000\000\000\f\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001\033\000\000\000!\000\000\000"
 & "\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\020\000\000\000\"\000\000\000\000\000\000\000\r\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\241]\366@\000\000\000\0000"
 & "0005\001\0055\001\0061\252\000\000\0001`\000\000\000\023\000\000\000\000"
 & "\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001\260\000"
 & "\000\000\003\000\000\000\000\000\000\000\016\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001\016\000\000\000\021\000\000\000\000\000"
 & "\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001"
 & "g\000\000\000\035\000\000\000\000\000\000\000\002\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\020\000\000\000\037\000\000\000\000"
 & "\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "Q\270DA\000\000\000\000000000000005\001\0055\001\0061\023\000\000\0001\037"
 & "\000\000\000\020\000\000\000\000\000\000\000\001\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\006"
 & "5\001\0061\f\000\000\0001\032\000\000\000\003\000\000\000\000\000\000\000"
 & "\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000"
 & "\000\000\017\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0001&\000\000\000\033\000\000\000\000\000\000\000"
 & "\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000"
 & "\000\000\035\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\254A%A\000\000\000\0000005\001\0055\001\006"
 & "1\036\000\000\0001`\000\000\000\013\000\000\000\000\000\000\000\001\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\006"
 & "5\001\0065\001\0065\001\0061\f\000\000\0001%\000\000\000\003\000\000\000"
 & "\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001";

CONST E1_4 =
   "\016\000\000\000\021\000\000\000\000\000\000\000\f\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001g\000\000\000\035\000\000\000\000\000"
 & "\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1\020\000\000\000\037\000\000\000\000\000\000\000\r\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000P\2647A\000\000\000\000005\001\005"
 & "5\001\00612\000\000\0001\006\000\000\000\007\000\000\000\000\000\000\000"
 & "\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\001\010"
 & "5\001\0065\001\0065\001\0065\001\0061\f\000\000\00019\000\000\000\003\000"
 & "\000\000\000\000\000\000\020\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\0001\016\000\000\000\023\000\000\000\000\000\000\000\f\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\017\000\000\000"
 & "\037\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\020\000\000\000!\000\000\000\000\000\000\000\r"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000M\342\272A\000"
 & "\000\000\0005\001\0055\001\0061s\000\000\00013\000\000\000\025\000\000\000"
 & "\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001y\000"
 & "\000\000\003\000\000\000\000\000\000\000\020\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001\016\000\000\000\023\000\000\000\000\000"
 & "\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001"
 & ":\000\000\000\037\000\000\000\000\000\000\000\002\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\020\000\000\000!\000\000\000\000\000"
 & "\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\230"
 & "G\222A\000\000\000\00000005\001\0055\001\0061=\000\000\0001\006\000\000"
 & "\000\017\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\006"
 & "1\f\000\000\0001C\000\000\000\003\000\000\000\000\000\000\000\020\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\023"
 & "\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\0001\017\000\000\000\037\000\000\000\000\000\000\000\002\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000"
 & "!\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000M\342\272A\000\000\000\000005\001\0055\001\0061\005"
 & "\000\000\0001`\000\000\000\t\000\000\000\000\000\000\000\001\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001"
 & "\0065\001\0065\001\0061\f\000\000\0001\r\000\000\000\003\000\000\000\000"
 & "\000\000\000\022\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0001\016\000\000\000\025\000\000\000\000\000\000\000\f\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001g\000\000\000!\000\000\000"
 & "\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\020\000\000\000#\000\000\000\000\000\000\000\r\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0008\3068A\000\000\000\0000000"
 & "05\001\0055\001\0061F\000\000\0001\006\000\000\000\016\000\000\000\000\000"
 & "\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "5\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001L\000\000\000"
 & "\003\000\000\000\000\000\000\000\020\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\016\000\000\000\023\000\000\000\000\000\000\000"
 & "\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\017\000"
 & "\000\000\037\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001\020\000\000\000!\000\000\000\000\000\000"
 & "\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000%y\300"
 & "A\000\000\000\0000000005\001\0055\001\0061O\000\000\0001\006\000\000\000"
 & "\021\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f"
 & "\000\000\0001U\000\000\000\003\000\000\000\000\000\000\000\022\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\025\000"
 & "\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0001\017\000\000\000!\000\000\000\000\000\000\000\002\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000#\000\000"
 & "\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000%y\300A\000\000\000\000005\001\0055\001\0061_\000\000\0001\204\000"
 & "\000\000\n\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\006"
 & "1\f\000\000\0001f\000\000\000\003\000\000\000\000\000\000\000\f\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\017"
 & "\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\0001\213\000\000\000\033\000\000\000\000\000\000\000\002\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000"
 & "\035\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\340\233TA\000\000\000\000005\001\0055\001\0061j\000"
 & "\000\0001\204\000\000\000\006\000\000\000\000\000\000\000\001\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001"
 & "\0065\001\0065\001\0061\f\000\000\0001p\000\000\000\003\000\000\000\000"
 & "\000\000\000\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0001\016\000\000\000\022\000\000\000\000\000\000\000\f\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001\213\000\000\000\036\000\000"
 & "\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0001\020\000\000\000 \000\000\000\000\000\000\000\r\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\177\216UA\000\000\000\000"
 & "005\001\0055\001\0061s\000\000\0001\037\000\000\000\025\000\000\000\000"
 & "\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001y\000\000"
 & "\000\003\000\000\000\000\000\000\000\020\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0001\016\000\000\000\023\000\000\000\000\000\000"
 & "\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001&\000"
 & "\000\000\037\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001\020\000\000\000!\000\000\000\000\000\000"
 & "\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000^`)A\000"
 & "\000\000\00000005\001\0055\001\0061=\000\000\0001`\000\000\000\017\000\000"
 & "\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\000"
 & "1C\000\000\000\003\000\000\000\000\000\000\000\020\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\016\000\000\000\023\000\000\000\000"
 & "\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1g\000\000\000\037\000\000\000\000\000\000\000\002\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\020\000\000\000!\000\000\000\000\000"
 & "\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000Q"
 & "\270DA\000\000\000\000000000005\001\0055\001\0061)\000\000\0001\204\000"
 & "\000\000\f\000\000\000\000\000\000\000\001\000\000\000\000";

CONST E1_5 =
   "\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\006"
 & "5\001\0065\001\0061\f\000\000\0001/\000\000\000\003\000\000\000\000\000"
 & "\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1\016\000\000\000\021\000\000\000\000\000\000\000\f\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0001\213\000\000\000\035\000\000\000"
 & "\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\020\000\000\000\037\000\000\000\000\000\000\000\r\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000XdXA\000\000\000\000000"
 & "005\001\0055\001\0061O\000\000\0001`\000\000\000\021\000\000\000\000\000"
 & "\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "5\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001U\000\000\000"
 & "\003\000\000\000\000\000\000\000\022\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\016\000\000\000\025\000\000\000\000\000\000\000"
 & "\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001g\000\000"
 & "\000!\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\020\000\000\000#\000\000\000\000\000\000\000\r"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0008\3068A\000"
 & "\000\000\000005\001\0055\001\0061_\000\000\00013\000\000\000\n\000\000\000"
 & "\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001f\000"
 & "\000\000\003\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0001\016\000\000\000\017\000\000\000\000\000\000"
 & "\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001:\000"
 & "\000\000\033\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001\020\000\000\000\035\000\000\000\000\000"
 & "\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000u"
 & "\003\213A\000\000\000\00005\001\0055\001\0061\203\000\000\00013\000\000"
 & "\000\f\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f"
 & "\000\000\0001\212\000\000\000\003\000\000\000\000\000\000\000\016\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\021"
 & "\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\0001:\000\000\000\035\000\000\000\000\000\000\000\002\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000\037"
 & "\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\354\350\217A\000\000\000\00005\001\0055\001\0061j\000\000"
 & "\00013\000\000\000\006\000\000\000\000\000\000\000\001\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001"
 & "\0065\001\0061\f\000\000\0001p\000\000\000\003\000\000\000\000\000\000\000"
 & "\017\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000"
 & "\000\000\022\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0001:\000\000\000\036\000\000\000\000\000\000\000"
 & "\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000"
 & "\000\000 \000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\030\242\213A\000\000\000\0000000000000005\001"
 & "\0055\001\0061\023\000\000\0001\204\000\000\000\020\000\000\000\000\000"
 & "\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "5\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001\032\000\000"
 & "\000\003\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\016\000\000\000\017\000\000\000\000\000\000\000"
 & "\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\213\000"
 & "\000\000\033\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001\020\000\000\000\035\000\000\000\000\000"
 & "\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000_"
 & "\325VA\000\000\000\000005\001\0055\001\0061\036\000\000\00013\000\000\000"
 & "\013\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f"
 & "\000\000\0001%\000\000\000\003\000\000\000\000\000\000\000\016\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\021\000"
 & "\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0001:\000\000\000\035\000\000\000\000\000\000\000\002\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000\037\000"
 & "\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\020\364\215A\000\000\000\00005\001\0055\001\0061\252\000\000"
 & "\00013\000\000\000\023\000\000\000\000\000\000\000\001\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001"
 & "\0065\001\0061\f\000\000\0001\260\000\000\000\003\000\000\000\000\000\000"
 & "\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016"
 & "\000\000\000\021\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\0001:\000\000\000\035\000\000\000\000\000\000"
 & "\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020"
 & "\000\000\000\037\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000<\212\223A\000\000\000\00000000005\001\005"
 & "5\001\0061\005\000\000\0001\024\000\000\000\t\000\000\000\000\000\000\000"
 & "\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\001\010"
 & "5\001\0065\001\0065\001\0065\001\0061\f\000\000\0001\r\000\000\000\003\000"
 & "\000\000\000\000\000\000\022\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\0001\016\000\000\000\025\000\000\000\000\000\000\000\f\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\033\000\000\000"
 & "!\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001\020\000\000\000\"\000\000\000\000\000\000\000\r\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\241]\366@\000\000"
 & "\000\0005\001\0055\001\0061\203\000\000\0001\037\000\000\000\f\000\000\000"
 & "\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001\212"
 & "\000\000\000\003\000\000\000\000\000\000\000\016\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\016\000\000\000\021\000\000\000\000"
 & "\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1&\000\000\000\035\000\000\000\000\000\000\000\002\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\0001\020\000\000\000\037\000\000\000\000"
 & "\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "CN)A\000\000\000\000000005\001\0055\001\0061F\000\000\0001\204\000\000\000"
 & "\016\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f"
 & "\000\000\0001L\000\000\000\003\000\000\000\000\000\000\000\020\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\023\000"
 & "\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\0001\213\000\000\000\037\000\000\000\000\000\000\000\002\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000!";

CONST E1_6 =
   "\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\354\221WA\000\000\000\000005\001\0055\001\0061)\000\000"
 & "\00013\000\000\000\f\000\000\000\000\000\000\000\001\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001"
 & "\0065\001\0061\f\000\000\0001/\000\000\000\003\000\000\000\000\000\000\000"
 & "\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000"
 & "\000\000\021\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0001:\000\000\000\035\000\000\000\000\000\000\000"
 & "\002\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000"
 & "\000\000\037\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000<\212\223A\000\000\000\000005\001\0055\001\006"
 & "12\000\000\0001\204\000\000\000\007\000\000\000\000\000\000\000\001\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\006"
 & "5\001\0065\001\0065\001\0061\f\000\000\00019\000\000\000\003\000\000\000"
 & "\000\000\000\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\016\000\000\000\023\000\000\000\000\000\000\000\f\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\0001\213\000\000\000\037\000"
 & "\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\0001\020\000\000\000!\000\000\000\000\000\000\000\r\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000XdXA\000\000\000\000"
 & "00005\001\0055\001\0061_\000\000\0001\037\000\000\000\n\000\000\000\000"
 & "\000\000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000\000\0001f\000\000"
 & "\000\003\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\0001\016\000\000\000\017\000\000\000\000\000\000\000"
 & "\f\000\000\000\000\000\000\000\000\000\000\000\000\000\000\0001&\000\000"
 & "\000\033\000\000\000\000\000\000\000\002\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0001\020\000\000\000\035\000\000\000\000\000\000"
 & "\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\231\213"
 & "#A\000\000\000\000005\001\0055\001\0061j\000\000\0001\037\000\000\000\006"
 & "\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\0061\f\000"
 & "\000\0001p\000\000\000\003\000\000\000\000\000\000\000\017\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000\022\000\000"
 & "\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001&\000\000\000\036\000\000\000\000\000\000\000\002\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000 \000\000\000"
 & "\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000;F$A\000\000\000\00005\001\0055\001\0061\252\000\000\0001\037\000\000"
 & "\000\023\000\000\000\000\000\000\000\001\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\0005\001\0105\001\0065\001\0065\001\0065\001\006"
 & "1\f\000\000\0001\260\000\000\000\003\000\000\000\000\000\000\000\016\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\016\000\000\000"
 & "\021\000\000\000\000\000\000\000\f\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\0001&\000\000\000\035\000\000\000\000\000\000\000\002\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\0001\020\000\000\000"
 & "\037\000\000\000\000\000\000\000\r\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000H\f1A\000\000\000\000005\001\0055\001\0061s\000\000"
 & "\0001\204\000\000\000\025\000\000\000\000\000\000\000\001\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\0005\001\0105\001\0065\001\006"
 & "5\001\0065\001\0061\f\000\000\0001y\000\000\000\003\000\000\000\000\000"
 & "\000\000\020\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "1\016\000\000\000\023\000\000\000\000\000\000\000\f\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\0001\213\000\000\000\037\000\000\000"
 & "\000\000\000\000\002\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\0001\020\000\000\000!\000\000\000\000\000\000\000\r\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\354\221WA\000\000\000\0000"
 & "0\010\000\000\000\000\000\000\000\300\000\000\000\000\000\000\0003\000\000"
 & "\000\000\000\000\000N\000\000\000\000\000\000\0005\001\003\005\000\000\000"
 & "\000\000\000\0005\001\004 \000\000\0005\001\0051=\000\000\0005\001\000\200"
 & "[\244\355\034\366Y\032B`\345\274\266\363=?{\024N?\000\000\200\276\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\001"
 & "\001\001\001\001\001\001\001\000\001\001\000\001\001\001\000\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\000";

CONST E1_7 =
   "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\000\000\000\000\232\231\031?\232\231\031?\000\000"
 & "\000\000\232\231\031?\232\231\031?\232\231\031?\000\000\000\000\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?00000000000000000000000"
 & "00000000005\001\000\311\005\356G\216\333a\035\376\324x>h\221\355>\230n\022"
 & "?\217\302u\2745\001\n\250\306\213>\'1\010?;\337\017?\236\357\247>5\001\n"
 & "\'1\010>u\223\030?\201\225#?o\022\003\2755\001\n\033/\335=u\223\030?\325"
 & "x)?%\006\001\2765\001\nL7\t>\020X\031?d;\037?\217\302u\2745\001\n\016-\262"
 & "=\341z\024?\f\002\013?\217\302u\2745\001\n`\345\220>\244p\375>;\337\017"
 & "?\236\357\247>5\001\n\211A\240>\230n\022?d;\037?\033/\335\2755\001\n\272"
 & "I\f>\203\300\312>d;\037?\033/\335\2755\001\n\207\026Y>\341z\024?Zd\033?"
 & "\201\225\203>5\001\n\223\030\004>\341z\024?\327\243\360>X94=5\001\n\234"
 & "\304 >\244p\275>#\333\371=B`\345\2755\001\n\223\030\004>\341z\024?`\345"
 & "\220>h\221m>5\001\nF\266s>\201\225\303>d;\337=\217\302u\2745\001\nB`\345"
 & "=\276\237\032?%\006!?\n\327\243\2755\001\n-\262\035>33\023?d;\037?\217\302"
 & "u\2745\001\n9\264\310=\n\327\003?d;\037?\000\000\000\0005\001\n)\\\217="
 & "sh\021?d;\037?\000\000\000\0005\001\n\236\357\247=^\272\t?d;\037?\217\302"
 & "u\2745\001\n\033/\335=\372~\n?d;\037?\000\000\000\0005\001\n\203\300\312"
 & "=\264\310\026?Zd\033?\217\302u\2745\001\nR\270\036>%\006!?d;\037?\217\302"
 & "u\2745\001\n5^:>\010\254\034?Zd\033?\000\000\000\0005\001\n\002+\007>+\207"
 & "\026?d;\037?\217\302u\2745\001\n\311v\276=\252\361\022?d;\037?\217\302u"
 & "\2745\001\nF\266s>\301\312\341>\270\036\305>\217\302u\2745\001\n\234\304"
 & " >\301\312\341>\270\036\305>B`\345\2755\001\n\246\233\304=\366(\034?\374"
 & "\251\361>1\010,=5\001\nd;\337=\232\231\031?\022\203\300>\337O\r>5\001\n"
 & "{\024\256=\020X\031?\374\251\361>1\010,=5\001\n\370Sc>}?\025?\230n\022?"
 & "\217\302u\2745\001\nJ\f\002>\364\375\024?d;\037?\217\302u\2745\001\n\246"
 & "\233D;Zd\033?;\337\017?\000\000\000\0005\001\n\305 0=-\262\035?;\337\017"
 & "?\000\000\000\0005\001\n\311v\276=\024\256\'?\341z\024?\274t\223\2745\001"
 & "\n\305 0=\270\036%?;\337\017?\000\000\000\0005\001\n\207\026Y=\303\365("
 & "?;\337\017?\000\000\000\0005\001\n\207\026Y=\303\365(?;\337\017?\000\000"
 & "\000\0005\001\n\347\373\251=\270\036%?\341z\024?\274t\223\2745\001\no\022"
 & "\003=;\337/?;\337\017?\000\000\000\0005\001\n\246\233\304=\356|\037?;\337"
 & "\017?\000\000\000\0005\001\n\364\375T=)\\/?;\337\017?\274t\223\2745\001"
 & "\n\343\245\033=\250\306+?;\337\017?\000\000\000\0005\001\n\022\203@=Zd\033"
 & "?;\337\017?\000\000\000\0005\001\no\022\203;=\n7?;\337\017?\000\000\000"
 & "\0005\001\nB`\345;\242E6?;\337\017?\364\375T\2745\001\n\022\203\300=\000"
 & "\000 ?\341z\024?\274t\223\2745\001\n\301\312\241=/\335$?;\337\017?\000\000"
 & "\000\0005\001\n\\\217\302=\000\000 ?\341z\024?\337O\r\2765\001\n\343\245"
 & "\033=\207\026\031?;\337\017?\000\000\000\0005\001\n\343\245\233=ff&?\341"
 & "z\024?\n\327\243\2745\001\n\033/\335=q=*?;\337\017?\000\000\000\0005\001"
 & "\n\000\000\000>F\2663?;\337\017?\274t\223\2745\001\n=\n\327=\207\0269?;"
 & "\337\017?\364\375T\2745\001\n\207\026\331=\376\3248?;\337\017?\364\375T"
 & "\2745\001\n\177j\274<\315\314,?;\337\017?\000\000\000\0005\001\n\'1\010"
 & ">\205\3531?;\337\017?\000\000\000\0005\001\n\305 \260=\366(\034?;\337\017"
 & "?\000\000\000\0005\001\nm\347{>\252\361\022?d;\037?\033/\335\2755\001\n"
 & "\333\371~>\262\235\357>%\006!?\n\327\243\2755\001\nq=\n>V\016\355>d;\037"
 & "?\033/\335\2755\001\n333>\242E\026?d;\037?}?\265>5\001\n\033/\335\274\006"
 & "\201\025?\232\231\231\275\000\000\000\2765\001\n\262\235\257>\347\373\351"
 & ">;\337\017?\236\357\247>5\001\n\343\245\233=\374\251\021?\301\312\341>\217"
 & "\302u\2745\001\nh\221\355<\000\000 ?%\006!?\217\302u\2745\001\n\207\026"
 & "\331=\343\245\033?\301\312\341>\217\302u\2745\001\n{\024\256=\n\327#?%\006"
 & "!?\217\302u\2745\001\n\207\026\331=\207\026\031?\301\312\341>\217\302u\274"
 & "5\001\n\325x\351=\325x)?%\006!?\000\000\000\0005\001\n#\333y=\'1(?\301\312"
 & "\341>\234\304 \2765\001\n\002+\007=P\215\027?%\006!?\000\000\000\0005\001"
 & "\n\\\217\302=\n\327\003?\'1(?\000\000\000\0005\001\n\364\375T=\315\314\f"
 & "?\'1(?\234\304 \2765\001\nh\221m=J\f\"?%\006!?\000\000\000\0005\001\n\\"
 & "\217\302=\n\327\003?%\006!?\000\000\000\000";

CONST E1_8 =
   "5\001\n\n\327\243\273\244p\035?\301\312\341>\000\000\000\0005\001\n\364"
 & "\375\324<\217\302\025?\301\312\341>\000\000\000\0005\001\n`\345\320=+\207"
 & "\026?\301\312\341>\217\302u\2745\001\n\246\233\304\274H\341\032?\301\312"
 & "\341>\234\304 \2765\001\n{\024\256=\215\227.?\301\312\341>\234\304 \276"
 & "5\001\n\217\302u=\345\320\"?\301\312\341>\000\000\000\0005\001\nw\276\237"
 & "=\006\201\025?\301\312\341>\217\302u\2745\001\n\f\002+>\262\235\017?\262"
 & "\235\017?\217\302u\2745\001\n\027\331\316=\230n\022?\254\034\332>\217\302"
 & "u\2745\001\n\354Q\270=\004V.?\254\034\332>\n\327#\2745\001\n\343\245\233"
 & "=\205\3531?\254\034\332>\n\327#\2745\001\n\n\327\243<\024\256\'?\254\034"
 & "\332>\000\000\000\0005\001\no\022\203\273\027\331.?\254\034\332>\234\304"
 & " \2765\001\n\203\300\312=\331\316\027?\254\034\332>\000\000\000\0005\001"
 & "\n\215\227n>\374\251\021?d;\037?\033/\335\2755\001\n\370Sc>\354Q\370>\000"
 & "\000@?\000\000\200\2765\001\n)\\\017>X9\364>d;\037?\033/\335\2755\001\n"
 & "h\221\355=\232\231\031?\n\327\243>^\272I>000000000000000005\001\n\\\217"
 & "\302=\n\327\003?\254\034\332>\000\000\000\0005\001\n+\207\226>\331\316\367"
 & ">1\010,?\311v\376>5\001\n\016-\262>\010\254\034?1\010,?\311v\376>5\001\n"
 & "\372~j>j\274\024?\213l\'?X9\364>5\001\n\207\026Y>%\006!?\321\"\033?5^\372"
 & ">5\001\nh\221m>\232\231\031?\327\243\020?ff\006?5\001\n\027\331\216>\274"
 & "t\023?m\347\033?\211A\000?5\001\n\354Q\270>\215\227\356>\341z\024?X9\364"
 & ">5\001\n\335$\206>\205\353\021?\354Q\030?m\347\373>05\001\n\347\373\251"
 & ">\000\000\000?\022\203 ?V\016\355>5\001\n^\272I>\305 \260>\n\327#<\276\237"
 & "\032\27605\001\nj\274t>\027\331.?1\010,?\311v\376>5\001\n\317\367S>\016"
 & "-\262>\000\000\000\000\276\237\032\2765\001\n\335$\206>\033/\035?\226C+"
 & "?m\347\373>05\001\nfff>\n\327\343>\366(\334>\234\304 \2765\001\n\276\237"
 & "\032>+\207\026?\033/\035?9\264H\2755\001\n\266\363\375=\333\371\036?\177"
 & "j\034?1\010\254\2745\001\n\022\203\300=\234\304 ?7\211\001?h\221m=5\001"
 & "\n\217\302\365=sh1?;\337\017?\000\000\000\0005\001\nF\266s>\305 \360>\315"
 & "\314,?333\2765\001\n\364\375\324==\n\027?\341z\024?w\276\237\2751\270\002"
 & "\000\0005\001\n\207\026Y=\203\300*?\341z\024?\274t\223\2745\001\n\031\004"
 & "V>o\022\003?\341z\024?\333\371~>5\001\n\177j\274=y\351&?\035Z\344>)\\\217"
 & "=5\001\nR\270\036>\307K\027?\221\355\274>\033/\335=5\001\n\343\245\033>"
 & "\027\331\016?\205\353\221>D\213l>5\001\n\207\026Y=\203\300*?\341z\024?\274"
 & "t\223\2741\265\002\000\0005\001\n\321\"[>\274t\023?d;\037?^\272\211>5\001"
 & "\n\246\233\304=b\020\030?\027\331\016?X94=5\001\n\037\205k>\303\365\010"
 & "?d;\037?\333\371~>5\001\n\254\034Z>\211A\000?d;\037?\217\302u>1\262\002"
 & "\000\0005\001\n\274t\223=\230n\022?\254\034\332>\234\304 \2765\001\n\315"
 & "\314\314=\256G!?;\337\017?w\276\237\2755\001\n\315\314\214>?5\336>\213l"
 & "\247>7\211A>1\272\002\000\0005\001\nD\213l>Zd\373>d;\037?\333\371~>5\001"
 & "\n=\nW>\303\365\010?\341z\024?\333\371~>5\001\nh\221m=?5\036?\035Z\344>"
 & ")\\\217=5\001\n\270\036\205=D\213,?q=*?\325xi\2755\001\n\270\036\205=\226"
 & "C+?q=*?\325xi\2755\001\n\006\201\225=9\264(?\372~*?B`e\2755\001\n=\n\327"
 & "=\215\227\356>\366(\334>\234\304 \2765\001\n\246\233D;Zd\033?\f\002K?\000"
 & "\000\000\0005\001\n\246\233D;\260r(?\f\002K?\000\000\000\0005\001\n\246"
 & "\233D;Zd\033?ffF?\000\000\000\0005\001\n\246\233D;\236\357\'?Zd;?\000\000"
 & "\000\0005\001\n\246\233D;Zd\033?\321\";?\000\000\000\0005\001\n\246\233"
 & "D;Zd\033?\234\304@?\000\000\000\0005\001\n\246\233D;\024\256\'?;\337\017"
 & "?\000\000\000\0005\001\n\311v\276=\260r(?\341z\024?\276\237\032\2765\001"
 & "\n\207\026Y=\303\365(?\f\002K?\000\000\000\0005\001\n\207\026Y=\f\002+?"
 & "\f\002K?\000\000\000\0005\001\n\207\026Y=\303\365(?ffF?\000\000\000\000"
 & "5\001\n\207\026Y=\303\365(?\321\";?\000\000\000\0005\001\n\246\233\304="
 & "\356|\037?\f\002K?\000\000\000\0005\001\n\246\233\304=\370S#?\f\002K?\000"
 & "\000\000\0005\001\n\246\233\304=\356|\037?ffF?\000\000\000\0005\001\n\246"
 & "\233\304=\356|\037?\321\";?\000\000\000\0005\001\n\305 0=\270\036%?;\337"
 & "\017?\000\000\000\0005\001\nB`\345;\242E6?Zd;?\364\375T\2745\001\n\022\203"
 & "\300=\000\000 ?\f\002K?\274t\223\2745\001\n\022\203\300=\370S#?\f\002K?"
 & "\274t\223\2745\001\n\022\203\300=\000\000 ?ffF?\274t\223\2745\001\n\022"
 & "\203\300=\236\357\'?Zd;?\274t\223\2745\001\n\022\203\300=\000\000 ?\321"
 & "\";?\274t\223\2745\001\n\252\361\322=Zd\033?\327\243\360>\305 0=5\001\n"
 & "\022\203\300=\000\000 ?%\006!?\n\327\243\2755\001\n\000\000\000>F\2663?"
 & "\f\002K?\274t\223\2745\001\n\000\000\000>F\2663?\f\002K?\274t\223\2745\001"
 & "\n\000\000\000>F\2663?ffF?\274t\223\2745\001\n\000\000\000>F\2663?\321\""
 & ";?\274t\223\2745\001\n\'1\010>\205\3531?\f\002K?\000\000\000\0005\001\n"
 & "\301\312\241=\321\"\033?;\337\017?\000\000\000\0005\001\n\246\233D=\266"
 & "\363\035?%\006!?\217\302u\2745\001\n\343\245\233=\374\251\021?1\010,?\217"
 & "\302u\2745\001\n\343\245\233=\010\254\034?1\010,?\217\302u\2745\001\n\343"
 & "\245\233=j\274\024?\213l\'?\217\302u\2745\001\n\343\245\233=%\006!?\321"
 & "\"\033?\217\302u\2745\001\n\343\245\233=\205\353\021?\354Q\030?\217\302"
 & "u\2745\001\n\343\245\233=\374\251\021?\022\203 ?\217\302u\2745\001\n\236"
 & "\357\'=\211A ?\301\312\341>\217\302u\2745\001\n\207\026\331=\033/\035?\301"
 & "\312\341>\276\237\032\2765\001\n\207\026\331=\207\026\031?1\010,?\217\302"
 & "u\2745\001\n\207\026\331=\010\254\034?1\010,?\217\302u\2745\001\n\207\026"
 & "\331=\207\026\031?\213l\'?\217\302u\2745\001\n\207\026\331=\207\026\031"
 & "?\354Q\030?\217\302u\2745\001\n";

CONST E1_9 =
   "\\\217\302=\n\327\003?1\010,?\000\000\000\0005\001\n\\\217\302=\010\254"
 & "\034?1\010,?\000\000\000\0005\001\n\\\217\302=V\016\r?\213l\'?\000\000\000"
 & "\0005\001\n\\\217\302=q=\n?\354Q\030?\000\000\000\0005\001\n`\345\320=\201"
 & "\225#?%\006!?\217\302u\2745\001\n\364\375\324<%\006!?\321\"\033?\000\000"
 & "\000\0005\001\n`\345\320=+\207\026?1\010,?\217\302u\2745\001\n`\345\320"
 & "=\010\254\034?1\010,?\217\302u\2745\001\n`\345\320=+\207\026?\213l\'?\217"
 & "\302u\2745\001\n`\345\320=%\006!?\321\"\033?\217\302u\2745\001\n`\345\320"
 & "=+\207\026?\354Q\030?\217\302u\2745\001\n\226C\013>!\260\022?\240\032\357"
 & ">\246\233D=5\001\n`\345\320=+\207\026?7\211\001?\n\327\243\2755\001\n\027"
 & "\331\316=\230n\022?1\010,?\217\302u\2745\001\n\027\331\316=\254\034\032"
 & "?1\010,?\217\302u\2745\001\n\027\331\316=\230n\022?\213l\'?\217\302u\274"
 & "5\001\n\027\331\316=\230n\022?\354Q\030?\217\302u\2745\001\no\022\203\273"
 & "\027\331.?1\010,?\234\304 \2765\001\n\246\233\304\274H\341\032?%\006!?\234"
 & "\304 \2765\001\no\022\203\273\027\331.?\354Q\030?\234\304 \2760005\001\005"
 & "1j\000\000\0005\001\t\354Q8\276\037\205\213?\256G\201?\031\004\226\276\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\000"
 & "\001\001\001\001\001\000\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\200>\372~\252>+\2076?\000\000\000?D\213\f?"
 & "}?U?\002+G?\234\304\340>\372~\252>\372~\252>\000\000\000?D\213\f?\000\000"
 & "\200>D\213\f?\000\000\200>\004V\216>\000\000\000?\000\000\000?\000\000\000"
 & "?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000"
 & "\000?\000\000\000?\004V\216>\004V\216>D\213\f?D\213\f?D\213\f?\370S\343"
 & ">D\213\f?\376\3248?\203\300*?\376\3248?\010\254\034?\177j\034?\370SC?5^"
 & "\032?\376\3248?\372~\252>7\211!?\376\3248?\262\235/?\201\225c?\376\3248"
 & "?\376\3248?\246\233D?-\262=?\004V\016?P\215\027?\177j\034?\327\2430?\234"
 & "\304\340>\246\233D?\270\036%?\037\205K?\177j\034?\372~\252>\221\355\\?\372"
 & "~\252>\260r(?\000\000\000?\000\000\000?7\211!?D\213\f?D\213\f?\221\355\374"
 & ">\234\304\340>B`\005?\230n\322>5^\032?\260r\250>5^\032?D\213\f?D\213\f?"
 & "\274t\023?B`\005?D\213\f?D\213\f?B`\005?D\213\f?5^\032?\234\304\340>\274"
 & "t\023?+\2076?\262\235/?\177j\374>\262\235/?\221\355\374>\217\302\365>\315"
 & "\314L>\217\302\365>D\213\f?\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000R\270"
 & "\036?\221\355|>D\213\f?\f\002+>+\2076?\000\000\000?\234\304@?\234\304@?"
 & "\234\304@?\234\304@?B`\205?\010\254|?5^\032?\010\254|?5^\032?\315\314\314"
 & ">D\213\f?\230n\322>D\213\f?D\213\f?+\2076?\221\355\374>\037\205\353>D\213"
 & "\f?D\213\f?D\213\f?D\213\f?\000\000\200?5^\032?\000\000\200?\260r(?!\260"
 & "R?\262\235/?\037\205K?\010\254|?\246\233D?\246\233D?!\260R?\246\233D?\246"
 & "\233D?+\2076?+\2076?+\2076?+\2076?+\2076?+\2076?+\2076?\246\233D?+\2076"
 & "?q=J?q=J?\n\327c?!\260R?D\213\f?\000\000\200>+\2076?5^\032?5^\032?B`\205"
 & "?\010\254|?5^\032?\010\254|?5^\032?\221\355\374>\260r\250>q=J?q=J?L7I?+"
 & "\2076?\246\233\304>\246\233\304>\246\233\304>\246\233\304>\000\000\000\000"
 & "\246\233\304>\221\355\374>\221\355\374>\221\355\374>\221\355\374>\000\000"
 & "\000\000\260r\250>\272I\214>\262\235/?\262\235/?\262\235/?\246\233\304>"
 & "\246\233\304>\246\233\304>\246\233\304>\246\233\304>\246\233\304>\221\355"
 & "\374>\221\355\374>\221\355\374>\000\000\000\000000000000000000000000000"
 & "0000000005\001\no\022\003>\217\302u>1\010,?\226C\213\2745\001\n\266\363"
 & "\375<\004V.?\341z4?\000\000\000\0005\001\n\n\327\243<\242E\366>\272I,?o"
 & "\022\203\2745\001\n\315\314\314<j\274\364>\364\3754?\000\000\000\0005\001"
 & "\n%\006\201=B`E?\024\256\'?\274t\023\2755\001\n\236\357\'=\000\000@?L7)"
 & "?\274t\223\2745\001\n\246\233D=\317\367\323>\000\000\000?\226C\213\2745"
 & "\001\n\207\026Y=\232\231\231>\272I,?\201\225C\2765\001\n\217\302\365<\362"
 & "\322\215>\272I,?\201\225C\2765\001\n\270\036\205=\276\237\332>V\016\r?L"
 & "7\t>5\001\n\n\327#<\347\373\t?\260r\010?\000\000\000\0005\001\nB`e=\360"
 & "\247F>\364\375\324=\343\245\033\2765\001\nX94<\303\365\010?\274t\223>\215"
 & "\227n>5\001\n\337O\215=\020X9>\\\217\302=\226C\213\2745\001\n\000\000\000"
 & "\000J\f\202>B`%";

CONST E1_10 =
   "?\274t\223\2745\001\n\177j\274<\351&\361>)\\/?\226C\213\2745\001\n\262\235"
 & "\357=\024\256\307>\272I,?\000\000\000\0005\001\n\315\314\314<33\363>\262"
 & "\235/?\000\000\000\0005\001\nw\276\037=R\270\336>)\\/?\226C\213\2745\001"
 & "\no\022\203<\305 \360>)\\/?\000\000\000\0005\001\nh\221\355<\345\320\342"
 & ">)\\/?\226C\213\2745\001\n\274t\023=\240\032\357>)\\/?\226C\213\2745\001"
 & "\n\246\233\304<B`\345>\272I,?o\022\203\2745\001\n\033/]=\256G\341>)\\/?"
 & "\274t\223\2745\001\n\266\363\375<\037\205\353>)\\/?\274t\223\2745\001\n"
 & "T\343\245=\313\241E>\037\205\353>\226C\213\2745\001\n\347\373\251=\323M"
 & "b>\037\205\353>\343\245\033\2765\001\n\364\375\324<T\343\005?\313\241\005"
 & "?\000\000\000\0005\001\nX94<\325x\t?\024\256\307>Nb\020>5\001\n\364\375"
 & "\324<T\343\005?\313\241\005?\000\000\000\0005\001\n)\\\217=\252\361\322"
 & ">\262\235/?\226C\213\2745\001\nX94<\325x\t?33\363>\000\000\000\0005\001"
 & "\no\022\203;\240\032/?\272I,?\000\000\000\0005\001\nh\221\355<P\215\027"
 & "?\272I,?\000\000\000\0005\001\n\274t\023\274X94?\272I,?\000\000\000\000"
 & "5\001\n\246\233\304;\343\245\033?\305 0?\000\000\000\0005\001\no\022\003"
 & "=\266\363\035?\272I,?\000\000\000\0005\001\n\364\375\324<-\262=?\272I,?"
 & "\000\000\000\0005\001\n\246\233\304<m\347\033?\272I,?\000\000\000\0005\001"
 & "\nw\276\037=\276\237:?\272I,?\000\000\000\0005\001\no\022\003=\301\312\241"
 & ">\272I,?\000\000\000\0005\001\n\274t\223<\356|\037?Nb0?\274t\223\2745\001"
 & "\n)\\\017=\376\3248?\272I,?\000\000\000\0005\001\n\246\233\304;{\024.?\305"
 & " 0?\000\000\000\0005\001\nB`\345<o\022c?\272I,?\000\000\000\0005\001\nh"
 & "\221\355<\354Q8?\272I,?o\022\003\2745\001\n\236\357\'==\n7?)\\/?\226C\213"
 & "\2745\001\n\315\314\314<R\270>?\272I,?\000\000\000\0005\001\n\236\357\'"
 & "==\n7?)\\/?\226C\213\2745\001\nB`\345<\305 \020?\272I,?\000\000\000\000"
 & "5\001\n\n\327\243;\264\310\026?\272I,?\000\000\000\0005\001\n\002+\007="
 & "Zd\033?\272I,?\000\000\000\0005\001\no\022\003\274\374\2511?\272I,?\000"
 & "\000\000\0005\001\n\n\327#=d;\337>\000\000\000?\215\227n\2765\001\n\226"
 & "C\013=\177j<?\305 0?\000\000\000\0005\001\n\n\327#=\020X\031?\272I,?\000"
 & "\000\000\0005\001\n\217\302u<\236\357G?\240\032/?\000\000\000\0005\001\n"
 & "X94=\345\320\"?\272I,?\000\000\000\0005\001\n\305 \260=\207\026\231>D\213"
 & ",?R\270\036\2765\001\ny\351&>\274t3?j\274\364>\000\000\000\0005\001\n\002"
 & "+\007=m\347{>D\213,?R\270\036\2765\001\n\217\302u<y\351&?D\213,?\000\000"
 & "\000\0005\001\no\022\003\273\022\203\000?\252\361R\276%\006\201\2765\001"
 & "\n\217\302\365>\037\205\213?\203\300j?7\211a?5\001\n\236\357\'=d;\037?\000"
 & "\000\000?\274t\223\2745\001\n#\333y=\n\327\003?-\262=?\035Zd\2765\001\n"
 & "\246\233D<\313\241\005?\356|\377>D\213l\2765\001\n\n\327#=\242E\366>\244"
 & "p=?\343\245\233\2745\001\nX9\264<\276\237\332>\022\203\000?\343\245\233"
 & "\2745\001\n\033/\335<H\341\372>\250\306+?B`e\2765\001\n\n\327\243;\331\316"
 & "\367>\356|\377>fff\2765\001\n\000\000\000\000y\351\006?\201\225\003?\027"
 & "\331N\2765\001\n\000\000\000\000\254\034\232>\234\304\000?\226C\213\274"
 & "5\001\n\274t\023=\242E\026?\356|\377>B`e\2765\001\n\002+\007=\027\331\016"
 & "?\211A\000?\000\000\000\0005\001\n\246\233\304<\272I\f?\033/=?\226C\213"
 & "\2745\001\n\002+\007=\351&\021?\000\000\000?\035Zd\2765\001\n\274t\023\274"
 & "33\363>\301\312\001?o\022\203\2745\001\n)\\\017=\211A\000?\356|\377>\343"
 & "\245\233\2745\001\n\n\327#<\024\256\007?\020X\371>\343\245\233\2745\001"
 & "\n\305 0=\354Q\370>\327\2430?\226C\213\2745\001\n\315\314L=H\341\372>\356"
 & "|\377>\037\205k\2765\001\n\217\302\365<+\207\026?\000\000\000?1\010\254"
 & "\2745\001\n\n\327#<\031\004\326>\000\000\000?\343\245\233\2745\001\nB`\345"
 & ";\303\365\010?\301\312\001?\274t\223\2745\001\n\246\233D<\250\306+?}?\025"
 & "?\274t\223\2745\001\n1\010,=\240\032/?\000\000\000?\226C\213\2745\001\n"
 & "\033/\335<\305 \360>\223\030D?B`e\2765\001\n\246\233D<\274t3?\000\000\000"
 & "?\325xi\2765\001\n\217\302u=\240\032\357>7\211A?fff\2765\001\nh\221m=\226"
 & "C\313>\272I,?Zd;\2765\001\n\270\036\205=q=\n>\272I,?}?5\2765\001\n\301\312"
 & "\241=\031\004\326>\272I,?Zd;\2765\001\n\226C\213<\213l\007?\033/\235>;\337"
 & "O>00000000000000000000000000000000005\001\no\022\003\273\366(\034?)\\/?"
 & "\000\000\000\0005\001\n\033/\335<\325xi>\366(<?\f\002\353>5\001\nh\221\355"
 & "<\360\247\006?\201\225#?\000\000\000\0005\001\n\354Q8\276{\024\256>\337"
 & "O-?\246\233D\2745\001\n\364\375\324<\305 0?\027\331\316>\266\363\375=5\001"
 & "\no\022\003;\221\355\374>\262\235/?\313\241E\2765\001\n\305 \260=\303\365"
 & "(?\260r\010?\364\375\324\2745\001\nsh\021>\232\231\031?\315\314\f?\274t"
 & "\023\2755\001\n\262\235\357=7\211!?\'1\010?\002+\007\2755\001\n\213l\347"
 & "=%\006!?\272I\f?\274t\023\2755\001\n\246\233\304<o\022\203?\345\320\002"
 & "?\217\302u\2745\001\no\022\003=\351&q?\345\320\002?\217\302u\2745\001\n"
 & "\354Q8=\016-\022?\303\365h?\000\000\000\0005\001\n9\264H=\006\201u?\345"
 & "\320\002?\217\302u\2745\001\n\354Q8=\016-\022?\370Sc?X9\264\2745\001\n\315"
 & "\314L=33\263>)\\/?\270\036\305>5\001\n\n\327#<\347\373\t?\270\036%?\000"
 & "\000\000\0005\001\n\n\327\243<\274t\323>\010\254<?\f\002\353>5\001\nh\221"
 & "\355<\360\247\006?\201\225#?\000\000\000\0005\001\n\226C\213<\260r\010?"
 & "\335$\006?o\022\003<5\001\n\033/\335<\201\225#?\027\331\316>m\347\373=5"
 & "\001\n\364\375\324<D\213\354>\333\371>?\n\327\243\2745\001\n\315\314L=\205"
 & "\353\321>\016-\362>\213l\347=5\001\n\n\327#<L7\t?\325x\351>sh\221=5\001"
 & "\n\217";

CONST E1_11 =
   "\302u<q=\n?D\213\f?\315\314\314\2745\001\nB`e<^\272\t?\345\320\342>\236"
 & "\357\247=5\001\nB`e<y\351\006?^\272\311>q=\n>5\001\n\370S\343=\201\225c"
 & "?\\\217\302=\226C\213\2745\001\n)\\\217>1\010\254>\256G\201?\217\302\365"
 & "\2755\001\n\217\302u\275ff\206?\337O\215>\256Ga>5\001\n\217\302u<\254\034"
 & "\032?%\006!?o\022\203\2745\001\n333>L7)?\260r(?\274t\223\2745\001\n\n\327"
 & "#<\317\367\023?\244p=?\207\026Y\2755\001\n\364\375\324<\323MB?m\347;?\217"
 & "\302u\2745\001\n\345\320\">R\270^?!\260\022?b\020X\2765\001\n\305 0=\343"
 & "\245;?\272I,?\226C\213\2745\001\n\305 0=\343\245;?\315\314,?\217\302u\274"
 & "5\001\nw\276\037=\236\357G?b\0208?\246\233\304\2745\001\n\n\327#=Zd;?\323"
 & "M\002?\000\000\000\0005\001\n\n\327#=Zd;?m\347\373>\226C\213\2745\001\n"
 & "\n\327\243<\272I,?\327\243\360>\000\000\000\0005\001\n\n\327\243<\272I,"
 & "?\327\243\360>\000\000\000\2765\001\n\274t\023=\327\2430?q=\n?)\\\217\275"
 & "5\001\nP\215\027=\327\2430?\327\243\360>\000\000\000\0005\001\nP\215\027"
 & "=\327\2430?\327\243\360>\000\000\000\2765\001\n\354Q8=\256G\001?\262\235"
 & "\357>\000\000\000\0005\001\n\354Q8=\256G\001?{\024\016?h\221m\2755\001\n"
 & "\364\375\324<\221\355<?\272I,?\000\000\000\0005\001\n\274t\023=\004V.?\331"
 & "\3167?\343\245\233\2745\001\n\315\314L=\244p=?\272I,?\226C\213\2745\001"
 & "\n`\345P=-\262=?\315\314,?\217\302u\2745\001\n\274t\223<H\341Z?\272I,?\031"
 & "\004\226>5\001\n\315\314\314<h\221M?\211A@?\027\331\316\2755\001\n\n\327"
 & "#<\n\327\003?\203\300j?\343\245\033\2755\001\n\337O\215=V\016->R\270\236"
 & ">=\nW>5\001\n\217\302u<{\024.?\274t\223>\000\000\000\0005\001\n\177j\274"
 & "<}?\025?\260r\350>\000\000\000\0005\001\n\217\302\365<\317\367\023?X9\364"
 & ">\000\000\000\0005\001\n\033/\335<\252\361\202?\\\217\002?\n\327\243\274"
 & "5\001\n\217\302\365<Nbp?\370S\003?\217\302u\2745\001\nw\276\037=\351&\021"
 & "?L7i?o\022\003;5\001\n\354Q8=X9t?J\f\002?\n\327\243\2745\001\nX94=\230n"
 & "\022?\n\327c?\343\245\233\2745\001\n\274t\223<\215\227\356>R\270>?\000\000"
 & "\000\0005\001\n\315\314\314<\010\254\234>\333\371>?\203\300J\2765\001\n"
 & "\315\314L=\244p=?\037\205+?\n\327\243\2745\001\n9\264H=\033/=?\315\314,"
 & "?\217\302u\2745\001\n\n\327\243;\232\2319?\272I,?\031\004\226>5\001\nB`"
 & "e<\205\3531?\022\203@?\033/\335\2755\001\n\n\327#=d;\337>V\016m?\031\004"
 & "\226\2765\001\n\n\327#=\177j\274=\315\314l?{\024\256\2755\001\n\n\327#="
 & "d;\337>V\016m?\031\004\226\2765\001\n\000\000\000\000\215\227\256>V\016"
 & "m?\n\327\243\27505\001\n\000\000\000\000{\024\256>V\016m?\n\327\243\275"
 & "5\001\n\362\322M>\234\304\340>V\016m?\232\231\231\2755\001\nB`e<\\\217\202"
 & ">)\\o?{\024\256\2755\001\n\362\322M>\234\304\340>V\016m?)\\\217\2755\001"
 & "\n\362\322M>\\\217\202>)\\o?\n\327\243\27505\001\n1\010\254<\276\237\232"
 & ">\333\371>?\203\300J\2765\001\no\022\003;\364\375\224>\372~j?\321\"\333"
 & "\2755\001\n\347\373\251>=\n7?\250\306k?\347\373\251\2755\001\n\347\373\251"
 & ">\341z\324>\232\231y?X9\264\2755\001\nw\276\037=\341z\324>\250\306k?T\343"
 & "\245\2755\001\n\033/]=ff\346>V\016m?\031\004\226\2765\001\n\250\306\313"
 & ">ff\346>\315\314l?{\024\256\2755\001\n\033/]=ff\346>V\016m?\031\004\226"
 & "\2765\001\nX9\264<\354Q\270>V\016m?\n\327\243\2755\001\n\366(\234>\354Q"
 & "\270>\315\314l?\301\312\241\2755\001\n\n\327\243<\354Q\270>V\016m?\n\327"
 & "\243\2755\001\n\226C\213<\\\217\202>V\016m?\232\231\231\2755\001\n\362\322"
 & "M>\323M\342>)\\o?{\024\256\2755\001\n\226C\213<\\\217\202>V\016m?)\\\217"
 & "\275005\001\0051F\000\000\0005\001\t{\024.\276Nb\200?\242Ev?\325xi\276\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001"
 & "\001\001\001\001\001\001\001\001\000\001\001\000\001\001\001\000\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\004V\216>\372~\252>!\260\362>\004V\016?\004V\016?\201"
 & "\225c?\376\3248?\004V\216>\372~\252>\372~\252>\002+\307>\006\201\025?\004"
 & "V\216>\006\201\025?\004V\216>\004V\216>\004V\016?\004V\016?\004V\016?\004"
 & "V\016?\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\372~"
 & "\252>\372~\252>\006\201\025?\006\201\025?\006\201\025?\177j\034?\232\231"
 & "y?\376\3248?\376\3248?\376\3248?\376\3248?\203\300*?\177j\034?\002+G?\376"
 & "\3248?\004V\216>\004V\016?\376\3248?\177j\034?}?U?\376\3248?\002+G?\203"
 & "\300*?\002+G?\376\3248?\203\300*?\177j\034?\376\3248?\203\300*?\374\251"
 & "q?\203\300*?\203\300*?\177j\034?\372~\252>\004V\216>\372~\252>\006\201\025"
 & "?\004V\016?\004V\216>\004V\016?\177j\034?\004V\016?\177j\034?\004V\016?"
 & "\372~\252>\177j\034?\177j\034?\004V\216>\004";

CONST E1_12 =
   "V\216>\004V\016?\004V\216>\201\225c?\177j\034?\177j\034?\177j\034?\177j"
 & "\034?\002+\307>\004V\016?\372~\252>\177j\034?\004V\016?\002+G?\004V\016"
 & "?\004V\016?\000\000\000?\002+\307>)\\\217>\002+\307>\006\201\025?\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\004V\216>\372~\252>\372"
 & "~\252>\372~\252>\372~\252>\372~\252>\372~\252>\372~\252>\372~\252>\000\000"
 & "\000\000\372~\252>\372~\252>\000\000\000\000\372~\252>\372~\252>\372~\252"
 & ">\000\000\000\000\372~\252>\004V\016?\004V\016?\004V\016?\004V\016?)\\\217"
 & ">\004V\016?\372~\252>\010\254<?\244p\275>\004V\016?\006\201\025?\372~\252"
 & ">\010\254<?\372~\252>\315\314\314>\006\201\025?\372~\252>\372~\252>\372"
 & "~\252>\177j\034?\004V\016?\004V\216>\372~\252>\372~\252>H\341\272>\004V"
 & "\016?\006\201U?\006\201U?\006\201U?\177j\034?\376\3248?\376\3248?\376\324"
 & "8?\376\3248?\376\3248?\376\3248?\000\000\200?\376\3248?\203\300*?\203\300"
 & "*?\203\300*?\203\300*?\004V\216>\004V\216>\004V\216>\004V\216>\376\3248"
 & "?\376\3248?\002+G?\002+G?\002+G?\002+G?\002+G?\006\201\025?\002+G?\376\324"
 & "8?\376\3248?\376\3248?\376\3248?\203\300*?\203\300*?\177j\034?\004V\016"
 & "?\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\201\225c?\004V\016?"
 & "\004V\016?\004V\016?\004V\016?\004V\016?\004V\216>\004V\216>\004V\216>\004"
 & "V\216>\177j\034?\177j\034?\177j\034?\177j\034?\177j\034?\177j\034?\177j"
 & "\034?\006\201\025?\177j\034?\177j\034?\177j\034?\177j\034?\177j\034?\004"
 & "V\016?\177j\034?\004V\016?0000000000000000000000000000000005\001\n\354Q"
 & "\270=#\333y>\331\3167?\000\000\000\0005\001\n9\264\310=\022\203\300>\331"
 & "\3167?/\335\344>5\001\n\274t\223<^\272\t?!\2602?\000\000\000\0005\001\n"
 & "\217\302\365<T\343\005?ffF?\037\205\353\2755\001\nB`\345<\177j\\?\217\302"
 & "5?\343\245\233\2745\001\n\033/]=\274t3?\331\3167?\343\245\233\2745\001\n"
 & "\337O\215=\031\004V>\331\3167?\n\327\343>5\001\n)\\\017=\234\304\240>m\347"
 & ";?\364\375T\2765\001\n\343\245\233<u\223\230>m\347;?\364\375T\2765\001\n"
 & "\033/\335<\020X\271>\331\3167?\335$\306>5\001\n\n\327#=\226C\013?7\211\001"
 & "?\000\000\000\0005\001\no\022\203=\321\"[>\006\201\025>1\010,\2765\001\n"
 & "\n\327#=\226C\013??5\236>^\272I>5\001\no\022\203=\321\"[>\006\201\025>\000"
 & "\000\000\0005\001\n\002+\007\275d;\237>\010\254<?\343\245\233\2745\001\n"
 & "o\022\003=\335$\006?\217\3025?\343\245\233\2745\001\n\337O\215=7\211\301"
 & ">\217\3025?\000\000\000\0005\001\n\364\375\324<\345\320\002?\217\3025?\000"
 & "\000\000\0005\001\n\033/\335<\223\030\004?\217\3025?\343\245\233\2745\001"
 & "\n\033/\335<\360\247\006?\217\3025?\000\000\000\0005\001\n\033/\335<\223"
 & "\030\004?!\2602?\343\245\233\2745\001\n\266\363\375<\270\036\005?\217\302"
 & "5?\343\245\233\2745\001\n\315\314\314<\002+\007?!\2602?\000\000\000\000"
 & "5\001\no\022\003=\335$\006?\217\3025?\343\245\233\2745\001\n\217\302\365"
 & "<\313\241\005?\217\3025?\343\245\233\2745\001\n\177j\274=\331\316w>o\022"
 & "\003?\000\000\000\0005\001\n\177j\274=\331\316w>o\022\003?1\010,\2765\001"
 & "\n\343\245\033=\250\306\013?\201\225\003?o\022\003\2745\001\n\n\327#=\226"
 & "C\013?+\207\326>\016-\262=5\001\n\343\245\033=\250\306\013?\201\225\003"
 & "?o\022\003\2745\001\n\217\302u=\004V\016?\254\034:?\000\000\000\0005\001"
 & "\n\374\251\361=\321\"[?\010\254<?\343\245\233\2745\001\n\n\327\243<F\266"
 & "3?\331\3167?\000\000\000\0005\001\n\343\245\233=\226C+?\331\3167?\000\000"
 & "\000\0005\001\nX94=\240\032/?\010\254<?\343\245\233\2745\001\n\343\245\233"
 & "=)\\/?\331\3167?\000\000\000\0005\001\n\343\245\233=\333\371\036?\331\316"
 & "7?\000\000\000\0005\001\n\343\245\233=\242E\026?\331\3167?\000\000\000\000"
 & "5\001\nX94=+\2076?\010\254<?\343\245\233\2745\001\nsh\221=\360\247&?\331"
 & "\3167?\000\000\000\0005\001\no\022\203=\321\"[>\331\3167?\000\000\000\000"
 & "5\001\nX9\264<\331\316\367>\331\3167?\274t\223\2745\001\n\016-\262=\376"
 & "\3248?\331\3167?\000\000\000\0005\001\n\343\245\233=}?\025?\331\3167?\000"
 & "\000\000\0005\001\n\337O\215=\n\327C?\331\3167?\000\000\000\0005\001\n\337"
 & "O\215=\213l\'?\331\3167?\000\000\000\0005\001\nX94=m\347;?\010\254<?\343"
 & "\245\233\2745\001\n\343\245\233=\022\203 ?\331\3167?\000\000\000\0005\001"
 & "\nX94=\010\254<?\010\254<?\364\375T\2755\001\n\343\245\233=\337O-?\331\316"
 & "7?\000\000\000\0005\001\nw\276\037=%\006!?\010\254<?\343\245\233\2745\001"
 & "\nB`e<\207\026\031?\331\3167?\000\000\000\0005\001\n\274t\223=\360\247&"
 & "?\331\3167?\343\245\233\2745\001\n\343\245\233<T\343%?\331\3167?\000\000"
 & "\000\0005\001\no\022\203<\362\322m?\331\3167?\000\000\000\0005\001\nB`e"
 & "<\002+\'?\331\3167?\000\000\000\0005\001\n\217\302u<\002+\'?\331\3167?\000"
 & "\000\000\0005\001\n\315\314\314<\031\004\026?\331\3167?\000\000\000\000"
 & "5\001\n%\006\201=?5\236>\376\3248?9\264H\2765\001\n\002+\007\275d;\237>"
 & "\010\254<?\343\245\233\2745\001\n\246\233\304<q=\212>\376\3248?9\264H\276"
 & "5\001\n\266\363}=\313\241\005?!\2602?B`\245>5\001\n\000\000\000\000\004"
 & "V\016?\232\231\231\275\000\000\000\2765\001\n\337O\215=\031\004V>\254\034"
 & ":?\260r\350>5\001\nh\221\355<y\351\006?\250\306\013?B`e\2745\001\n#\333"
 & "y=\317\367\023?\331\3167?B`e\2745\001\n\226C\013=\335$\006?\250\306\013"
 & "?B`e\2745\001\n\226C\013=V\016\r?\331\3167?B`e\2745\001\n\177j\274<\002"
 & "+\007?\250\306\013?B`e\2745\001\n\n\327#<\345\320\242>\254\034:?\000\000"
 & "\000\0005\001\n\n\327#=h\221\r?\250\306\013??5^\2765\001\n\270\036\205="
 & "\250\306\013?\331\3167?\000\000\000\000";

CONST E1_13 =
   "5\001\n\337O\215=\031\004V>\232\2319?\000\000\000\0005\001\n\246\233D;\031"
 & "\004V>\232\2319?\321\"[\2765\001\n\337O\215=;\337\017?\331\3167?\000\000"
 & "\000\0005\001\n\337O\215=\031\004V>\331\3167?\000\000\000\0005\001\no\022"
 & "\203=\274tS?\250\306\013?\000\000\000\0005\001\n\270\036\205=\250\306\013"
 & "?\250\306\013?\000\000\000\0005\001\n\226C\013=\317\367\023?\250\306\013"
 & "?B`e\2745\001\n\266\363}=\317\367\023?\250\306\013?\317\367S\2765\001\n"
 & "\226C\013=\337O\r?\250\306\013?\317\367S\2765\001\no\022\203=\333\371\276"
 & ">\250\306\013?\000\000\000\0005\001\n\217\302\365</\335\004?\250\306\013"
 & "?B`e\2745\001\n\n\327#<?5\236>V\016-?\246\233\304\2735\001\n\002+\207=\037"
 & "\205\013?\'1\010?B`e\2745\001\n\364\375T<\f\002\013?\'1\010?\000\000\000"
 & "\0005\001\n\n\327#</\335D?\'1\010?\000\000\000\0005\001\n\217\302u<\372"
 & "~\n?\'1\010?\000\000\000\0005\001\n\n\327#<\347\373\t?\'1\010?\321\"[\276"
 & "5\001\n\n\327\243<\217\302\365>\'1\010?\000\000\000\0005\001\n\246\233D"
 & "=H\341\272>\376\3248?9\264H\2765\001\n1\010\254=9\264H>\010\254<?\343\245"
 & "\233\2745\001\n\246\233\304<\215\227\256>\376\3248?9\264H\2765\001\n#\333"
 & "y=T\343\005?\262\235\257>y\351&>000000000000000005\001\n\337O\215=\031\004"
 & "V>\'1\010?\000\000\000\0005\001\n\177j\274\274fff>\000\000@?\276\237\032"
 & "?5\001\n\033/\335=\242E\266>\000\000@?\276\237\032?5\001\n\n\327#\274\262"
 & "\235\257>\000\000@?\276\237\032?5\001\n\226C\213\27433\263>\010\254<?\366"
 & "(\034?5\001\n\246\233\304\273h\221\255>h\221-?\276\237\032?5\001\no\022"
 & "\003\273\037\205\253>\000\000@?\276\237\032?5\001\n\364\375\324=\037\205"
 & "k>\276\237:?\033/\035?5\001\n\246\233\304;\213l\247>\276\237:?\033/\035"
 & "?05\001\n\374\251q=\315\314\214>\360\247F?sh\021?5\001\n\246\233\304;H\341"
 & "z>\000\000\000\000\325xi\27605\001\n\274t\023<\376\324\370>\000\000@?\276"
 & "\237\032?5\001\nsh\221=\343\245\233>\000\000\000\000\325xi\2765\001\n\n"
 & "\327#\274\262\235\257>\000\000@?\276\237\032?05\001\n\354Q\270=#\333y>\'"
 & "1\010?\311v>\2765\001\n\226C\013=\335$\006?\234\304 ?\374\251\361\2755\001"
 & "\nB`\345<\372~\n?\331\3167?o\022\203\2745\001\n\246\233D\273\240\032\017"
 & "?\345\320\"?\343\245\233=5\001\n\274t\023\274\327\243\020?!\2602?\000\000"
 & "\000\0005\001\n1\010\254=9\264H>\010\254<?\343\245\233\2745\001\n\226C\013"
 & "=\313\241\005?\254\034:?\177j<\2761=\004\000\0005\001\nX94\274w\276??\010"
 & "\254<?\343\245\233\2745\001\nX9\264<\374\251\261>\010\254<?\337O\215>5\001"
 & "\nX9\264=\262\235\357>\331\316\367>\343\245\233=5\001\n\n\327#=\226C\013"
 & "?+\207\326>\033/\335=5\001\n\033/\335<\010\254\234>\327\243\260>\366(\\"
 & ">5\001\nX94\274\356|??\010\254<?\343\245\233\2741:\004\000\0005\001\n\325"
 & "xi=\262\235\257>\242E6?\254\034\332>5\001\n\n\327#=\226C\013?7\211\001?"
 & "\000\000\000\0005\001\n\274t\023<T\343\245>\217\3025?`\345\220>5\001\no"
 & "\022\003<y\351\246>\217\3025?\203\300\212>17\004\000\0005\001\n\002+\207"
 & "=\037\205\013?\'1\010?\317\367S\2765\001\no\022\003\274\347\373\t?333?\201"
 & "\225C\2765\001\nh\221m=\256Ga>\f\002\253>\305 0>1?\004\000\0005\001\n\364"
 & "\375\324<!\260r>\217\3025?`\345\220>5\001\n\246\233\304;\354Q\270>\010\254"
 & "<?\337O\215>5\001\nX9\264=\262\235\357>\331\316\367>\343\245\233=5\001\n"
 & "\364\375\324<\223\030D?\217\3025?\343\245\233\2745\001\n\364\375\324<\226"
 & "CK?\217\3025?\343\245\233\2745\001\no\022\203<D\213L?\217\3025?\343\245"
 & "\233\2745\001\n\256Ga=V\016\r?\'1\010?\024\256G\2765\001\n\n\327\243<F\266"
 & "3?\262\235o?\000\000\000\0005\001\n\n\327\243<F\2663?\262\235o?\000\000"
 & "\000\0005\001\n\n\327\243<F\2663?\262\235o?\000\000\000\0005\001\n\n\327"
 & "\243<F\2663?\272Il?\000\000\000\0005\001\n\n\327\243<F\2663?q=j?\000\000"
 & "\000\0005\001\n\n\327\243<F\2663?\242Ev?\000\000\000\0005\001\n\n\327\243"
 & ";X9t?\331\3167?\000\000\000\0005\001\nX94=\240\032/?\010\254<?\325xi\276"
 & "5\001\n\343\245\233=\333\371\036?\262\235o?\000\000\000\0005\001\n\343\245"
 & "\233=\333\371\036?\262\235o?\000\000\000\0005\001\n\343\245\233=\333\371"
 & "\036?\262\235o?\000\000\000\0005\001\n\343\245\233=\333\371\036?q=j?\000"
 & "\000\000\0005\001\n\315\314L\275\321\"[>\262\235o?\000\000\000\0005\001"
 & "\no\022\203=\260r\250>\262\235o?\000\000\000\0005\001\nP\215\027\275\301"
 & "\312\241>\262\235o?\000\000\000\0005\001\n1\010\254\274\232\231\231>q=j"
 & "?\000\000\000\0005\001\n\n\327\243\273)\\/?\331\3167?\000\000\000\0005\001"
 & "\n\337O\215=\213l\'?\272Il?\000\000\000\0005\001\nX94=m\347;?\262\235o?"
 & "\343\245\233\2745\001\nX94=m\347;?\262\235o?\343\245\233\2745\001\nX94="
 & "m\347;?\262\235o?\343\245\233\2745\001\nX94=m\347;?\272Il?\343\245\233\274"
 & "5\001\nX94=m\347;?q=j?\343\245\233\2745\001\n\n\327#=\037\205\013?\256G"
 & "\001?o\022\203:5\001\n\002+\007=\311v>?R\270>?\033/\335\2745\001\n\274t"
 & "\223=\360\247&?\262\235o?\343\245\233\2745\001\n\274t\223=\360\247&?\262"
 & "\235o?\343\245\233\2745\001\n\274t\223=\360\247&?\262\235o?\343\245\233"
 & "\2745\001\n\274t\223=\360\247&?q=j?\343\245\233\2745\001\n\217\302u<\002"
 & "+\'?\262\235o?\000\000\000\0005\001\n\343\245\233=\022\203 ?\331\3167?\000"
 & "\000\000\0005\001\n\337O\215=X9\024?\321\";?B`e\2745\001\nh\221\355<y\351"
 & "\006?\000\000@?B`e\2745\001\nh\221\355<y\351\006?\000\000@?B`e\2745\001"
 & "\nh\221\355<y\351\006?\000\000@?B`e\2745\001\nh\221\355<y\351\006?\010\254"
 & "<?B`e\2745\001\nh\221\355<y\351\006?\276\237:?B`e\2745\001\nh\221\355<y"
 & "\351\006?\360\247F?B`e\2745\001\nh\221\355<\343\245[?\250\306\013?B`e\274"
 & "5\001\n\226C\013=\335$\006?\250\306\013?\325xi\2765\001\n";

CONST E1_14 =
   "\177j\274<\002+\007?\000\000@?B`e\2745\001\n\177j\274<\002+\007?\000\000"
 & "@?B`e\2745\001\n\177j\274<\002+\007?\000\000@?B`e\2745\001\n\177j\274<\002"
 & "+\007?\276\237:?B`e\2745\001\n\315\314L\275\031\004V>\000\000@?\000\000"
 & "\000\0005\001\n\337O\215=\260r\250>\000\000@?\000\000\000\0005\001\nP\215"
 & "\027\275\301\312\241>\000\000@?\000\000\000\0005\001\n1\010\254\274\232"
 & "\231\231>\276\237:?\000\000\000\0005\001\n\226C\013=\317\367\023?\010\254"
 & "<?B`e\2745\001\n\270\036\205=\250\306\013?\010\254<?\000\000\000\0005\001"
 & "\n\226C\013=\317\367\023?\000\000@?B`e\2745\001\n\226C\013=\317\367\023"
 & "?\000\000@?B`e\2745\001\n\226C\013=\317\367\023?\000\000@?B`e\2745\001\n"
 & "\226C\013=\317\367\023?\010\254<?B`e\2745\001\n\226C\013=\317\367\023?\276"
 & "\237:?B`e\2745\001\n\n\327#=\226C\013?\272I\f?1\010,\2755\001\nX9\264<\264"
 & "\310\026?)\\\017?h\221\355\2745\001\n\002+\207=\037\205\013?\000\000@?B"
 & "`e\2745\001\n\002+\207=\037\205\013?\000\000@?B`e\2745\001\n\002+\207=\037"
 & "\205\013?\000\000@?B`e\2745\001\n\002+\207=\037\205\013?\276\237:?B`e\274"
 & "5\001\n\n\327#<\347\373\t?\000\000@?\321\"[\2765\001\n\266\363}=\317\367"
 & "\023?\331\3167?\364\375T\2765\001\n\n\327#<\347\373\t?\276\237:?\321\"["
 & "\27605\001\0051_\000\000\0005\001\t1\010,\276\000\000\200?)\\o?d;_\276\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001"
 & "\001\001\001\001\001\001\001\001\000\001\001\000\001\001\001\000\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\200>\372~\252>{\024\016?\000\000\000?\000\000"
 & "\000?\000\000\200?}?U?\372~\252>\372~\252>\372~\252>\000\000\000?\205\353"
 & "\021?\000\000\200>\205\353\021?\000\000\200>\004V\216>\000\000\000?\000"
 & "\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000\000"
 & "?\000\000\000?\000\000\000?\000\000\000?\372~\252>\372~\252>\205\353\021"
 & "?\205\353\021?\205\353\021?\000\000\000?{\024n?\376\3248?\203\300*?\376"
 & "\3248?\376\3248?\203\300*?\177j\034?\002+G?\002+G?\002+\307>\000\000\000"
 & "?\002+G?\203\300*?\374\251q?\376\3248?\002+G?\177j\034?\002+G?\376\3248"
 & "?\004V\016?\203\300*?\376\3248?\376\3248?\000\000\200?\376\3248?\376\324"
 & "8?\203\300*?\372~\252>\004V\216>\372~\252>j\274\024?\000\000\000?\372~\252"
 & ">\000\000\000?\004V\016?\370S\343>\004V\016?\370S\343>\372~\252>\000\000"
 & "\000?\004V\016?\004V\216>\372~\252>\004V\016?\004V\216>}?U?\004V\016?\000"
 & "\000\000?\004V\016?\004V\016?\370S\343>\002+\307>\372~\252>\004V\016?\000"
 & "\000\000?\376\3248?\000\000\000?\000\000\000?\370S\343>^\272\311>\256Ga"
 & ">^\272\311>\270\036\005?\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\004V\216>\372~\252>\372~\252>\372~\252>\372~\252>\372~\252>\372"
 & "~\252>\372~\252>\372~\252>\000\000\000\000\372~\252>\372~\252>\000\000\000"
 & "\000\372~\252>\372~\252>\372~\252>\000\000\000\000\372~\252>\000\000\000"
 & "?\000\000\000?\000\000\000?\000\000\000?\256Ga>\000\000\000?\372~\252>d"
 & ";??\232\231\231>\000\000\000?\205\353\021?\372~\252>d;??\372~\252>\315\314"
 & "\314>\205\353\021?\232\231\231>\232\231\231>\372~\252>\004V\016?q=\n?\000"
 & "\000\200>\372~\252>\232\231\231>\303\365\250>\000\000\000?\000\000@?\000"
 & "\000@?\000\000@?\000\000\000?\376\3248?\376\3248?\376\3248?\376\3248?\376"
 & "\3248?\376\3248?\000\000\200?\376\3248?\203\300*?\203\300*?\203\300*?\203"
 & "\300*?\002+\307>\002+\307>\002+\307>\002+\307>\376\3248?\376\3248?\002+"
 & "G?\002+G?\002+G?\002+G?\002+G?\205\353\021?\002+G?\376\3248?\376\3248?\376"
 & "\3248?\376\3248?\376\3248?\177j\034?\004V\016?\000\000\000?\000\000\000"
 & "?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\376\3248?\370S\343"
 & ">\370S\343>\370S\343>\370S\343>\370S\343>\004V\216>\004V\216>\004V\216>"
 & "\004V\216>\000\000\000?\004V\016?\000\000\000?\000\000\000?\000\000\000"
 & "?\000\000\000?\000\000\000?\205\353\021?\000\000\000?\004V\016?\004V\016"
 & "?\004V\016?\004V\016?\000\000\000?\004V\016?\000\000\000?00000000000000"
 & "00000000000000000005\001\nT\343\245=\022\203\200>`\3450?\364\375T\2745\001"
 & "\n\347\373\251=\374\251\361>`\3450?\027\331\316>5\001\no\022\203;\266\363"
 & "\375>333?\000\000\000\0005\001\nh\221\355<\374\251\361>\000\000@?\203\300"
 & "\312\2755\001\n\266\363\375=\022\203`?\351&1?B`e\2745\001\n\266\363}=\325"
 & "xI?`\3450?o\022\203\2745\001\n\301\312\241=\360\247\206>`\3450?\242E\266"
 & ">5\001\n\177j<=\010\254\234>\374\2511?1\010,\2765\001\n\033/\335<\252\361"
 & "\222>\374\2511?1\010,\2765\001\nB`e=/\335\344>`\3450?\\\217\202>5\001\n"
 & "\002+\007=\325x\t?7\211\001?\000";

CONST E1_15 =
   "\000\000\0005\001\nw\276\037=\035Zd>R\270\036>\354Q8\2765\001\n\002+\007"
 & "=\325x\t?b\020\230>\031\004V>5\001\n\236\357\'==\nW>w\276\037>\364\375T"
 & "\2745\001\n\246\233\304\274\276\237\232>`\3450?\343\245\233\2745\001\n\246"
 & "\233\304<F\266\363>\305 0?\364\375T\2745\001\n\270\036\205=\323M\342>\305"
 & " 0?\000\000\000\0005\001\n\226C\213<j\274\364>\305 0?\000\000\000\0005\001"
 & "\no\022\203<\262\235\357>\305 0?B`e\2745\001\n\343\245\233<33\363>\305 "
 & "0?\000\000\000\0005\001\nX9\264<\327\243\360>V\016-?o\022\003\2745\001\n"
 & "B`\345<33\363>\305 0?\364\375T\2745\001\n\226C\213<X9\364>V\016-?\000\000"
 & "\000\0005\001\nB`\345<\374\251\361>\305 0?\364\375T\2745\001\n\364\375\324"
 & "<\016-\362>\305 0?\364\375T\2745\001\n\236\357\247=\022\203\200>\374\251"
 & "\361>\364\375T\2745\001\n\236\357\247=\'1\210>\374\251\361>\354Q8\2765\001"
 & "\n\266\363\375<\347\373\t?\201\225\003?o\022\003\2745\001\n\002+\007=\325"
 & "x\t?\272I\314>\321\"\333=5\001\n\266\363\375<\347\373\t?\201\225\003?o\022"
 & "\003\2745\001\n\325xi=\n\327\343>Nb0?\364\375T\2745\001\n\033/\335=\230"
 & "nR?`\3450?\343\245\233\2745\001\n\274t\023<Nb0?\327\2430?\000\000\000\000"
 & "5\001\no\022\203<\311v\036?V\016-?\000\000\000\0005\001\n9\264H=;\337/?"
 & "`\3450?\343\245\233\2745\001\nB`e<\327\2430?V\016-?\000\000\000\0005\001"
 & "\no\022\203<\223\030$?V\016-?\000\000\000\0005\001\no\022\203<}?\025?V\016"
 & "-?\000\000\000\0005\001\nP\215\027=\256GA?`\3450?\343\245\233\2745\001\n"
 & "1\010\254<\323MB?V\016-?\000\000\000\0005\001\n\n\327\243<\244p\275>V\016"
 & "-?\000\000\000\0005\001\n\246\233D;}?\365>V\016-?\246\233\304\2755\001\n"
 & "\217\302\365</\335D?V\016-?\000\000\000\0005\001\n\343\245\233<\370S#?V"
 & "\016-?\000\000\000\0005\001\nB`e<\250\306k?V\016-?\000\000\000\0005\001"
 & "\no\022\203<\274t3?V\016-?\274t\223\2745\001\n)\\\017=?5>?`\3450?\343\245"
 & "\233\2745\001\no\022\203<\232\231\031?V\016-?\000\000\000\0005\001\n)\\"
 & "\017=?5>?`\3450?X94\2765\001\n\364\375\324<=\n7?V\016-?\000\000\000\000"
 & "5\001\n)\\\017=\370S\003?\351&1?\343\245\233\2745\001\n\266\363\375<\345"
 & "\320\"?V\016-?\000\000\000\0005\001\no\022\203<\274t3?V\016-?\343\245\233"
 & "\2745\001\no\022\203<\274t3?V\016-?\274t\223\2745\001\n\343\245\233<\321"
 & "\"{?V\016-?\217\302u\2745\001\no\022\203<\252\3612?V\016-?\000\000\000\000"
 & "5\001\n\217\302u<\252\3612?V\016-?\000\000\000\0005\001\nB`\345<\323M\""
 & "?V\016-?\000\000\000\0005\001\nL7\211=\254\034\232>h\221-?u\223\030\276"
 & "5\001\n\315\314\314\274\321\"\233>`\3450?\343\245\233\2745\001\no\022\003"
 & "=\'1\210>h\221-?u\223\030\2765\001\n\006\201\225=\323M\002?V\016-?d;\237"
 & ">5\001\n\000\000\000\000\000\000\000?\232\231\231\275\000\000\000\2765\001"
 & "\n)\\\217=J\f\202>`\3450?\242E\266>5\001\n\315\314\314<#\333\371>\016-\362"
 & ">B`e\2745\001\n\226C\213<B`\005?V\016-?B`e\2745\001\n\315\314\314<\366("
 & "\334>\016-\362>B`e\2745\001\n\315\314\314<9\264\010?V\016-?B`e\2745\001"
 & "\n\315\314\314<\254\034\332>\016-\362>B`e\2745\001\nB`e<\002+\307>`\345"
 & "0?\000\000\000\0005\001\nB`\345<\307K\367>\016-\362>\252\361R\2765\001\n"
 & "o\022\203<9\264\010?V\016-?\000\000\000\0005\001\no\022\203<\\\217\202>"
 & "`\3450?\000\000\000\0005\001\n\325xi\275\360\247\206>`\3450?;\337O\2765"
 & "\001\nX9\264<\f\002\013?V\016-?\000\000\000\0005\001\no\022\203<\\\217\202"
 & ">V\016-?\000\000\000\0005\001\no\022\203<NbP?\016-\362>\000\000\000\000"
 & "5\001\n1\010\254<\347\373\t?\016-\362>\000\000\000\0005\001\n\315\314\314"
 & "<F\266\363>\016-\362>B`e\2745\001\n\343\245\233<\335$\006?\016-\362>\205"
 & "\353Q\2765\001\n\226C\013=L7\t?\016-\362>\205\353Q\2765\001\nh\221\355<"
 & "?5\336>\016-\362>\000\000\000\0005\001\n\315\314\314<\376\324\270>\016-"
 & "\362>B`e\2745\001\n\n\327\243<\347\373\251>\256G!?\246\233D\2745\001\no"
 & "\022\203<\325x\t?1\010\354>B`e\2745\001\n1\010\254<\354Q\370>1\010\354>"
 & "B`e\2745\001\n\177j\274<\364\3754?1\010\354>B`e\2745\001\n\246\233D<\331"
 & "\316\367>1\010\354>\000\000\000\0005\001\no\022\203<\217\302\365>1\010\354"
 & ">\205\353Q\2765\001\n1\010\254<=\n\327>1\010\354>\000\000\000\0005\001\n"
 & "X9\264<{\024\256>!\2602?333\2765\001\n\002+\207=-\262\035>`\3450?\343\245"
 & "\233\2745\001\n\033/]=\311v\276>!\2602?333\2765\001\nh\221\355<Zd\373>\372"
 & "~\252>\351&1>000000000000000005\001\no\022\203<\\\217\202>1\010\354>\000"
 & "\000\000\0005\001\no\022\003<m\347{>+\2076?\002+\007?5\001\n\305 \260=T"
 & "\343\245>+\2076?\002+\007?5\001\no\022\003\273\037\205\253>X94?\002+\007"
 & "?5\001\no\022\203\274!\260\262>D\213,?1\010\f?5\001\no\022\203:\325x\251"
 & ">o\022#?\327\243\020?5\001\n\217\302u<\345\320\242>`\3450?\002+\007?5\001"
 & "\n\252\361\322=\037\205k>\203\300*?\325x\t?5\001\no\022\003\273\037\205"
 & "\253>\203\300*?\325x\t?05\001\n\217\302u=\250\306\213>\244p=?y\351\006?"
 & "5\001\n\226C\213=+\207\226>\000\000\000\000d;_\27605\001\n\364\375T\274"
 & "\232\231\331>+\2076?\002+\007?5\001\n\354Q\270=\370S\243>X94=\351&1\276"
 & "5\001\no\022\003\273\037\205\253>X94?\002+\007?05\001\n\236\357\247=%\006"
 & "\201>\211A\000?;\337O\2765\001\n\207\026Y=\372~\352>+\207\026?)\\\017\276"
 & "5\001\n1\010\254<X9\364>\240\032/?B`e\2745\001\n\364\375\324\274\360\247"
 & "\006?\221\355\034?#\333y=5\001\no\022\203\2751\010\f?V\016-?\000\000\000"
 & "\0005\001\n\002+\207=-\262\035>`\3450?\343\245\233\2745\001\n\325xi=\345"
 & "\320\342>`\3450?\002+\007\2761";

CONST E1_16 =
   "\006\005\000\0005\001\n\364\375\324<u\2238?`\3450?\343\245\233\2745\001"
 & "\no\022\203\272\254\034\232>\305 0?\226C\313>5\001\n\177j\274<\016-\362"
 & ">\341z\324>\274t\023=5\001\n\002+\007=\325x\t?\272I\314>\033/\335=5\001"
 & "\nX94=\252\361\222>\252\361\222>\240\032/>5\001\n\364\375\324<u\2238?`\345"
 & "0?\343\245\233\2741\003\005\000\0005\001\n\325xi=\262\235\257>\305 0?\362"
 & "\322\315>5\001\n\002+\007=\325x\t?7\211\001?\000\000\000\0005\001\n\000"
 & "\000\000\000\232\231\231>\305 0?\315\314\214>5\001\n\246\233D;b\020\230"
 & ">\305 0?L7\211>1\000\005\000\0005\001\n\002+\007=L7\t?1\010\354>\252\361"
 & "R\2765\001\n\000\000\000\000/\335\004?V\016-?\311v>\2765\001\n\236\357\'"
 & "==\nW>\006\201\325>\266\363}>1\010\005\000\0005\001\nB`\345<\250\306\213"
 & ">\305 0?\315\314\214>5\001\n\274t\223<w\276\237>\305 0?\226C\313>5\001\n"
 & "\033/\335<X9\364>\341z\324>\274t\023=5\001\nB`\345<?5>?\305 0?\246\233D"
 & "\2745\001\nB`\345\273ffF?\305 0?\246\233D\2745\001\n\177j\274<\343\245;"
 & "?\305 0?\246\233D\2745\001\n\256Ga=\345\320\342>\211A\000?\362\322M\276"
 & "5\001\n\274t\023<Nb0?\272Il?\000\000\000\0005\001\n\274t\023<Nb0?\272Il"
 & "?\000\000\000\0005\001\n\274t\023<Nb0?\347\373i?\000\000\000\0005\001\n"
 & "\274t\023<Nb0?\323Mb?\000\000\000\0005\001\n\274t\023<Nb0?\022\203`?\000"
 & "\000\000\0005\001\n\274t\023<Nb0?)\\o?\000\000\000\0005\001\no\022\203;"
 & "\274ts?V\016-?\000\000\000\0005\001\n9\264H=;\337/?`\3450?d;_\2765\001\n"
 & "o\022\203<\223\030$?\272Il?\000\000\000\0005\001\no\022\203<\223\030$?\272"
 & "Il?\000\000\000\0005\001\no\022\203<\223\030$?\347\373i?\000\000\000\000"
 & "5\001\no\022\203<\223\030$?\022\203`?\000\000\000\0005\001\n\n\327\243<"
 & "\244p\275>\272Il?\000\000\000\0005\001\n\n\327\243<\244p\275>\272Il?\000"
 & "\000\000\0005\001\n\n\327\243<\244p\275>\347\373i?\000\000\000\0005\001"
 & "\n\n\327\243<\244p\275>\022\203`?\000\000\000\0005\001\n\246\233\304;\327"
 & "\2430?V\016-?\000\000\000\0005\001\no\022\203<\274t3?\323Mb?\274t\223\274"
 & "5\001\n)\\\017=?5>?\272Il?\343\245\233\2745\001\n)\\\017=?5>?\272Il?\343"
 & "\245\233\2745\001\n)\\\017=?5>?\347\373i?\343\245\233\2745\001\n)\\\017"
 & "=?5>?\323Mb?\343\245\233\2745\001\n)\\\017=?5>?\022\203`?\343\245\233\274"
 & "5\001\n\246\233D=\313\241\005?H\341\372>o\022\203<5\001\n)\\\017=?5>?\010"
 & "\254<?P\215\227\2755\001\no\022\203<\274t3?\272Il?\343\245\233\2745\001"
 & "\no\022\203<\274t3?\272Il?\343\245\233\2745\001\no\022\203<\274t3?\347\373"
 & "i?\343\245\233\2745\001\no\022\203<\274t3?\022\203`?\343\245\233\2745\001"
 & "\n\217\302u<\252\3612?h\221m?\000\000\000\0005\001\no\022\203<\232\231\031"
 & "?V\016-?\000\000\000\0005\001\n\343\245\233<\035Z\004?`\3450?\246\233D\274"
 & "5\001\n\315\314\314<#\333\371>+\2076?B`e\2745\001\n\315\314\314<#\333\371"
 & ">+\2076?B`e\2745\001\n\315\314\314<#\333\371>X94?B`e\2745\001\n\315\314"
 & "\314<#\333\371>D\213,?B`e\2745\001\n\315\314\314<#\333\371>\203\300*?B`"
 & "e\2745\001\n\315\314\314<#\333\371>\244p=?B`e\2745\001\n\002+\007=sh1?\016"
 & "-\362>B`e\2745\001\n\315\314\314<\366(\334>\016-\362>d;_\2765\001\n\315"
 & "\314\314<\254\034\332>+\2076?B`e\2745\001\n\315\314\314<\254\034\332>+\207"
 & "6?B`e\2745\001\n\315\314\314<\254\034\332>X94?B`e\2745\001\n\315\314\314"
 & "<\254\034\332>\203\300*?B`e\2745\001\n\364\375\324\274\\\217\202>+\2076"
 & "?\000\000\000\0005\001\no\022\203<\341z\224>+\2076?\000\000\000\0005\001"
 & "\n\274t\023\275\254\034\232>X94?\000\000\000\0005\001\n\274t\023\275\254"
 & "\034\232>\203\300*?\000\000\000\0005\001\n\315\314\314<F\266\363>`\3450"
 & "?B`e\2745\001\n1\010\254<\347\373\t?D\213,?\000\000\000\0005\001\n\315\314"
 & "\314<F\266\363>+\2076?B`e\2745\001\n\315\314\314<F\266\363>+\2076?B`e\274"
 & "5\001\n\315\314\314<F\266\363>X94?B`e\2745\001\n\315\314\314<F\266\363>"
 & "D\213,?B`e\2745\001\n\315\314\314<F\266\363>\203\300*?B`e\2745\001\n\002"
 & "+\007=\325x\t?\325x\t?\266\363\375\2745\001\n\315\314\314<F\266\363>D\213"
 & "\f?\177j\274\2755\001\no\022\203<\325x\t?+\2076?B`e\2745\001\no\022\203"
 & "<\325x\t?+\2076?B`e\2745\001\no\022\203<\325x\t?X94?B`e\2745\001\no\022"
 & "\203<\325x\t?\203\300*?B`e\2745\001\no\022\203<\217\302\365>+\2076?\205"
 & "\353Q\2765\001\n\343\245\233<\335$\006?V\016-?\205\353Q\2765\001\no\022"
 & "\203<\217\302\365>\203\300*?\205\353Q\276000005\001\0051\036\000\000\000"
 & "5\001\t1\010,\276\000\000\200?T\343e?d;_\276\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\001\001\001\001\001\001\001"
 & "\001\001\000\001\001\000\001\001\001\000\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000";

CONST E1_17 =
   "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\200>\372~\252"
 & ">`\345\320>\000\000\000?\000\000\000?}?U?\002+G?\372~\252>\372~\252>\372"
 & "~\252>\000\000\000?Nb\020?\000\000\200>Nb\020?\000\000\200>\004V\216>\000"
 & "\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000\000"
 & "?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\004V\216>\004V\216"
 & ">Nb\020?Nb\020?Nb\020?\370S\343>\250\306k?\376\3248?\203\300*?\203\300*"
 & "?\376\3248?\177j\034?\004V\016?\376\3248?\376\3248?\372~\252>\002+\307>"
 & "\376\3248?\177j\034?\201\225c?\376\3248?\376\3248?\004V\016?\376\3248?\203"
 & "\300*?\004V\016?\177j\034?\376\3248?\376\3248?\374\251q?\376\3248?\376\324"
 & "8?\177j\034?\372~\252>\004V\216>\372~\252>\305 \360>\000\000\000?\372~\252"
 & ">\370S\343>\000\000\000?\370S\343>\000\000\000?\370S\343>\372~\252>\000"
 & "\000\000?\000\000\000?\004V\216>\004V\216>\000\000\000?\004V\216>\002+G"
 & "?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\372~\252>\002+\307"
 & ">\004V\216>\000\000\000?\000\000\000?\376\3248?\000\000\000?\000\000\000"
 & "?\370S\343>\217\302\365>\315\314L>\217\302\365>\372~\n?\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\004V\216>\372~\252>\372~\252>\372"
 & "~\252>\372~\252>\372~\252>\372~\252>\372~\252>\372~\252>\000\000\000\000"
 & "\372~\252>\372~\252>\000\000\000\000\372~\252>\372~\252>\372~\252>\000\000"
 & "\000\000\372~\252>\000\000\000?\000\000\000?\000\000\000?\000\000\000?\315"
 & "\314L>\000\000\000?\372~\252>\\\217B?\337O\215>\000\000\000?Nb\020?\372"
 & "~\252>\\\217B?\372~\252>\315\314\314>Nb\020?\232\231\231>\232\231\231>\372"
 & "~\252>\000\000\000?\236\357\347>\000\000\200>\372~\252>\232\231\231>R\270"
 & "\236>\000\000\000?\000\000@?\000\000@?\000\000@?\370S\343>\376\3248?\376"
 & "\3248?\376\3248?\376\3248?\376\3248?\376\3248?\201\225c?\203\300*?\177j"
 & "\034?\177j\034?\177j\034?\177j\034?\372~\252>\372~\252>\372~\252>\372~\252"
 & ">\376\3248?\376\3248?\376\3248?\376\3248?\376\3248?\376\3248?\376\3248?"
 & "Nb\020?\376\3248?\376\3248?\376\3248?\376\3248?\376\3248?\376\3248?\004"
 & "V\016?\000\000\000?\370S\343>\370S\343>\370S\343>\370S\343>\370S\343>\370"
 & "S\343>\203\300*?\370S\343>\370S\343>\370S\343>\370S\343>\370S\343>\004V"
 & "\216>\004V\216>\004V\216>\004V\216>\000\000\000?\000\000\000?\000\000\000"
 & "?\000\000\000?\000\000\000?\000\000\000?\000\000\000?Nb\020?\000\000\000"
 & "?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000"
 & "\000?\000\000\000?0000000000000000000000000000000005\001\n\270\036\005>"
 & "F\266s>V\016-?\274t\023\2745\001\n-\262\235=\325x\251>V\016-?\010\254\334"
 & ">5\001\n\n\327\243;\266\363\375>\325x)?\000\000\000\0005\001\nX94=\347\373"
 & "\351>\254\034:?\016-\262\2755\001\n#\333y=\313\241E?V\016-?\364\375T\274"
 & "5\001\n1\010,=\000\000@?V\016-?\364\375T\2745\001\n\301\312\241=d;_>V\016"
 & "-?-\262\335>5\001\n\246\233D=\343\245\233>V\016-?}?5\2765\001\nh\221\355"
 & "<\205\353\221>V\016-?}?5\2765\001\n\337O\215=\033/\335>V\016-?\024\256\207"
 & ">5\001\n\217\302\365<9\264\010?7\211\001?\000\000\000\0005\001\nB`e=\024"
 & "\256G>`\345\320=Nb\020\2765\001\n\217\302\365<9\264\010?\230n\222>\256G"
 & "a>5\001\n)\\\217=\020X9>\315\314\314=X94\2745\001\n\274t\023\274\252\361"
 & "\222>V\016-?B`e\2745\001\n\246\233\304<F\266\363>V\016-?B`e\2745\001\n\370"
 & "S\343=^\272\311>V\016-?\000\000\000\0005\001\n\217\302\365<33\363>V\016"
 & "-?\000\000\000\0005\001\n\305 0=\010\254\334>V\016-?B`e\2745\001\n\246\233"
 & "D<\374\251\361>V\016-?\000\000\000\0005\001\no\022\003=\211A\340>\305 0"
 & "?B`e\2745\001\n\226C\013=\262\235\357>\240\032/?B`e\2745\001\n\n\327\243"
 & "<T\343\345>\325x)?o\022\003\2745\001\nB`e=\n\327\343>V\016-?B`e\2745\001"
 & "\n\217\302\365<\f\002\353>V\016-?X9\264\2745\001\nT\343\245=\246\233D>\f"
 & "\002\353>X94\2745\001\n\n\327\243=\211A`>\f\002\353>Nb\020\2765\001\nB`"
 & "\345<L7\t?\201\225\003?o\022\003\2745\001\n\217\302\365<9\264\010?\313\241"
 & "\305>\217\302\365=5\001\nB`\345<L7\t?\201\225\003?o\022\003\2745\001\n\226"
 & "C\213=\317\367\323>V\016-?o\022\003\2745\001\nh\221\355=\240\032O?V\016"
 & "-?B`e\2745\001\n\217\302u<j\2744?D\213,?\000\000\000\0005\001\n\226C\213"
 & "<\331\316\027?\325x)?\000\000\000\0005\001\nB`\345<J\f\"?V\016-?B`e\274"
 & "5\001\no\022\203<)\\/?\325x)?\000\000\000\0005\001\n\246\233D<\376\324\030"
 & "?\325x)?\000\000\000\0005\001\n\246\233D<\250\306\013?\325x)?\000\000\000"
 & "\0005\001\no\022\003=\006\2015?V\016-?B`e\2745\001\n\343\245\233<F\2663"
 & "?\325x)?\000\000\000\0005\001\n\274t\223<\256G\241>\325x)?\000\000\000\000"
 & "5\001\n\n\327#<\244p\275>\325x)?B`e\2745\001\n\226C\013=\207\0269?\325x"
 & ")?\000\000\000\0005\001\n\246\233D<\207\026\031?\325x)?\000\000\000\000"
 & "5\001\n\246\233D<\221\355\\?\325x)?\000\000\000\0005\001\n\246\233D<\364"
 & "\3754?\325x)?X94\2745\001\n\226C\013=\305 0?V\016-?B`e\2745\001\no\022\203"
 & "<\203\300\n?\325x)?\000\000\000\0005\001\n\226C\013=\274t3?V\016-?\242E"
 & "6\2765\001\n\226C\213<9\264(?\325x)?\000\000\000\0005\001\n1\010,=Zd\373"
 & ">V\016-?B`e\2745\001\n\226C\213<\331\316\027?\325x)?\000\000\000\0005\001"
 & "\nB`e<\341z4?\325x)?B`e\2745\001\no\022\203<\230n2?\325x)?X94\2745\001\n"
 & "\n\327\243;\215\227n?\325x)";

CONST E1_18 =
   "?X94\2745\001\n\n\327#<X94?\325x)?\000\000\000\0005\001\nX9\264<\317\367"
 & "3?\325x)?\000\000\000\0005\001\n\274t\023<\376\324\030?\325x)?\000\000\000"
 & "\0005\001\nX9\264=\207\026\231>\325x)?w\276\037\2765\001\n\274t\023\274"
 & "\252\361\222>V\016-?B`e\2745\001\n\226C\013=H\341z>\325x)?w\276\037\276"
 & "5\001\n\246\233\304<\035Z\344>\325x)?b\020\230>5\001\n\000\000\000\000\000"
 & "\000\000?\232\231\231\275\000\000\000\2765\001\n\037\205\353=J\f\202>V\016"
 & "-?-\262\335>5\001\nP\215\027=\323M\342>\037\205\353>\n\327#\2745\001\n\246"
 & "\233D;\262\235\357>\027\331.?\n\327#\2745\001\n\315\314\314<\252\361\322"
 & ">\037\205\353>\n\327#\2745\001\n\033/\335<Zd\373>\027\331.?\n\327#\2745"
 & "\001\n\315\314\314<\207\026\331>\037\205\353>\n\327#\2745\001\n\n\327\243"
 & "<\223\030\304>\027\331.?\000\000\000\0005\001\nB`\345<\327\243\360>\037"
 & "\205\353>d;_\2765\001\n\274t\023<\020X\371>\027\331.?\000\000\000\0005\001"
 & "\no\022\203<7\211\201>\027\331.?\000\000\000\0005\001\n)\\\217\275\360\247"
 & "F>\027\331.?d;_\2765\001\nB`\345;\256G\001?\027\331.?\000\000\000\0005\001"
 & "\n\343\245\233<\201\225\203>\027\331.?\000\000\000\0005\001\no\022\203<"
 & "ffF?\037\205\353>\000\000\000\0005\001\no\022\203<\354Q\370>\037\205\353"
 & ">\000\000\000\0005\001\nh\221\355<\327\243\360>\037\205\353>\n\327#\274"
 & "5\001\n\n\327\243;\327\243\360>\037\205\353>?5^\2765\001\n\246\233\304<"
 & "#\333\371>\037\205\353>?5^\2765\001\n\n\327\243;\037\205\253>\037\205\353"
 & ">\000\000\000\0005\001\n`\345P=\016-\262>\037\205\353>\n\327#\2745\001\n"
 & "\364\375T<\027\331\216>X9\024?\n\327#\2745\001\n\274t\023<}?\365>ff\346"
 & ">\n\327#\2745\001\n\343\245\233<X9\364>ff\346>B`e\2745\001\n1\010\254<\374"
 & "\2511?ff\346>B`e\2745\001\n\226C\213<}?\365>ff\346>\000\000\000\0005\001"
 & "\nB`e<33\363>ff\346>d;_\2765\001\n\033/\335<\031\004\326>ff\346>\000\000"
 & "\000\0005\001\n\315\314\314=33\263>{\024.?\020X9\2765\001\nL7\211=\'1\010"
 & ">V\016-?B`e\2745\001\n\270\036\005>\\\217\302>{\024.?\020X9\2765\001\n\n"
 & "\327#=\022\203\000?B`\245>Zd;>000000000000000005\001\no\022\203<7\211\201"
 & ">\037\205\353>\000\000\000\0005\001\n\343\245\233<\331\316w>h\221-?\301"
 & "\312\001?5\001\n\311v\276=\323M\242>h\221-?\301\312\001?5\001\nX94</\335"
 & "\244>D\213,?\301\312\001?5\001\no\022\203:\325x\251>\370S#?\'1\010?5\001"
 & "\nX94</\335\244>#\333\031?1\010\f?5\001\n\364\375\324<\033/\235>\347\373"
 & ")?\301\312\001?5\001\n\374\251\361=\033/]>\356|\037?T\343\005?5\001\n\274"
 & "t\223<\256G\241>\356|\037?T\343\005?05\001\nL7\211=\'1\210>\031\0046?o\022"
 & "\003?5\001\n\364\375T=\313\241\205>\000\000\000\000\366(\\\27605\001\n\246"
 & "\233D\273%\006\301>h\221-?\301\312\001?5\001\no\022\203=\333\371~>\000\000"
 & "\000\000\303\365(\2765\001\nX94</\335\244>D\213,?\301\312\001?05\001\n\360"
 & "\247\306=\205\353Q>\240\032\357>d;_\2765\001\n\207\026Y=B`\345>X9\024?\337"
 & "O\r\2765\001\n\246\233D<H\341\372>V\016-?o\022\003\2745\001\nX9\264\274"
 & "\313\241\005?\254\034\032?h\221m=5\001\n\207\026Y\275o\022\003?\325x)?\000"
 & "\000\000\0005\001\nL7\211=\'1\010>V\016-?B`e\2745\001\n)\\\217=\254\034"
 & "\332>V\016-?P\215\027\2761\317\005\000\0005\001\n\343\245\033=\376\3248"
 & "?V\016-?B`e\2745\001\no\022\203;q=\212>V\016-?^\272\311>5\001\n1\010,=\325"
 & "x\351>\364\375\324>\002+\007=5\001\n\217\302\365<9\264\010?\313\241\305"
 & ">\033/\335=5\001\nw\276\037=\205\353\221>\201\225\203>\360\247F>5\001\n"
 & "\343\245\033=\376\3248?V\016-?B`e\2741\314\005\000\0005\001\n\325xi=\262"
 & "\235\257>V\016-?\024\256\307>5\001\n\217\302\365<9\264\010?7\211\001?\000"
 & "\000\000\0005\001\no\022\203:P\215\227>V\016-?q=\212>5\001\n\217\302u<\364"
 & "\375\224>V\016-?\335$\206>1\311\005\000\0005\001\n\274t\023=o\022\003?f"
 & "f\346>d;_\2765\001\nX9\264\274ff\346>\325x)?-\262\035\2765\001\n)\\\217"
 & "=\020X9>R\270\236>\250\306K>1\321\005\000\0005\001\n\325xi=\266\363}>V\016"
 & "-?q=\212>5\001\n\246\233\304;\343\245\233>V\016-?^\272\311>5\001\nX94=\372"
 & "~\352>\364\375\324>\002+\007=5\001\nP\215\027=\331\3167?V\016-?B`e\2745"
 & "\001\n\266\363\375<\333\371>?V\016-?B`e\2745\001\n\217\302u<\331\3167?V"
 & "\016-?B`e\2745\001\n\217\302\365<\022\203\300>\215\227\356>d;_\2765\001"
 & "\n\217\302u<j\2744?\n\327c?\000\000\000\0005\001\n\217\302u<j\2744?\n\327"
 & "c?\000\000\000\0005\001\n\217\302u<j\2744?\345\320b?\000\000\000\0005\001"
 & "\n\217\302u<j\2744?\232\231Y?\000\000\000\0005\001\n\217\302u<j\2744?\217"
 & "\302U?\000\000\000\0005\001\n\217\302u<j\2744?T\343e?\000\000\000\0005\001"
 & "\n\000\000\000\000\221\355\\?\325x)?\000\000\000\0005\001\nB`\345<J\f\""
 & "?V\016-?\366(\\\2765\001\n\246\233D<\376\324\030?\n\327c?\000\000\000\000"
 & "5\001\n\246\233D<\376\324\030?\n\327c?\000\000\000\0005\001\n\246\233D<"
 & "\376\324\030?\345\320b?\000\000\000\0005\001\n\246\233D<\376\324\030?\217"
 & "\302U?\000\000\000\0005\001\n\274t\223<\256G\241>\n\327c?\000\000\000\000"
 & "5\001\n\274t\223<\323M\242>\n\327c?\000\000\000\0005\001\nX94</\335\244"
 & ">\345\320b?\000\000\000\0005\001\n\274t\223<\256G\241>\217\302U?\000\000"
 & "\000\0005\001\no\022\203<)\\/?\325x)?\000\000\000\0005\001\n\246\233D<\364"
 & "\3754?\232\231Y?X94\2745\001\n\226C\013=\305 0?\n\327c?B`e\2745\001\n\226"
 & "C\013=\305 0?\n\327c?B`e\2745\001\n\226C\013=\305 0?\345\320b?B`e\2745\001"
 & "\n\226C\013=\305 0?\232\231Y?B`e\2745\001\n\226C\013=\305 0?\217\302U?B"
 & "`";

CONST E1_19 =
   "e\2745\001\n\343\245\033=y\351\006?\311v\376>o\022\003<5\001\n\226C\013"
 & "=\305 0?m\347;?\n\327\243\2755\001\nB`e<\341z4?\n\327c?B`e\2745\001\nB`"
 & "e<\341z4?\n\327c?B`e\2745\001\nB`e<\341z4?\345\320b?B`e\2745\001\nB`e<\341"
 & "z4?\217\302U?B`e\2745\001\nX9\264<\317\3673?\n\327c?\000\000\000\0005\001"
 & "\no\022\203<\203\300\n?\325x)?\000\000\000\0005\001\n\246\233D<\262\235"
 & "\357>\027\331.?\274t\023\2745\001\nP\215\027=\323M\342>h\221-?\n\327#\274"
 & "5\001\nP\215\027=\323M\342>h\221-?\n\327#\2745\001\nP\215\027=\323M\342"
 & ">D\213,?\n\327#\2745\001\nP\215\027=\323M\342>\370S#?\n\327#\2745\001\n"
 & "P\215\027=\323M\342>\356|\037?\n\327#\2745\001\nP\215\027=\323M\342>\031"
 & "\0046?\n\327#\2745\001\n\343\245\033=\301\312!?\037\205\353>\n\327#\274"
 & "5\001\n\315\314\314<\252\361\322>\037\205\353>\366(\\\2765\001\n\315\314"
 & "\314<\207\026\331>h\221-?\n\327#\2745\001\n\315\314\314<\207\026\331>h\221"
 & "-?\n\327#\2745\001\n\315\314\314<\207\026\331>D\213,?\n\327#\2745\001\n"
 & "\315\314\314<\207\026\331>\356|\037?\n\327#\2745\001\no\022\003\2747\211"
 & "\201>h\221-?\000\000\000\0005\001\no\022\203<\341z\224>h\221-?\000\000\000"
 & "\0005\001\no\022\203\274=\n\227>D\213,?\000\000\000\0005\001\n\274t\023"
 & "\274\274t\223>\356|\037?\000\000\000\0005\001\nh\221\355<\351&\361>\262"
 & "\235/?\n\327#\2745\001\no\022\203<\354Q\370>\370S#?\000\000\000\0005\001"
 & "\nh\221\355<\327\243\360>h\221-?\n\327#\2745\001\nh\221\355<\327\243\360"
 & ">h\221-?\n\327#\2745\001\nh\221\355<\327\243\360>D\213,?\n\327#\2745\001"
 & "\nh\221\355<\327\243\360>\370S#?\n\327#\2745\001\nh\221\355<\327\243\360"
 & ">\356|\037?\n\327#\2745\001\n\217\302\365<9\264\010?\223\030\004?\n\327"
 & "#\2745\001\nh\221\355<\327\243\360>V\016\r?B`\345\2755\001\n\274t\023<}"
 & "?\365>h\221-?\n\327#\2745\001\n\274t\023<}?\365>h\221-?\n\327#\2745\001"
 & "\n\274t\023<}?\365>D\213,?\n\327#\2745\001\n\274t\023<}?\365>\356|\037?"
 & "\n\327#\2745\001\nB`e<33\363>h\221-?d;_\2765\001\n\n\327\243;\327\243\360"
 & ">\027\331.??5^\2765\001\nB`e<33\363>\356|\037?d;_\27605\001\0051\005\000"
 & "\000\0005\001\t\347\373)\276\000\000\200?\004Vn?fff\276\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\001\001\001"
 & "\001\001\001\001\001\000\001\001\000\001\001\001\000\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\004V\216>\004V\216>\217\302\265>\004V\016?\004V\016?\201\225c?"
 & "\203\300*?\370Sc>\372~\252>\372~\252>\002+\307>\006\201\025?\004V\216>\006"
 & "\201\025?\004V\216>\004V\216>\004V\016?\004V\016?\004V\016?\004V\016?\004"
 & "V\016?\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\004V\216>\004V"
 & "\216>\006\201\025?\006\201\025?\006\201\025?\004V\016?\205\353\201?\203"
 & "\300*?\203\300*?\376\3248?\376\3248?\203\300*?\177j\034?\002+G?\376\324"
 & "8?\004V\216>\000\000\000?\203\300*?\004V\016?}?U?\376\3248?\002+G?\203\300"
 & "*?\002+G?\376\3248?\203\300*?\177j\034?\376\3248?\203\300*?\374\251q?\203"
 & "\300*?\203\300*?\177j\034?\004V\216>\004V\216>\004V\216>\305 \360>\004V"
 & "\016?\370Sc>\004V\016?\004V\016?\000\000\000?\004V\016?\004V\016?\004V\216"
 & ">\004V\016?\004V\016?\370Sc>\370Sc>\000\000\000?\370Sc>}?U?\004V\016?\004"
 & "V\016?\004V\016?\004V\016?\372~\252>\000\000\000?\004V\216>\004V\016?\000"
 & "\000\000?\376\3248?\000\000\000?\000\000\000?\000\000\000?\f\002\253>\270"
 & "\036\205>\f\002\253>\006\201\025?\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\004V\216>\372~\252>\372~\252>\372~\252>\372~\252>\372~"
 & "\252>\372~\252>\372~\252>\372~\252>\000\000\000\000\372~\252>\372~\252>"
 & "\000\000\000\000\372~\252>\372~\252>\372~\252>\000\000\000\000\372~\252"
 & ">\004V\016?\004V\016?\004V\016?\004V\016?\270\036\205>\004V\016?\372~\252"
 & ">\010\254<?\244p\275>\004V\016?\006\201\025?\372~\252>\010\254<?\372~\252"
 & ">\315\314\314>\006\201\025?\372~\252>\372~\252>\372~\252>\004V\016?\325"
 & "x\t?\004V\216>\372~\252>\372~\252>H\341\272>\004V\016?\006\201U?\006\201"
 & "U?\006\201U?\177j\034?\203\300*?\203\300*?\203\300*?\203\300*?\203\300*"
 & "?\203\300*?\000\000\200?\376\3248?\203\300*?\203\300*?\203\300*?\203\300"
 & "*?\004V\216>\004V\216>\004V\216>\004V\216>\376\3248?\376\3248?\002+G?\002"
 & "+G?\002+G?\002+G?\002+G?\006\201\025?\002+G?\376\3248?\376\3248?\376\324"
 & "8?\376\3248?\203\300*?\203\300*?\177j\034?\004V\016?\004V\016?\004V\016"
 & "?\004V\016?\004V\016?\004V\016?\201\225c?\000\000\000?\004V\016?\004V\016";

CONST E1_20 =
   "?\004V\016?\004V\016?\004V\216>\004V\216>\004V\216>\004V\216>\004V\016?"
 & "\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\006\201\025"
 & "?\177j\034?\004V\016?\004V\016?\004V\016?\004V\016?\000\000\000?\004V\016"
 & "?\000\000\000?0000000000000000000000000000000005\001\n\354Q\270=\356|?>"
 & "\331\3167?\000\000\000\0005\001\n)\\\217=\205\353\221>\331\3167?V\016\355"
 & ">5\001\nB`\345<\213l\007?\305 0?\000\000\000\0005\001\no\022\003=\270\036"
 & "\005?ffF?\037\205\353\2755\001\nw\276\037=\232\231Y?\317\3673?\343\245\233"
 & "\2745\001\nX94=\270\036%?\331\3167?\217\302u\2745\001\n\207\026Y=\234\304"
 & " >\331\3167?V\016\355>5\001\n\226C\213=\207\026\231>\343\245;?\317\367S"
 & "\2765\001\n\226C\013=\024\256\207>\343\245;?\317\367S\2765\001\nw\276\037"
 & "=!\260\262>\331\3167?\010\254\334>5\001\nw\276\037=\037\205\013?\256G\001"
 & "?\000\000\000\0005\001\n\016-\262=\201\225C>\207\026\331=+\207\026\2765"
 & "\001\nw\276\037=\037\205\013?\317\367\223>\033/]>5\001\n\016-\262=\201\225"
 & "C>\207\026\331=\000\000\000\0005\001\n\226C\213\274=\n\227>\010\254<?\343"
 & "\245\233\2745\001\nP\215\027=/\335\004?\317\3673?\343\245\233\2745\001\n"
 & "\027\331\316=\331\316\267>\317\3673?\000\000\000\0005\001\n\364\375\324"
 & "<\301\312\001?\317\3673?\000\000\000\0005\001\n\226C\013=\313\241\005?\317"
 & "\3673?\343\245\233\2745\001\n\315\314\314<T\343\005?\317\3673?\000\000\000"
 & "\0005\001\no\022\003=\201\225\003?\305 0?\343\245\233\2745\001\n\343\245"
 & "\033=\246\233\004?\317\3673?\343\245\233\2745\001\nP\215\027=T\343\005?"
 & "\305 0?\000\000\000\0005\001\n\343\245\033=\035Z\004?\317\3673?\343\245"
 & "\233\2745\001\n1\010,=\201\225\003?\317\3673?\343\245\233\2745\001\n\016"
 & "-\262=\201\225C>\223\030\004?\000\000\000\0005\001\n\016-\262=\201\225C"
 & ">\223\030\004?+\207\026\2765\001\n\246\233D=L7\t?\244p\375>X94<5\001\nw"
 & "\276\037=\037\205\013?\024\256\307>\037\205\353=5\001\n\246\233D=L7\t?\244"
 & "p\375>X94<5\001\nB`e=m\347\373>\254\034:?\000\000\000\0005\001\n+\207\026"
 & ">?5^?\010\254<?\343\245\233\2745\001\nB`e<\213l\'?\331\3167?\000\000\000"
 & "\0005\001\nP\215\227=\022\203 ?\331\3167?\000\000\000\0005\001\nX94=\004"
 & "V.?\010\254<?\343\245\233\2745\001\nT\343\245=D\213,?\331\3167?\000\000"
 & "\000\0005\001\n\305 \260=-\262\035?\331\3167?\000\000\000\0005\001\n\305"
 & " \260=}?\025?\331\3167?\000\000\000\0005\001\n\246\233D=X94?\010\254<?\343"
 & "\245\233\2745\001\n-\262\235=B`%?\331\3167?\000\000\000\0005\001\n5^\272"
 & "=\022\203@>\331\3167?\000\000\000\0005\001\n\226C\213<\321\"\333>\331\316"
 & "7?\343\245\233\2745\001\n\343\245\233=^\272)?\331\3167?\000\000\000\000"
 & "5\001\n\343\245\233=\325x\t?\331\3167?\000\000\000\0005\001\n\006\201\225"
 & "=\345\320B?\331\3167?\000\000\000\0005\001\n\343\245\233=B`%?\331\3167?"
 & "\000\000\000\0005\001\nw\276\037=\033/=?\010\254<?\343\245\233\2745\001"
 & "\n\305 \260=d;\037?\331\3167?\000\000\000\0005\001\nw\276\037=\033/=?\010"
 & "\254<?B`e\2755\001\nX9\264=\240\032/?\331\3167?\000\000\000\0005\001\n9"
 & "\264H=R\270\036?\010\254<?\343\245\233\2745\001\nB`e<\376\324\030?\331\316"
 & "7?\000\000\000\0005\001\n\301\312\241=/\335$?\331\3167?\343\245\233\274"
 & "5\001\n\n\327\243<\313\241%?\331\3167?\000\000\000\0005\001\no\022\203<"
 & "h\221m?\331\3167?\000\000\000\0005\001\n\343\245\233<T\343%?\331\3167?\000"
 & "\000\000\0005\001\nB`e<\002+\'?\331\3167?\000\000\000\0005\001\n\177j\274"
 & "<+\207\026?\331\3167?\000\000\000\0005\001\n%\006\201=\000\000\200>\376"
 & "\3248?9\264H\2765\001\n\226C\213\274=\n\227>\010\254<?\343\245\233\2745"
 & "\001\nB`\345<\366(\\>\376\3248?9\264H\2765\001\nB`e\274\307K\367>\305 0"
 & "?\002+\207>5\001\n\000\000\000\000\004V\016?\232\231\231\275\000\000\000"
 & "\2765\001\n\270\036\205=V\016->\232\2319?\327\243\360>5\001\n\274t\023="
 & "\024\256\007?^\272\t?\217\302u\2745\001\nh\221m=\035Z\004?\331\3167?\217"
 & "\302u\2745\001\n\217\302\365<X9\364>^\272\t?\217\302u\2745\001\n)\\\017"
 & "=\356|\377>\331\3167?\217\302u\2745\001\n\n\327#=\223\030\004?^\272\t?\217"
 & "\302u\2745\001\nB`e<\335$\206>5^:?\000\000\000\0005\001\n\n\327#=\356|\377"
 & ">^\272\t?\256Ga\2765\001\n\270\036\205=Zd\373>\331\3167?\000\000\000\000"
 & "5\001\nL7\211=R\270\036>\331\3167?\000\000\000\0005\001\no\022\203\274R"
 & "\270\036>\331\3167?=\nW\2765\001\nL7\211=\211A\000?\331\3167?\000\000\000"
 & "\0005\001\nL7\211=R\270\036>\331\3167?\000\000\000\0005\001\n\270\036\205"
 & "=/\335D?^\272\t?\000\000\000\0005\001\n\270\036\205=Zd\373>^\272\t?\000"
 & "\000\000\0005\001\n)\\\017=B`\005?^\272\t?B`e\2745\001\nh\221m=\035Z\004"
 & "?^\272\t?\317\367S\2765\001\n)\\\017=\221\355\374>^\272\t?\317\367S\276"
 & "5\001\n-\262\235=\347\373\251>^\272\t?\000\000\000\0005\001\no\022\003="
 & "h\221\355>^\272\t?\217\302u\2745\001\nB`e<\201\225\203>\226C+?B`\345\273"
 & "5\001\n\226C\213=5^\372>T\343\005?\217\302u\2745\001\no\022\003<m\347\373"
 & ">T\343\005?\000\000\000\0005\001\nB`e<\006\2015?T\343\005?\000\000\000\000"
 & "5\001\nX94<H\341\372>T\343\005?\000\000\000\0005\001\nX94<5^\372>T\343\005"
 & "?\321\"[\2765\001\n\266\363\375<\305 \360>T\343\005?\000\000\000\0005\001"
 & "\n1\010,=\006\201\225>\376\3248?9\264H\2765\001\n\022\203\300=\f\002+>\010"
 & "\254<?\343\245\233\2745\001\n1\010,=\006\201\225>\376\3248?9\264H\2765\001"
 & "\n#\333y=T\343\005?y\351\246>\354Q8>000000000000000005\001\n\\\217\302="
 & "Zd;>T\343\005?\000\000\000\0005\001\nB`e<b\020X>m\347;?\331\316\027?5\001"
 & "\n#\333\371=\370S\243>m\347;?\331\316\027?5\001\n1\010\254<w\276\237>m\347"
 & ";?\331\316\027";

CONST E1_21 =
   "?5\001\no\022\203\273D\213\254>\376\3248?\321\"\033?5\001\n\n\327#<B`\245"
 & ">\240\032/?\022\203 ?5\001\n\364\375T<\035Z\244>\321\";?\354Q\030?5\001"
 & "\n\331\316\367=\207\026Y>j\2744?\276\237\032?5\001\n\n\327#=\031\004\226"
 & ">j\2744?\276\237\032?05\001\n\232\231\231=\246\233\204>7\211A?\230n\022"
 & "?5\001\n\354Q8=\246\233\204>\000\000\000\000fff\27605\001\n\266\363\375"
 & "<sh\321>m\347;?\331\316\027?5\001\n\006\201\225=\252\361\222>\000\000\000"
 & "\000fff\2765\001\n1\010\254<w\276\237>m\347;?\331\316\027?05\001\n\374\251"
 & "\361=\366(\\>T\343\005?\024\256G\2765\001\n`\345P=\370S\003?\356|\037?\037"
 & "\205\353\2755\001\n\002+\007=\347\373\t?\331\3167?o\022\203\2745\001\nB"
 & "`\345<\002+\007?5^\032?\203\300\312=5\001\n\246\233D;h\221\r?\305 0?\000"
 & "\000\000\0005\001\n\022\203\300=\f\002+>\010\254<?\343\245\233\2745\001"
 & "\n\305 0=o\022\003?\010\254<?\201\225C\2761\230\006\000\0005\001\nB`e\274"
 & "\022\203@?\010\254<?\343\245\233\2745\001\n\246\233\304<\351&\261>\010\254"
 & "<?\343\245\233>5\001\n\360\247\306=\f\002\353>\035Z\344>\033/\335=5\001"
 & "\nw\276\037=\037\205\013?\024\256\307>\033/\335=5\001\nX94=\317\367\223"
 & ">/\335\244>h\221m>5\001\nB`e\274\022\203@?\010\254<?\343\245\233\2741\225"
 & "\006\000\0005\001\n\033/]=\351&\261>\317\3673?\230n\322>5\001\nw\276\037"
 & "=\037\205\013?7\211\001?\000\000\000\0005\001\no\022\203;B`\245>\317\367"
 & "3?;\337\217>5\001\n\n\327\243;ff\246>\317\3673?q=\212>1\222\006\000\000"
 & "5\001\n\226C\213=5^\372>T\343\005?\317\367S\2765\001\n\274t\223<\311v\376"
 & ">\331\3167?\351&1\2765\001\n-\262\235=\027\331N>\256G\241>\\\217B>1\232"
 & "\006\000\0005\001\n\305 0=\370Sc>\317\3673?;\337\217>5\001\n\315\314\314"
 & "<\215\227\256>\010\254<?\343\245\233>5\001\n\360\247\306=\f\002\353>\035"
 & "Z\344>\033/\335=5\001\n\006\201\225=7\211A?\317\3673?\343\245\233\2745\001"
 & "\n\305 0=T\343E?\317\3673?\343\245\233\2745\001\n\354Q8=)\\O?\317\3673?"
 & "\343\245\233\2745\001\n5^\272=y\351\006?ff\006?\362\322M\2765\001\nB`e<"
 & "\213l\'?\362\322m?\000\000\000\0005\001\nB`e<\213l\'?\362\322m?\000\000"
 & "\000\0005\001\nB`e<\213l\'?\362\322m?\000\000\000\0005\001\nB`e<\213l\'"
 & "?\203\300j?\000\000\000\0005\001\nB`e<\213l\'?\360\247f?\000\000\000\000"
 & "5\001\nB`e<\213l\'?\004Vn?\000\000\000\0005\001\no\022\003<\274ts?\331\316"
 & "7?\000\000\000\0005\001\nX94=\004V.?\010\254<?fff\2765\001\n\305 \260=-"
 & "\262\035?\362\322m?\000\000\000\0005\001\n\305 \260=-\262\035?\362\322m"
 & "?\000\000\000\0005\001\n\305 \260=-\262\035?\362\322m?\000\000\000\0005"
 & "\001\n\305 \260=-\262\035?\360\247f?\000\000\000\0005\001\n\364\375T\274"
 & "\022\203@>\362\322m?\000\000\000\0005\001\n5^\272=\006\201\225>\362\322"
 & "m?\000\000\000\0005\001\n\246\233\304\273\205\353\221>\362\322m?\000\000"
 & "\000\0005\001\n\364\375T<\'1\210>\360\247f?\000\000\000\0005\001\n\000\000"
 & "\000\000D\213,?\331\3167?\000\000\000\0005\001\n\343\245\233=B`%?\203\300"
 & "j?\000\000\000\0005\001\nw\276\037=\033/=?\362\322m?\343\245\233\2745\001"
 & "\nw\276\037=\033/=?\362\322m?\343\245\233\2745\001\nw\276\037=\033/=?\362"
 & "\322m?\343\245\233\2745\001\nw\276\037=\033/=?\203\300j?\343\245\233\274"
 & "5\001\nw\276\037=\033/=?\360\247f?\343\245\233\2745\001\nw\276\037=\037"
 & "\205\013?7\211\001?\000\000\000\0005\001\nw\276\037=\244p=?\010\254<?\343"
 & "\245\233\2745\001\n\301\312\241=/\335$?\362\322m?\343\245\233\2745\001\n"
 & "\301\312\241=/\335$?\362\322m?\343\245\233\2745\001\n\301\312\241=/\335"
 & "$?\362\322m?\343\245\233\2745\001\n\301\312\241=/\335$?\360\247f?\343\245"
 & "\233\2745\001\nB`e<\002+\'?\362\322m?\000\000\000\0005\001\n\305 \260=d"
 & ";\037?\331\3167?\000\000\000\0005\001\nL7\211=\016-\022?5^:?\217\302u\274"
 & "5\001\n\274t\023=\024\256\007?m\347;?\217\302u\2745\001\n\274t\023=\024"
 & "\256\007?m\347;?\217\302u\2745\001\n\274t\023=\024\256\007?m\347;?\217\302"
 & "u\2745\001\n\274t\023=\024\256\007?\376\3248?\217\302u\2745\001\n\274t\023"
 & "=\024\256\007?j\2744?\217\302u\2745\001\n\274t\023=\024\256\007?7\211A?"
 & "\217\302u\2745\001\n\274t\023=\376\324X?^\272\t?\217\302u\2745\001\n\217"
 & "\302\365<X9\364>^\272\t?fff\2765\001\n\n\327#=\223\030\004?m\347;?\217\302"
 & "u\2745\001\n\n\327#=\223\030\004?m\347;?\217\302u\2745\001\n\n\327#=\223"
 & "\030\004?m\347;?\217\302u\2745\001\n\n\327#=\223\030\004?j\2744?\217\302"
 & "u\2745\001\n\364\375T\274\177j<>m\347;?\000\000\000\0005\001\n\\\217\302"
 & "=\006\201\225>m\347;?\000\000\000\0005\001\n\246\233\304\273\205\353\221"
 & ">m\347;?\000\000\000\0005\001\n\364\375T<\'1\210>j\2744?\000\000\000\000"
 & "5\001\n)\\\017=\313\241\005?\010\254<?\217\302u\2745\001\n\270\036\205="
 & "Zd\373>\376\3248?\000\000\000\0005\001\n)\\\017=B`\005?m\347;?B`e\2745\001"
 & "\n)\\\017=B`\005?m\347;?B`e\2745\001\n)\\\017=B`\005?m\347;?B`e\2745\001"
 & "\n)\\\017=B`\005?\376\3248?B`e\2745\001\n)\\\017=B`\005?j\2744?B`e\2745"
 & "\001\nw\276\037=\037\205\013?\335$\006?\343\245\233\2745\001\nB`\345<\325"
 & "x\t?\037\205\013?X9\264\2745\001\n\226C\213=5^\372>m\347;?\217\302u\274"
 & "5\001\n\226C\213=5^\372>m\347;?\217\302u\2745\001\n\226C\213=5^\372>m\347"
 & ";?\217\302u\2745\001\n\226C\213=5^\372>j\2744?\217\302u\2745\001\nX94<5"
 & "^\372>m\347;?\321\"[\2765\001\nh\221m=\035Z\004?\331\3167?\317\367S\276"
 & "5\001\nX94<5^\372>j\2744?\321\"[\2765\001\0051\203\000\000\0005\001\tV\016"
 & "-\276\256G\201?J\fb??5^\276\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000";

CONST E1_22 =
   "\000\000\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\001\001\001\001\001\001\001\001\001\000\001\001"
 & "\000\001\001\001\000\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\200>\372~\252>"
 & "=\n\327>\000\000\000?\000\000\000?}?U?\002+G?\372~\252>\372~\252>\372~\252"
 & ">\000\000\000?\315\314,?\000\000\200>\315\314,?\000\000\200>\004V\216>\000"
 & "\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000\000"
 & "?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\372~\252>\372~\252"
 & ">\315\314,?\315\314,?\315\314,?\000\000\000?\037\205k?\177j\034?\177j\034"
 & "?\203\300*?\376\3248?\177j\034?\177j\034?\376\3248?\376\3248?\372~\252>"
 & "\370S\343>\203\300*?\004V\016?}?U?\203\300*?\376\3248?\177j\034?\376\324"
 & "8?\177j\034?\000\000\000?\004V\016?\376\3248?\177j\034?}?U?\177j\034?\004"
 & "V\016?\004V\016?\002+\307>\004V\216>\002+\307>b\020\330>\000\000\000?\372"
 & "~\252>\000\000\000?\000\000\000?\370S\343>\000\000\000?\370S\343>\004V\216"
 & ">\000\000\000?\000\000\000?\004V\216>\004V\216>\370S\343>\004V\216>\376"
 & "\3248?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\002+\307>\002"
 & "+\307>\004V\216>\000\000\000?\370S\343>\203\300*?\370S\343>\370S\343>\002"
 & "+\307>\315\314\314>\315\314\214>\315\314\314>\372~\n?\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\004V\216>\372~\252>\372~\252>\372~"
 & "\252>\372~\252>\372~\252>\372~\252>\372~\252>\372~\252>\000\000\000\000"
 & "\372~\252>\372~\252>\000\000\000\000\372~\252>\372~\252>\372~\252>\000\000"
 & "\000\000\002+\307>\000\000\000?\000\000\000?\000\000\000?\000\000\000?\315"
 & "\314\214>\000\000\000?\372~\252>\\\217B?\337O\215>\000\000\000?\315\314"
 & ",?\372~\252>\\\217B?\372~\252>\315\314\314>\315\314,?\232\231\231>\232\231"
 & "\231>\372~\252>\000\000\000?T\343\005?\000\000\200>\372~\252>\232\231\231"
 & ">R\270\236>\000\000\000?\000\000@?\000\000@?\000\000@?\000\000\000?\177"
 & "j\034?\177j\034?\177j\034?\177j\034?\177j\034?\177j\034?\201\225c?\203\300"
 & "*?\177j\034?\177j\034?\177j\034?\177j\034?\372~\252>\372~\252>\372~\252"
 & ">\372~\252>\376\3248?\203\300*?\376\3248?\376\3248?\376\3248?\376\3248?"
 & "\376\3248?\315\314,?\376\3248?\376\3248?\376\3248?\376\3248?\376\3248?\004"
 & "V\016?\177j\034?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000"
 & "\000\000?\000\000\000?\000\000\000?\203\300*?\370S\343>\370S\343>\370S\343"
 & ">\370S\343>\370S\343>\004V\216>\004V\216>\004V\216>\004V\216>\000\000\000"
 & "?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000"
 & "\000?\315\314,?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000"
 & "\000\000?\370S\343>\000\000\000?\370S\343>00000000000000000000000000000"
 & "00005\001\nw\276\037=\276\237\232>\203\300*?X94\2745\001\n\274t\023>\033"
 & "/\335>\372~*?P\215\327>5\001\no\022\003;q=\n?V\016-?\000\000\000\0005\001"
 & "\n\266\363\375<\311v\376>\321\";?\242E\266\2755\001\n\301\312\241=q=J?V"
 & "\016-?\364\375T\2745\001\n\343\245\233=\207\0269?\372~*?\274t\223\2745\001"
 & "\n\276\237\032>\341z\224>\372~*?d;\337>5\001\n1\010,=\256G\241>\226C+?\020"
 & "X9\2765\001\no\022\203<\317\367\223>\226C+?\354Q8\2765\001\no\022\003>m"
 & "\347\373>\372~*?\\\217\202>5\001\n\305 \260==\n\027?7\211\001?\000\000\000"
 & "\0005\001\no\022\203\273q=\n>\027\331\316=\223\030\004\2765\001\n\305 \260"
 & "==\n\027?\230n\222>\256Ga>5\001\n\033/\335<\337O\r>\315\314\314=X94\274"
 & "5\001\n\270\036\205\275\313\241\305>\372~*?\274t\223\2745\001\no\022\003"
 & "=\311v\376>V\016-?B`\345\2735\001\n9\264H=sh\321>V\016-?\000\000\000\000"
 & "5\001\n\246\233D<\213l\347>V\016-?\000\000\000\0005\001\n\217\302u<{\024"
 & "\356>V\016-?B`\345\2735\001\no\022\203:}?\365>V\016-?\000\000\000\0005\001"
 & "\n\217\302u<Zd\373>\372~*?B`\345\2735\001\n\217\302\365<B`\005?\262\235"
 & "/?B`\345\2735\001\n\232\231\231=\325x\t?\372~*?o\022\003\2745\001\n\217"
 & "\302\365<\177j\374>V\016-?B`\345\2735\001\n\177j\274<m\347\373>V\016-?\226"
 & "C\213\2745\001\n\315\314L=\313\241\205>\301\312\341>X94\2745\001\n\033/"
 & "\335<\313\241\205>\301\312\341>\223\030\004\2765\001\n1\010\254=P\215\027"
 & "?\201\225\003?o\022\003\2745\001\n\305 \260==\n\027?\313\241\305>\217\302"
 & "\365=5\001\n1\010\254=P\215\027?\201\225\003?o\022\003\2745\001\n\002+\007"
 & ">\374\251\361>\347\373)?\246\233D\2745\001\n\374\251\361=\004VN?\372~*?"
 & "\274t\223\2745\001\n`\345P\275Nb\020?\f\002+?\000\000\000\0005\001\no\022"
 & "\003\274+\207\026?\002+\'?\000\000\000\0005\001\n\002+\207=Nb0?\372~*?\274"
 & "t\223\2745\001\no\022\003\274333?\002+\'?\000\000\000\0005\001\no\022\203"
 & "\272\323M\"?\002+\'?\000\000\000\0005\001\no\022\003<\270\036%?\002+\'";

CONST E1_23 =
   "?\000\000\000\0005\001\n\364\375T=\376\3248?\372~*?\274t\223\2745\001\n"
 & "o\022\003\274\035ZD?\002+\'?\000\000\000\0005\001\no\022\003\274\246\233"
 & "\304>\002+\'?\000\000\000\0005\001\n\246\233\304\273Zd\373>\002+\'?\274"
 & "t\223\2745\001\nB`\345;\376\3248?\002+\'?\000\000\000\0005\001\no\022\003"
 & "\274\240\032\017?\002+\'?\000\000\000\0005\001\n\274t\223\274\356|_?\002"
 & "+\'?\000\000\000\0005\001\n\n\327\243\274\254\034:?\002+\'?\217\302u\274"
 & "5\001\n\217\302u=\252\3612?\372~*?\274t\223\2745\001\n\000\000\000\000H"
 & "\341\032?\002+\'?\000\000\000\0005\001\n\374\251q=\252\3612?\372~*?5^:\276"
 & "5\001\n\364\375T\274+\207\026?\002+\'?\000\000\000\0005\001\n\226C\213<"
 & "J\f\002?\203\300*?\274t\223\2745\001\n\374\251q=J\f\"?\002+\'?\000\000\000"
 & "\0005\001\n`\345\320=\n\327C?\002+\'?\274t\223\2745\001\n\343\245\233=\305"
 & " 0?\002+\'?\274t\223\2745\001\nsh\221=\236\357g?\002+\'?\274t\223\2745\001"
 & "\nh\221\355\274\024\256\'?\002+\'?\000\000\000\0005\001\nw\276\237=J\f\""
 & "?\002+\'?\000\000\000\0005\001\n\246\233\304\273\321\"\033?\002+\'?\000"
 & "\000\000\0005\001\n1\010\254<\'1\310>^\272)?\010\254\034\2765\001\n\236"
 & "\357\'\275\370S\243>\372~*?\274t\223\2745\001\n\246\233D<\201\225\303>^"
 & "\272)?\010\254\034\2765\001\n\000\000\000\000b\020\330>\372~*?\254\034\232"
 & ">5\001\n\000\000\000\000\000\000\000?\232\231\231\275\000\000\000\2765\001"
 & "\n\240\032/>R\270\236>\372~*?d;\337>5\001\n\226C\213<F\266\363>\301\312"
 & "\341>X94\2745\001\n\177j\274<\016-\362>\027\331.?X94\2745\001\n\217\302"
 & "\365<\232\231\331>\301\312\341>X94\2745\001\n\217\302u<y\351\006?\027\331"
 & ".?\364\375T\2745\001\n\266\363\375<\252\361\322>\301\312\341>X94\2745\001"
 & "\n+\207\026\276\207\026\331>h\221-?\317\367S\2765\001\no\022\003<\374\251"
 & "\361>\301\312\341>\252\361R\2765\001\n\343\245\233<j\274\364>\027\331.?"
 & "\274t\023\2745\001\n9\264H=\002+\207>\213l\'?X94\2745\001\n\266\363\375"
 & "\275\337O\215>\213l\'?\317\367S\2765\001\nB`e<1\010\354>\027\331.?X94\274"
 & "5\001\n\236\357\'=\027\331\216>\027\331.?X94\2745\001\n\246\233D<X94?\301"
 & "\312\341>\274t\023\2745\001\nB`e<!\260\362>\301\312\341>\274t\023\2745\001"
 & "\n\033/\335<\262\235\357>\301\312\341>X94\2745\001\n\232\231\231\275\305"
 & " \360>\301\312\341>\205\353Q\2765\001\n\315\314\314<\307K\367>\301\312\341"
 & ">\031\004V\2765\001\n\354Q8=\252\361\322>\301\312\341>\000\000\000\0005"
 & "\001\no\022\203<Zd\273>\323M\342>\364\375T\2745\001\nP\215\027=P\215\227"
 & ">\250\306\013?X94\2745\001\n1\010,=33\363>\301\312\341>X94\2745\001\n1\010"
 & "\254<\254\034\332>\301\312\341>\274t\223\2745\001\no\022\203<T\343%?\301"
 & "\312\341>\274t\223\2745\001\n\033/\335\274/\335\344>\301\312\341>X94\274"
 & "5\001\n\246\233\304\274\254\034\332>\301\312\341>\252\361R\2765\001\no\022"
 & "\003\273\\\217\302>\321\"\333>T\343\245\2755\001\n`\345P=Nb\320>;\337/?"
 & "}?5\2765\001\n=\n\327=\240\032/>\372~*?\274t\223\2745\001\nB`\345\273!\260"
 & "\262>;\337/?}?5\2765\001\n\n\327#=\022\203\000?B`\245>Zd;>0000000000000"
 & "00005\001\n9\264H=\327\243p>\301\312\341>X94\2745\001\n\331\316\367=d;\237"
 & ">\347\373)?m\347\373>5\001\n\354Q8>\004V\316>\347\373)?\221\355\374>5\001"
 & "\n5^\272=\270\036\305>L7)?m\347\373>5\001\n\315\314\314=\276\237\332>w\276"
 & "\037?\035Z\004?5\001\n\203\300\312=\230n\322>}?\025?\'1\010?5\001\n\262"
 & "\235\357=\031\004\326>ff&?m\347\373>5\001\n\317\367S>\366(\234>\321\"\033"
 & "?J\f\002?5\001\n\321\"\333=)\\\317>\321\"\033?J\f\002?05\001\nR\270\036"
 & ">\217\302\265>`\3450?m\347\373>5\001\n\217\302\365\2745^:>\000\000\000\000"
 & "?5^\27605\001\n\311v\276=\376\324\370>\347\373)?\221\355\374>5\001\n\n\327"
 & "\243\274\315\314L>\n\327#=V\016-\2765\001\n\331\316\367=\254\034\332>L7"
 & ")?m\347\373>05\001\n\374\251q=/\335\244>\016-\362>\205\353Q\2765\001\n-"
 & "\262\235=\374\251\361>)\\\017?\230n\022\2765\001\n\n\327#<\035Z\004?\037"
 & "\205+?\246\233\304\2735\001\nX9\264\274\313\241\005?\376\324\030?\207\026"
 & "Y=5\001\n\033/\335<5^\032?\002+\'?\000\000\000\0005\001\n=\n\327=\240\032"
 & "/>\372~*?\274t\223\2745\001\n\207\026Y=1\010\354>\372~*?T\343%\2761a\007"
 & "\000\0005\001\n\236\357\'=b\0208?\372~*?\274t\223\2745\001\n1\010,=X9\264"
 & ">V\016-?;\337\317>5\001\n\207\026Y=\n\327\343>\004V\316>P\215\027=5\001"
 & "\n\305 \260==\n\027?\313\241\305>\033/\335=5\001\n9\264H=Nb\220>\\\217\202"
 & ">\246\233D>5\001\n\236\357\'=b\0208?\372~*?\274t\223\2741^\007\000\0005"
 & "\001\n\027\331\316=\335$\306>V\016-?\024\256\307>5\001\n\305 \260==\n\027"
 & "?7\211\001?\000\000\000\0005\001\n\002+\007=T\343\245>V\016-?\203\300\212"
 & ">5\001\n\305 0=h\221\255>V\016-?L7\211>1[\007\000\0005\001\n\217\302\365"
 & "\274\311v\376>\321\"\333>\031\004V\2765\001\n\256Ga=-\262\035?\002+\'?m"
 & "\347\373\2755\001\n)\\\217=\020X9>R\270\236>\250\306K>1c\007\000\0005\001"
 & "\n\305 0=sh\221>V\016-?\203\300\212>5\001\nL7\211=\020X\271>V\016-?;\337"
 & "\317>5\001\n\256Ga=/\335\344>\004V\316>P\215\027=5\001\n\002+\007=\177j"
 & "<?V\016-?\n\327#\2745\001\n\226C\013=w\276??V\016-?\n\327#\2745\001\n\177"
 & "j\274<\177j<?V\016-?\n\327#\2745\001\nB`\345<\177j\274>\351&\361>\205\353"
 & "Q\2765\001\n`\345P\275Nb\020?\211A`?\000\000\000\0005\001\n`\345P\275Nb"
 & "\020?\211A`?\000\000\000\0005\001\n`\345P\275Nb\020?\356|_?\000\000\000"
 & "\0005\001\n`\345P\275`\345\020?\031\004V?\000\000\000\0005\001\n`\345P\275"
 & "Nb\020?shQ?\000\000\000\0005\001\n`\345P\275Nb\020?J\fb?\000\000";

CONST E1_24 =
   "\000\0005\001\n\033/\335\274L7i?\002+\'?\000\000\000\0005\001\n\002+\207"
 & "=Nb0?\372~*??5^\2765\001\no\022\203\272\323M\"?\211A`?\000\000\000\0005"
 & "\001\no\022\203\272\323M\"?\211A`?\000\000\000\0005\001\no\022\203\272\323"
 & "M\"?\356|_?\000\000\000\0005\001\no\022\203\272\323M\"?shQ?\000\000\000"
 & "\0005\001\no\022\003\274\246\233\304>\211A`?\000\000\000\0005\001\no\022"
 & "\003\274\274t\323>\211A`?\000\000\000\0005\001\no\022\003\274\232\231\331"
 & ">\356|_?\000\000\000\0005\001\no\022\003\274R\270\336>shQ?\000\000\000\000"
 & "5\001\no\022\003\274333?\002+\'?\000\000\000\0005\001\n\n\327\243\274\254"
 & "\034:?\031\004V?\217\302u\2745\001\n\217\302u=\252\3612?\211A`?\274t\223"
 & "\2745\001\n\217\302u=\252\3612?\211A`?\274t\223\2745\001\n\217\302u=\252"
 & "\3612?\356|_?\274t\223\2745\001\n\217\302u=\252\3612?\031\004V?\274t\223"
 & "\2745\001\n\217\302u=\252\3612?shQ?\274t\223\2745\001\n\311v\276=\364\375"
 & "\024?\311v\376>o\022\003<5\001\n\217\302u=\252\3612?\376\3248?=\n\327\275"
 & "5\001\n`\345\320=\n\327C?\211A`?\274t\223\2745\001\n`\345\320=\n\327C?\211"
 & "A`?\274t\223\2745\001\n`\345\320=\n\327C?\356|_?\274t\223\2745\001\n`\345"
 & "\320=\n\327C?shQ?\274t\223\2745\001\nw\276\237=J\f\"?\211A`?\000\000\000"
 & "\0005\001\n\000\000\000\000\374\251\021?\002+\'?\000\000\000\0005\001\n"
 & "1\010,\276\177j\374>\362\322-?\317\367S\2765\001\n\226C\213<F\266\363>\347"
 & "\373)?X94\2745\001\n\226C\213<\020X\371>\347\373)?X94\2745\001\n\226C\213"
 & "<F\266\363>L7)?X94\2745\001\n\226C\213<\345\320\002?w\276\037?X94\2745\001"
 & "\n\226C\213<5^\372>\321\"\033?X94\2745\001\n\226C\213<F\266\363>`\3450?"
 & "X94\2745\001\n\177j\274<\n\327#?\301\312\341>X94\2745\001\n\364\375\324"
 & "<\232\231\331>\301\312\341>?5^\2765\001\n\266\363\375<\252\361\322>\347"
 & "\373)?X94\2745\001\n\266\363\375<\f\002\353>\347\373)?X94\2745\001\n\266"
 & "\363\375<\301\312\341>L7)?X94\2745\001\n\266\363\375<y\351\346>\321\"\033"
 & "?X94\2745\001\n9\264H=sh\221>\347\373)?X94\2745\001\n9\264H=\242E\266>\347"
 & "\373)?X94\2745\001\n\226C\013=\236\357\247>L7)?X94\2745\001\n9\264H=j\274"
 & "\264>\321\"\033?X94\2745\001\n\033/\335<\264\310\366>\027\331.?X94\2745"
 & "\001\nB`e<F\266\363>w\276\037?\274t\023\2745\001\n\033/\335<\262\235\357"
 & ">\347\373)?X94\2745\001\n\033/\335<\020X\371>\347\373)?X94\2745\001\n\033"
 & "/\335<\262\235\357>L7)?X94\2745\001\n\033/\335<\266\363\375>w\276\037?X"
 & "94\2745\001\n\033/\335<5^\372>\321\"\033?X94\2745\001\n\305 \260==\n\027"
 & "?\035Z\004?X94\2745\001\nB`\345<\305 \360>\362\322\r?q=\n\2765\001\n1\010"
 & ",=33\363>\347\373)?X94\2745\001\n1\010,=X9\364>\347\373)?X94\2745\001\n"
 & "1\010,=33\363>L7)?X94\2745\001\n1\010,=}?\365>\321\"\033?X94\2745\001\n"
 & "\246\233\304\274\f\002\353>\347\373)?\252\361R\2765\001\n\232\231\231\275"
 & "\305 \360>\027\331.?\205\353Q\2765\001\n\246\233\304\274\301\312\341>\321"
 & "\"\033?\252\361R\2760005\001\0051)\000\000\0005\001\t\213l\347\275w\276"
 & "??V\016M?\000\000\200\276\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\001\001\001\001\001\001\001\001\001\000\001\001"
 & "\000\001\001\001\000\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231";

CONST E1_25 =
   "\031?\000\000\000\000\232\231\031?\232\231\031?\000\000\000\000\232\231"
 & "\031?\232\231\031?\232\231\031?\000\000\000\000\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?0000000000000000000000000000000005\001\n"
 & "\027\331N>\250\306\313>\230n\022?\217\302u\2745\001\nq=\n>{\024\356>;\337"
 & "\017?\362\322\215>5\001\nB`e=\226C\013?\360\247&?\354Q8\2755\001\n\236\357"
 & "\247=/\335\004?\372~*?%\006\001\2765\001\n\n\327\243;\354Q\030?-\262\035"
 & "?\217\302u\2745\001\n\274t\023=\250\306\013?\f\002\013?\217\302u\2745\001"
 & "\n\240\032/>u\223\330>;\337\017?\362\322\215>5\001\n\211A`>1\010\354>-\262"
 & "\035?`\345\320\2755\001\n\004V\016>o\022\303>-\262\035?`\345\320\2755\001"
 & "\n5^\272=\323M\002?#\333\031?\211A`>5\001\nsh\221=\213l\007?j\274\364>w"
 & "\276\037=5\001\nm\347\373=L7\311>\016-2>\370S\343\2755\001\nsh\221=\213"
 & "l\007?\211A\240>;\337O>5\001\n\246\233D>`\345\320>\240\032/>\217\302u\274"
 & "5\001\n9\264\310=\022\203\000?\211A ?-\262\235\2755\001\n\016-\262=\370"
 & "S\003?-\262\035?\217\302u\2745\001\nT\343\245=\347\373\t?-\262\035?\000"
 & "\000\000\0005\001\n#\333y=\356|\377>-\262\035?\000\000\000\0005\001\n%\006"
 & "\201=\211A\000?-\262\035?\217\302u\2745\001\n\207\026Y=\301\312\001?-\262"
 & "\035?\000\000\000\0005\001\n)\\\217=B`\005?#\333\031?\217\302u\2745\001"
 & "\n\354Q\270=B`\005?-\262\035?\217\302u\2745\001\n\256Ga=\221\355\374>#\333"
 & "\031?\000\000\000\0005\001\n\347\373\251=\035Z\004?-\262\035?\217\302u\274"
 & "5\001\n\301\312\241=\\\217\002?-\262\035?\217\302u\2745\001\n\201\225C>"
 & "Nb\320>\232\231\331>\217\302u\2745\001\nm\347\373=`\345\320>\232\231\331"
 & ">\370S\343\2755\001\n\002+\207=T\343\005?\211A\000?\217\302u<5\001\nsh\221"
 & "=\213l\007?\250\306\313>\374\251\361=5\001\n-\262\235=9\264\010?\211A\000"
 & "?\217\302u<5\001\n9\264\310=\211A\000?\341z\024?B`e\2745\001\no\022\203"
 & "<\006\201\025?-\262\035?\217\302u\2745\001\n\274t\023\274m\347\033?;\337"
 & "\017?\000\000\000\0005\001\n\217\302\365<!\260\022?;\337\017?\000\000\000"
 & "\0005\001\nX9\264<)\\\017?\341z\024?\274t\223\2745\001\n\217\302\365<b\020"
 & "\030?;\337\017?\000\000\000\0005\001\n\315\314\314<)\\\017?;\337\017?\000"
 & "\000\000\0005\001\nw\276\037=\205\353\021?;\337\017?\000\000\000\0005\001"
 & "\nX9\264<b\020\030?\341z\024?\274t\223\2745\001\n\n\327\243<\341z\024?;"
 & "\337\017?\000\000\000\0005\001\n-\262\235=T\343\005?;\337\017?\000\000\000"
 & "\0005\001\nP\215\027=#\333\031?;\337\017?\274t\223\2745\001\n1\010\254<"
 & "\020X\031?;\337\017?\000\000\000\0005\001\nw\276\037=\317\367\023?;\337"
 & "\017?\000\000\000\0005\001\no\022\003\273\254\034\032?;\337\017?\000\000"
 & "\000\0005\001\no\022\003<\366(\034?;\337\017?\246\233D\2745\001\nX9\264"
 & "<\317\367\023?\341z\024?\274t\223\2745\001\n\246\233D=\240\032\017?;\337"
 & "\017?\000\000\000\0005\001\no\022\003=\317\367\023?\341z\024?\337O\r\276"
 & "5\001\n\246\233\304<\020X\031?;\337\017?\000\000\000\0005\001\n\022\203"
 & "@=h\221\r?\364\375\024?X9\264\2745\001\n1\010\254<X9\024?;\337\017?\000"
 & "\000\000\0005\001\no\022\203;u\223\030?;\337\017?\274t\223\2745\001\n\364"
 & "\375T\274\221\355\034?;\337\017?\000\000\000\0005\001\n\274t\223\274?5\036"
 & "?;\337\017?\000\000\000\0005\001\n\246\233D<+\207\026?;\337\017?\000\000"
 & "\000\0005\001\n\246\233D<\264\310\026?;\337\017?\000\000\000\0005\001\n"
 & "\266\363}=\347\373\t?;\337\017?\000\000\000\0005\001\nH\341z>33\363>-\262"
 & "\035?`\345\320\2755\001\n\203\300\312=\234\304\000?\211A ?-\262\235\275"
 & "5\001\n\000\000\000>\217\302\265>-\262\035?`\345\320\2755\001\n\033/\335"
 & "=m\347\373>-\262\035?\000\000\200>5\001\n\000\000\000\000\232\231\031?\232"
 & "\231\231\275\000\000\000\2765\001\n\242E6>\321\"\333>;\337\017?\362\322"
 & "\215>5\001\n)\\\017=\205\353\021?\260r\350>\217\302u\2745\001\n\000\000"
 & "\000\000\006\201\025?\211A ?\217\302u\2745\001\n\n\327#=\037\205\013?\f"
 & "\002\353>\217\302u\2745\001\n\n\327\243<\307K\027?\211A ?\217\302u\2745"
 & "\001\n\n\327#=\305 \020?\260r\350>\217\302u\2745\001\n\347\373\251=1\010"
 & "\f?\211A ?\000\000\000\0005\001\n\217\302\365<\341z\024?\260r\350>\006\201"
 & "\025\2765\001\n\n\327\243;P\215\027?\211A ?\000\000\000\0005\001\n-\262"
 & "\235=T\343\005?\260r(?\000\000\000\0005\001\n%\006\201=\256G\341>\260r("
 & "?\006\201\025\2765\001\n\n\327\243<\217\302\025?\211A ?\000\000\000\000"
 & "5\001\n-\262\235=T\343\005?\211A ?\000\000\000\0005\001\nX9\264\274\211"
 & "A ?\260r\350>\000\000\000\0005\001\n\274t\223<P\215\027?\260r\350>\000\000"
 & "\000\0005\001\n\217\302\365<\205\353\021?\260r\350>\217\302u\2745\001\n"
 & "o\022\203\272\205\353\021?\260r\350>sh\021\2765\001\n\n\327\243<\307K\027"
 & "?\260r\350>sh\021\2765\001\n\022\203@=\341z\024?\260r\350";

CONST E1_26 =
   ">\000\000\000\0005\001\n\226C\213=\303\365\010?\f\002\353>\226C\213\274"
 & "5\001\n\022\203@=\'1\010?;\337\017?\217\302u\2745\001\no\022\203\272\374"
 & "\251\021?\234\304\340>\217\302u\2745\001\no\022\203\272#\333\031?\234\304"
 & "\340>\000\000\000\0005\001\n\274t\223\274?5\036?\234\304\340>\000\000\000"
 & "\0005\001\n\246\233\304;b\020\030?\234\304\340>\000\000\000\0005\001\no"
 & "\022\203\273#\333\031?\234\304\340>sh\021\2765\001\nT\343\245=\270\036\005"
 & "?\234\304\340>\000\000\000\0005\001\n\n\327#>h\221\355>-\262\035?`\345\320"
 & "\2755\001\n\\\217\202>\327\243\260>\000\000@?\000\000\200\2765\001\n\226"
 & "C\013>\256G\341>-\262\035?`\345\320\2755\001\nsh\221=\024\256\007?\242E"
 & "\266>\010\254\034>000000000000000005\001\n-\262\235=T\343\005?\234\304\340"
 & ">\000\000\000\0005\001\n\002+\007>q=\312>L7)?J\f\002?5\001\n\205\353Q>\262"
 & "\235\357>L7)?J\f\002?5\001\n\252\361\322=\311v\376>\'1(?\307K\367>5\001"
 & "\n\242E\266=o\022\003?\345\320\"?\177j\374>5\001\nX9\264=o\022\003?\217"
 & "\302\025?\256G\001?5\001\n\347\373\251=\035Z\004?7\211!?\262\235\357>5\001"
 & "\n\037\205k>\244p\275>\000\000 ?\354Q\370>5\001\no\022\003>\374\251\361"
 & ">\000\000 ?\354Q\370>05\001\n\203\300J>\362\322\315>h\221-?\242E\366>5\001"
 & "\n\205\353Q>\335$\306>\000\000\000\000\252\361R\27605\001\n\226C\213=+\207"
 & "\026?L7)?#\333\371>5\001\nV\016->m\347\273>\000\000\000\000\250\306K\276"
 & "5\001\n\252\361\322=\311v\376>\203\300*?\177j\374>05\001\n\027\331N>\250"
 & "\306\313>T\343\345>\006\201\025\2765\001\n\002+\207=\246\233\004?\033/\035"
 & "?9\264H\2755\001\n\274t\223=\027\331\016?\177j\034?B`\345\2745\001\n\033"
 & "/]=\250\306\013?\035Z\004?9\264H=5\001\n\n\327#<=\n\027?;\337\017?\000\000"
 & "\000\0005\001\n\\\217\202>\327\243\260>\315\314,?333\2765\001\n\347\373"
 & "\251=\035Z\004?\341z\024?)\\\217\2751*\010\000\0005\001\n\000\000\000\000"
 & "\232\231\031?\341z\024?\274t\223\2745\001\n+\207\026>\236\357\347>\341z"
 & "\024?9\264H>5\001\no\022\003<h\221\r?\035Z\344>)\\\217=5\001\nsh\221=\213"
 & "l\007?\274t\323>\252\361\322=5\001\n\315\314\314=\000\000\000?\211A\240"
 & ">;\337O>5\001\n\000\000\000\000\232\231\031?\341z\024?\274t\223\2741\'\010"
 & "\000\0005\001\n\305 \260=!\260\362>-\262\035?\376\324x>5\001\nsh\221=\213"
 & "l\007?\n\327\003?\246\233\304<5\001\n\230n\022>d;\337>-\262\035?\037\205"
 & "k>5\001\n\337O\r>-\262\335>-\262\035?\370Sc>1$\010\000\0005\001\no\022\203"
 & "\272\374\251\021?\234\304\340>sh\021\2765\001\n\246\233\304;\274t\023?\341"
 & "z\024?)\\\217\2755\001\n9\264H>\027\331\316>F\266\263>\303\365(>1,\010\000"
 & "\0005\001\n\010\254\034>/\335\344>-\262\035?\037\205k>5\001\n+\207\026>"
 & "\236\357\347>\341z\024?9\264H>5\001\n\022\203@=P\215\027?\035Z\344>)\\\217"
 & "=5\001\nB`e\275\236\357\'?L7)?\217\302u\2755\001\n\022\203@\275T\343%?L"
 & "7)?\217\302u\2755\001\n\022\203@\275T\343%?L7)?\217\302u\2755\001\n\203"
 & "\300\312=\022\203\000?T\343\345>\006\201\025\2765\001\n\274t\023\274m\347"
 & "\033?9\264H?\000\000\000\0005\001\n\274t\023\274m\347\033?9\264H?\000\000"
 & "\000\0005\001\n\274t\023\274m\347\033?\024\256G?\000\000\000\0005\001\n"
 & "\274t\023\274m\347\033?\323MB?\000\000\000\0005\001\n\274t\023\274m\347"
 & "\033?\356|??\000\000\000\0005\001\n\274t\023\274m\347\033?V\016M?\000\000"
 & "\000\0005\001\nh\221\355\274\254\034\032?;\337\017?\000\000\000\0005\001"
 & "\nX9\264<)\\\017?\341z\024?\252\361R\2765\001\n\315\314\314<)\\\017?9\264"
 & "H?\000\000\000\0005\001\n\315\314\314<)\\\017?9\264H?\000\000\000\0005\001"
 & "\n\315\314\314<)\\\017?\024\256G?\000\000\000\0005\001\n\315\314\314<)\\"
 & "\017?\356|??\000\000\000\0005\001\n-\262\235=T\343\005?9\264H?\000\000\000"
 & "\0005\001\n-\262\235=T\343\005?9\264H?\000\000\000\0005\001\n-\262\235="
 & "T\343\005?\024\256G?\000\000\000\0005\001\n-\262\235=T\343\005?\356|??\000"
 & "\000\000\0005\001\n\217\302\365<b\020\030?;\337\017?\000\000\000\0005\001"
 & "\no\022\003<\366(\034?\323MB?\246\233D\2745\001\nX9\264<\317\367\023?9\264"
 & "H?\274t\223\2745\001\nX9\264<\317\367\023?9\264H?\274t\223\2745\001\nX9"
 & "\264<\317\367\023?\024\256G?\274t\223\2745\001\nX9\264<\317\367\023?\323"
 & "MB?\274t\223\2745\001\nX9\264<\317\367\023?\356|??\274t\223\2745\001\nT"
 & "\343\245=\270\036\005?j\274\364>w\276\037=5\001\nX9\264<\317\367\023?\006"
 & "\201\025?X9\264\2745\001\no\022\203;u\223\030?9\264H?\274t\223\2745\001"
 & "\no\022\203;u\223\030?9\264H?\274t\223\2745\001\no\022\203;u\223\030?\024"
 & "\256G?\274t\223\2745\001\no\022\203;u\223\030?\356|??\274t\223\2745\001"
 & "\n\246\233D<\264\310\026?9\264H?\000\000\000\0005\001\n\246\233D=\215\227"
 & "\016?;\337\017?\000\000\000\0005\001\nX9\264<u\223\030?\211A ?\217\302u"
 & "\2745\001\n)\\\017=\205\353\021?L7)?\217\302u\2745\001\n)\\\017=\205\353"
 & "\021?L7)?\217\302u\2745\001\n)\\\017=\205\353\021?\'1(?\217\302u\2745\001"
 & "\n)\\\017=\205\353\021?\345\320\"?\217\302u\2745\001\n)\\\017=\205\353\021"
 & "?\000\000 ?\217\302u\2745\001\n)\\\017=\205\353\021?h\221-?\217\302u\274"
 & "5\001\no\022\203\273#\333\031?\260r\350>\217\302u\2745\001\n\n\327#=\037"
 & "\205\013?\f\002\353>\252\361R\2765\001\n\n\327#=\305 \020?L7)?\217\302u"
 & "\2745\001\n\n\327#=\305 \020?L7)?\217\302u\2745\001\n\n\327#=\305 \020?"
 & "\'1(?\217\302u\2745\001\n\n\327#=\305 \020?\000\000 ?\217\302u\2745\001"
 & "\n-\262\235=T\343\005?L7)?\000\000\000\0005\001\n-\262\235=T\343\005?L7"
 & ")?\000\000\000\0005\001\n%\006\201=T\343\005?\'1(?\000\000\000\0005\001"
 & "\n-\262\235=T\343\005?\000\000 ?\000\000\000\0005\001\nh\221m=\f\002\013"
 & "?\211A ?\033/\335\2745\001\n\274t\223<P\215\027?\345\320\"?\000\000";

CONST E1_27 =
   "\000\0005\001\n\217\302\365<\205\353\021?L7)?\217\302u\2745\001\n\217\302"
 & "\365<\205\353\021?L7)?\217\302u\2745\001\n\217\302\365<\205\353\021?\'1"
 & "(?\217\302u\2745\001\n\217\302\365<\205\353\021?\345\320\"?\217\302u\274"
 & "5\001\n\217\302\365<\205\353\021?\000\000 ?\217\302u\2745\001\nsh\221=\213"
 & "l\007?\000\000\000?o\022\203<5\001\n\217\302\365<\205\353\021?V\016\355"
 & ">\246\233\304\2745\001\no\022\203\272\374\251\021?L7)?\217\302u\2745\001"
 & "\no\022\203\272\374\251\021?L7)?\217\302u\2745\001\no\022\203\272\374\251"
 & "\021?\'1(?\217\302u\2745\001\no\022\203\272\374\251\021?\000\000 ?\217\302"
 & "u\2745\001\no\022\203\273#\333\031?L7)?sh\021\2765\001\nB`e\274\205\353"
 & "\021?\211A ?sh\021\2765\001\no\022\203\273#\333\031?\000\000 ?sh\021\276"
 & "5\001\0051s\000\000\0005\001\t\016-2\276\215\227\216?\242Ev?\325xi\276\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001"
 & "\001\001\001\001\001\001\001\001\000\001\001\000\001\001\001\000\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\004V\216>\372~\252>!\260\362>\004V\016?\004V\016?\201"
 & "\225c?\376\3248?\004V\216>\372~\252>\372~\252>\002+\307>\006\201\025?\004"
 & "V\216>\006\201\025?\004V\216>\004V\216>\004V\016?\004V\016?\004V\016?\004"
 & "V\016?\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\372~"
 & "\252>\372~\252>\006\201\025?\006\201\025?\006\201\025?\177j\034?\232\231"
 & "y?\376\3248?\376\3248?\376\3248?\376\3248?\203\300*?\177j\034?\002+G?\376"
 & "\3248?\004V\216>\004V\016?\376\3248?\177j\034?}?U?\376\3248?\002+G?\203"
 & "\300*?\002+G?\376\3248?\203\300*?\177j\034?\376\3248?\203\300*?\374\251"
 & "q?\203\300*?\203\300*?\177j\034?\372~\252>\004V\216>\372~\252>\006\201\025"
 & "?\004V\016?\004V\216>\004V\016?\177j\034?\004V\016?\177j\034?\004V\016?"
 & "\372~\252>\177j\034?\177j\034?\004V\216>\004V\216>\004V\016?\004V\216>\201"
 & "\225c?\177j\034?\177j\034?\177j\034?\177j\034?\002+\307>\004V\016?\372~"
 & "\252>\177j\034?\004V\016?\002+G?\004V\016?\004V\016?\000\000\000?\002+\307"
 & ">)\\\217>\002+\307>\006\201\025?\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\004V\216>\372~\252>\372~\252>\372~\252>\372~\252>\372~"
 & "\252>\372~\252>\372~\252>\372~\252>\000\000\000\000\372~\252>\372~\252>"
 & "\000\000\000\000\372~\252>\372~\252>\372~\252>\000\000\000\000\372~\252"
 & ">\004V\016?\004V\016?\004V\016?\004V\016?)\\\217>\004V\016?\372~\252>\010"
 & "\254<?\244p\275>\004V\016?\006\201\025?\372~\252>\010\254<?\372~\252>\315"
 & "\314\314>\006\201\025?\372~\252>\372~\252>\372~\252>\177j\034?\004V\016"
 & "?\004V\216>\372~\252>\372~\252>H\341\272>\004V\016?\006\201U?\006\201U?"
 & "\006\201U?\177j\034?\376\3248?\376\3248?\376\3248?\376\3248?\376\3248?\376"
 & "\3248?\000\000\200?\376\3248?\203\300*?\203\300*?\203\300*?\203\300*?\004"
 & "V\216>\004V\216>\004V\216>\004V\216>\376\3248?\376\3248?\002+G?\002+G?\002"
 & "+G?\002+G?\002+G?\006\201\025?\002+G?\376\3248?\376\3248?\376\3248?\376"
 & "\3248?\203\300*?\203\300*?\177j\034?\004V\016?\004V\016?\004V\016?\004V"
 & "\016?\004V\016?\004V\016?\201\225c?\004V\016?\004V\016?\004V\016?\004V\016"
 & "?\004V\016?\004V\216>\004V\216>\004V\216>\004V\216>\177j\034?\177j\034?"
 & "\177j\034?\177j\034?\177j\034?\177j\034?\177j\034?\006\201\025?\177j\034"
 & "?\177j\034?\177j\034?\177j\034?\177j\034?\004V\016?\177j\034?\004V\016?"
 & "0000000000000000000000000000000005\001\n\022\203\300=\226C\313>\331\316"
 & "7?\000\000\000\0005\001\n\313\241E>\213l\007?\331\3167?/\335\344>5\001\n"
 & "\217\302u=/\335$?!\2602?\000\000\000\0005\001\nL7\211=d;\037?ffF?\037\205"
 & "\353\2755\001\n\226C\013>\360\247f?\217\3025?\343\245\233\2745\001\n\242"
 & "E\266=Zd;?\331\3167?\343\245\233\2745\001\n\f\002+>\020X\271>\331\3167?"
 & "\n\327\343>5\001\n\343\245\233=\327\243\360>m\347;?\364\375T\2765\001\n"
 & "\315\314\314\274\221\355\274>m\347;?\364\375T\2765\001\n\006\201\025>\242"
 & "E\366>\331\3167?\335$\306>5\001\n\236\357\247=\366(\034?7\211\001?\000\000"
 & "\000\0005\001\nB`\345<H\341z>\006\201\025>1\010,\2765\001\n\236\357\247"
 & "=\366(\034??5\236>^\272I>5\001\no\022\203=H\341z>\006\201\025>\000\000\000"
 & "\0005\001\nP\215\027\275\262\235\357>\010\254<?\343\245\233\2745\001\n\305"
 & " \260=\266\363\035?\217\3025?\343\245\233\2745\001\n\351&1>\213l\007?\217"
 & "\3025?\000\000\000\0005\001\n\364\375\324<\311v\036?\217\3025?\000\000\000"
 & "\0005\001\n\270\036\205=\343\245\033?\217\3025?\343\245\233\2745\001\n\217"
 & "\302u=\207\026\031?\217\3025?\000\000\000\0005\001\no\022\203=\345\320\""
 & "?!";

CONST E1_28 =
   "\2602?\343\245\233\2745\001\n{\024\256=\311v\036?\217\3025?\343\245\233"
 & "\2745\001\n\000\000\000>V\016-?!\2602?\000\000\000\0005\001\n\337O\215="
 & "-\262\035?\217\3025?\343\245\233\2745\001\nw\276\237=\244p\035?\217\302"
 & "5?\343\245\233\2745\001\n\177j\274=F\266\263>o\022\003?\000\000\000\000"
 & "5\001\nB`e=F\266\263>o\022\003?1\010,\2765\001\n\236\357\247=\024\256\'"
 & "?\201\225\003?o\022\003\2745\001\nh\221m=J\f\"?+\207\326>\016-\262=5\001"
 & "\n\274t\023=m\347\033?\201\225\003?o\022\003\2745\001\n\303\365(>\250\306"
 & "+?\254\034:?\000\000\000\0005\001\n\311v>>X9t?\010\254<?\343\245\233\274"
 & "5\001\n\n\327\243<F\2663?\331\3167?\000\000\000\0005\001\n\343\245\233="
 & "\201\225C?\331\3167?\000\000\000\0005\001\n\321\"\333=\347\373I?\010\254"
 & "<?\343\245\233\2745\001\n\343\245\233=y\351F?\331\3167?\000\000\000\000"
 & "5\001\n\343\245\233=\301\312A?\331\3167?\000\000\000\0005\001\n\343\245"
 & "\233=\244p=?\331\3167?\000\000\000\0005\001\n\033/\335=\351&Q?\010\254<"
 & "?\343\245\233\2745\001\nsh\221=\362\322M?\331\3167?\000\000\000\0005\001"
 & "\no\022\203=m\347\273>\331\3167?\000\000\000\0005\001\n\217\302u=o\022#"
 & "?\331\3167?\274t\223\2745\001\n\016-\262=\343\245[?\331\3167?\000\000\000"
 & "\0005\001\n\343\245\233=\177j\034?\331\3167?\000\000\000\0005\001\n\337"
 & "O\215=\f\002k?\331\3167?\000\000\000\0005\001\n\337O\215=\215\227N?\331"
 & "\3167?\000\000\000\0005\001\n\321\"\333=!\260R?\010\254<?\343\245\233\274"
 & "5\001\n\343\245\233=\221\355<?\331\3167?\000\000\000\0005\001\n\321\"\333"
 & "=!\260R?\010\254<?\364\375T\2755\001\n\343\245\233=\002+G?\331\3167?\000"
 & "\000\000\0005\001\nT\343\245=\331\3167?\010\254<?\343\245\233\2745\001\n"
 & ")\\\017>\211A@?\331\3167?\000\000\000\0005\001\nh\221\355=\362\322M?\331"
 & "\3167?\343\245\233\2745\001\n\305 0>V\016M?\331\3167?\000\000\000\0005\001"
 & "\nV\016->\372~\212?\331\3167?\000\000\000\0005\001\nB`e<\372~J?\331\316"
 & "7?\000\000\000\0005\001\n1\010,>\004VN?\331\3167?\000\000\000\0005\001\n"
 & "\315\314\314<\010\254<?\331\3167?\000\000\000\0005\001\n1\010\254<D\213"
 & "\354>\376\3248?9\264H\2765\001\n\266\363\375=\033/\235>\010\254<?\343\245"
 & "\233\2745\001\n\274t\223\274u\223\330>\376\3248?9\264H\2765\001\n\335$\006"
 & ">\307K\027?!\2602?B`\245>5\001\n\033/\335\274q=\n?\232\231\231\275\000\000"
 & "\000\2765\001\n\303\365(>\376\324\270>\254\034:?\260r\350>5\001\n\256Ga"
 & "=}?\025?\250\306\013?B`e\2745\001\n#\333y=\270\036%?\331\3167?B`e\2745\001"
 & "\n\301\312\241=\020X\031?\250\306\013?B`e\2745\001\n\236\357\247=X94?\331"
 & "\3167?B`e\2745\001\n)\\\217=\331\316\027?\250\306\013?B`e\2745\001\n\016"
 & "-\262=\305 \360>\254\034:?\000\000\000\0005\001\n\343\245\033=\372~*?\250"
 & "\306\013??5^\2765\001\n\270\036\205=%\006!?\331\3167?\000\000\000\0005\001"
 & "\n\337O\215=#\333\271>\232\2319?\000\000\000\0005\001\n1\010,\275#\333\271"
 & ">\232\2319?\321\"[\2765\001\n\337O\215=\037\205+?\331\3167?\000\000\000"
 & "\0005\001\n\337O\215=\020X\271>\331\3167?\000\000\000\0005\001\no\022\203"
 & "=9\264h?\250\306\013?\000\000\000\0005\001\n\270\036\205=%\006!?\250\306"
 & "\013?\000\000\000\0005\001\n\236\357\247=\246\233$?\250\306\013?B`e\274"
 & "5\001\n\274t\223<\270\036%?\250\306\013?\317\367S\2765\001\n\n\327\243="
 & "q=*?\250\306\013?\317\367S\2765\001\no\022\203=5^\372>\250\306\013?\000"
 & "\000\000\0005\001\n%\006\201=\006\201\025?\250\306\013?B`e\2745\001\n\315"
 & "\314\314=b\020\330>V\016-?\246\233\304\2735\001\n9\264\310=\260r(?\'1\010"
 & "?B`e\2745\001\n%\006\001>\236\357\'?\'1\010?\000\000\000\0005\001\nm\347"
 & "\373=\301\312a?\'1\010?\000\000\000\0005\001\n\217\302u<T\343%?\'1\010?"
 & "\000\000\000\0005\001\n1\010,=y\351&?\'1\010?\321\"[\2765\001\n\n\327\243"
 & "<}?\025?\'1\010?\000\000\000\0005\001\n\022\203\300=\246\233\004?\376\324"
 & "8?9\264H\2765\001\n\n\327\243=j\274\264>\010\254<?\343\245\233\2745\001"
 & "\n\274t\223\274Nb\320>\376\3248?9\264H\2765\001\n\037\205\353=F\266\023"
 & "?\262\235\257>y\351&>000000000000000005\001\n\337O\215=/\335\244>\'1\010"
 & "?\000\000\000\0005\001\n\226C\013>j\274\264>\000\000@?\276\237\032?5\001"
 & "\n\374\251q>\n\327\003?\000\000@?\276\237\032?5\001\n\374\251\361=\351&"
 & "\361>\000\000@?\276\237\032?5\001\n\213l\347=\301\312\001?\010\254<?\366"
 & "(\034?5\001\n#\333\371=\307K\367>h\221-?\276\237\032?5\001\nw\276\037>\221"
 & "\355\374>\000\000@?\276\237\032?5\001\n\327\243p>\270\036\305>\276\237:"
 & "?\033/\035?5\001\n\272I\f>\264\310\366>\276\237:?\033/\035?05\001\n\315"
 & "\314L>=\n\327>\360\247F?sh\021?5\001\nP\215\027\275\256Ga>\000\000\000\000"
 & "\325xi\27605\001\n\272I\f>\270\036%?\000\000@?\276\237\032?5\001\n\236\357"
 & "\'=\002+\207>\000\000\000\000\325xi\2765\001\nu\223\030>\022\203\000?\000"
 & "\000@?\276\237\032?05\001\n\315\314L=j\274\264>\'1\010?\311v>\2765\001\n"
 & "\301\312\241=\020X\031?\234\304 ?\374\251\361\2755\001\n\315\314L=\\\217"
 & "\"?\331\3167?o\022\203\2745\001\n\033/\335<{\024.?\345\320\"?\343\245\233"
 & "=5\001\n\217\302u=+\2076?!\2602?\000\000\000\0005\001\n\n\327\243=j\274"
 & "\264>\010\254<?\343\245\233\2745\001\n#\333y=\207\026\031?\254\034:?\177"
 & "j<\2761\363\010\000\0005\001\nB`e=\217\302U?\010\254<?\343\245\233\2745"
 & "\001\n\177j\274={\024\356>\010\254<?\337O\215>5\001\nq=\n>\016-\022?\331"
 & "\316\367>\343\245\233=5\001\n=\n\327=J\f\"?+\207\326>\033/\335=5\001\n\006"
 & "\201\225=J\f\302>\327\243\260>\366(\\>5\001\n\256Ga=\006\201U?\010\254<"
 & "?\343\245\233\2741\360\010\000\0005\001\n333>\240\032\357>\242E6?\254\034"
 & "\332>5\001\n\n\327#=\000\000 ?7\211\001?\000\000\000\0005\001\n\337O\215"
 & "=T\343\345>\217\3025?`\345\220>5\001\n5^\272";

CONST E1_29 =
   "=\301\312\341>\217\3025?\203\300\212>1\355\010\000\0005\001\nX9\264<\260"
 & "r(?\'1\010?\317\367S\2765\001\n9\264\310=\305 0?333?\201\225C\2765\001\n"
 & "\256G\341=\337O\215>\f\002\253>\305 0>1\365\010\000\0005\001\nP\215\027"
 & ">\360\247\306>\217\3025?`\345\220>5\001\n\177j\274=\354Q\370>\010\254<?"
 & "\337O\215>5\001\n\364\375\324=q=\n?\331\316\367>\343\245\233=5\001\n\002"
 & "+\007>\004VN?\217\3025?\343\245\233\2745\001\n\002+\007>\343\245[?\217\302"
 & "5?\343\245\233\2745\001\n\203\300\312=\264\310V?\217\3025?\343\245\233\274"
 & "5\001\n\207\026Y=\240\032\017?\'1\010?\024\256G\2765\001\n\n\327\243<F\266"
 & "3?\262\235o?\000\000\000\0005\001\n\n\327\243<\000\000@?\262\235o?\000\000"
 & "\000\0005\001\n\n\327\243<j\2744?\262\235o?\000\000\000\0005\001\n\n\327"
 & "\243<-\262=?\272Il?\000\000\000\0005\001\n\n\327\243<\307K7?q=j?\000\000"
 & "\000\0005\001\n\n\327\243<F\2663?\242Ev?\000\000\000\0005\001\n\n\327\243"
 & ";\315\314\214?\331\3167?\000\000\000\0005\001\n\321\"\333=\347\373I?\010"
 & "\254<?\325xi\2765\001\n\343\245\233=\301\312A?\262\235o?\000\000\000\000"
 & "5\001\n\343\245\233=\301\312A?\262\235o?\000\000\000\0005\001\n\343\245"
 & "\233=\301\312A?\262\235o?\000\000\000\0005\001\n\343\245\233=\301\312A?"
 & "q=j?\000\000\000\0005\001\no\022\203=m\347\273>\262\235o?\000\000\000\000"
 & "5\001\no\022\203=\002+\007?\262\235o?\000\000\000\0005\001\no\022\203=\331"
 & "\316\367>\262\235o?\000\000\000\0005\001\no\022\203=\221\355\374>q=j?\000"
 & "\000\000\0005\001\n\266\363}=y\351F?\331\3167?\000\000\000\0005\001\n\337"
 & "O\215=\215\227N?\272Il?\000\000\000\0005\001\n\321\"\333=!\260R?\262\235"
 & "o?\343\245\233\2745\001\n\321\"\333=!\260R?\262\235o?\343\245\233\2745\001"
 & "\n\321\"\333=!\260R?\262\235o?\343\245\233\2745\001\n\321\"\333=!\260R?"
 & "\272Il?\343\245\233\2745\001\n\321\"\333=!\260R?q=j?\343\245\233\2745\001"
 & "\n\325xi=\\\217\"?\256G\001?o\022\203:5\001\n)\\\017=/\335d?R\270>?\033"
 & "/\335\2745\001\nh\221\355=\362\322M?\262\235o?\343\245\233\2745\001\nh\221"
 & "\355=\362\322M?\262\235o?\343\245\233\2745\001\nh\221\355=\362\322M?\262"
 & "\235o?\343\245\233\2745\001\nh\221\355=\362\322M?q=j?\343\245\233\2745\001"
 & "\n1\010,>\004VN?\262\235o?\000\000\000\0005\001\n\343\245\233=\307K7?\331"
 & "\3167?\000\000\000\0005\001\n\337O\215=\'1(?\321\";?B`e\2745\001\n\256G"
 & "a=}?\025?\000\000@?B`e\2745\001\n\256Ga=\022\203 ?\000\000@?B`e\2745\001"
 & "\n\256Ga=}?\025?\000\000@?B`e\2745\001\n\256Ga=\311v\036?\010\254<?B`e\274"
 & "5\001\n\256Ga=b\020\030?\276\237:?B`e\2745\001\n\256Ga=}?\025?\360\247F"
 & "?B`e\2745\001\nB`e=\272Il?\250\306\013?B`e\2745\001\n\301\312\241=\020X"
 & "\031?\250\306\013?\325xi\2765\001\n)\\\217=\331\316\027?\000\000@?B`e\274"
 & "5\001\n)\\\217=\022\203 ?\000\000@?B`e\2745\001\n)\\\217=\331\316\027?\000"
 & "\000@?B`e\2745\001\n)\\\217=b\020\030?\276\237:?B`e\2745\001\n\337O\215"
 & "=y\351\246>\000\000@?\000\000\000\0005\001\n\337O\215=#\333\371>\000\000"
 & "@?\000\000\000\0005\001\n\337O\215=\370S\343>\000\000@?\000\000\000\000"
 & "5\001\n\337O\215=\303\365\350>\276\237:?\000\000\000\0005\001\n\236\357"
 & "\247=\037\205+?\010\254<?B`e\2745\001\n\270\036\205=B`%?\010\254<?\000\000"
 & "\000\0005\001\n\236\357\247=\246\233$?\000\000@?B`e\2745\001\n\236\357\247"
 & "=\213l\'?\000\000@?B`e\2745\001\n\236\357\247=\246\233$?\000\000@?B`e\274"
 & "5\001\n\236\357\247=B`%?\010\254<?B`e\2745\001\n\236\357\247=\246\233$?"
 & "\276\237:?B`e\2745\001\n\236\357\247=\366(\034?\272I\f?1\010,\2755\001\n"
 & "X9\264<\274t3?)\\\017?h\221\355\2745\001\n9\264\310=\260r(?\000\000@?B`"
 & "e\2745\001\n9\264\310=\260r(?\000\000@?B`e\2745\001\n9\264\310=\260r(?\000"
 & "\000@?B`e\2745\001\n9\264\310=\260r(?\276\237:?B`e\2745\001\n1\010,=y\351"
 & "&?\000\000@?\321\"[\2765\001\n\274t\223<\270\036%?\331\3167?\364\375T\276"
 & "5\001\n1\010,=y\351&?\276\237:?\321\"[\2765\001\0051\023\000\000\0005\001"
 & "\t\315\314L\276\333\371~?\250\306k?d;_\276\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\001\001\001\001\001\001\001\001"
 & "\001\000\001\001\000\001\001\001\000\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\200>\002+\307>{\024\016?\000\000\000?\000\000\000?}?U?\002+G?\372~\252"
 & ">\372~\252>\372~\252>\000\000\000?\205\353\021?\000\000\200>\321\"\033?"
 & "\000\000\200>\004V\216>\000\000\000?\000\000\000?\000\000\000?\000\000\000"
 & "?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000\000?\000\000"
 & "\000?\372~\252>\372~\252>\205\353\021?\205\353\021?\205\353\021?\000\000"
 & "\000?\364\375T?\203\300*?\203\300*?\203\300*?\376\3248?\203\300*?\203\300"
 & "*?\376\3248?";

CONST E1_30 =
   "\002+G?\002+\307>\000\000\000?\203\300*?\177j\034?\201\225c?\376\3248?\376"
 & "\3248?\177j\034?\376\3248?\203\300*?\004V\016?\177j\034?\376\3248?\203\300"
 & "*?\201\225c?\203\300*?\177j\034?\177j\034?\372~\252>\004V\216>\372~\252"
 & ">\205\353\021?\000\000\000?\372~\252>\000\000\000?\000\000\000?\370S\343"
 & ">\000\000\000?\370S\343>\372~\252>\000\000\000?\004V\016?\004V\216>\004"
 & "V\216>\000\000\000?\004V\216>\002+G?\004V\016?\000\000\000?\000\000\000"
 & "?\000\000\000?\002+\307>\002+\307>\004V\216>\004V\016?\370S\343>\203\300"
 & "*?\000\000\000?\370S\343>\002+\307>\016-\262>\256Ga>\016-\262>\205\353\021"
 & "?\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\004V\216>\372~"
 & "\252>\372~\252>\372~\252>\372~\252>\372~\252>\372~\252>\372~\252>\372~\252"
 & ">\000\000\000\000\372~\252>\372~\252>\000\000\000\000\372~\252>\372~\252"
 & ">\372~\252>\000\000\000\000\002+\307>\000\000\000?\000\000\000?\000\000"
 & "\000?\000\000\000?\256Ga>\000\000\000?\372~\252>d;??\'1\210>\000\000\000"
 & "?\321\"\033?\372~\252>d;??\372~\252>\315\314\314>\205\353\021?\232\231\231"
 & ">\232\231\231>\372~\252>\274t\023?\000\000\000?\000\000\200>\372~\252>\232"
 & "\231\231>\232\231\231>\000\000\000?\000\000@?\000\000@?\000\000@?\000\000"
 & "\000?\203\300*?\203\300*?\203\300*?\203\300*?\203\300*?\203\300*?\374\251"
 & "q?\203\300*?\203\300*?\203\300*?\203\300*?\203\300*?\002+\307>\002+\307"
 & ">\002+\307>\002+\307>\376\3248?\376\3248?\376\3248?\376\3248?\376\3248?"
 & "\376\3248?\376\3248?\205\353\021?\376\3248?\376\3248?\376\3248?\376\324"
 & "8?\376\3248?\177j\034?\177j\034?\000\000\000?\000\000\000?\000\000\000?"
 & "\000\000\000?\000\000\000?\000\000\000?\000\000\000?\376\3248?\370S\343"
 & ">\370S\343>\370S\343>\370S\343>\370S\343>\004V\216>\004V\216>\004V\216>"
 & "\004V\216>\000\000\000?\004V\016?\000\000\000?\000\000\000?\000\000\000"
 & "?\000\000\000?\000\000\000?\205\353\021?\000\000\000?\004V\016?\004V\016"
 & "?\004V\016?\004V\016?\370S\343>\000\000\000?\370S\343>00000000000000000"
 & "00000000000000005\001\nL7\211=\244p\275>\240\032/?\364\375T\2745\001\n\226"
 & "C\013>L7\t?)\\/?\250\306\313>5\001\n\002+\007\275\260r\010?333?\000\000"
 & "\000\0005\001\n\n\327\243\274\311v\376>\343\245;?\315\314\314\2755\001\n"
 & "w\276\037=\f\002K?\351&1?\n\327#\2745\001\n\n\327\243;\252\3612?\215\227"
 & ".?\343\245\233\2745\001\n9\264\310=\276\237\232>)\\/?\221\355\274>5\001"
 & "\nB`\345<\305 \260>)\\/?\307K7\2765\001\nX94\275\203\300\212>)\\/?\307K"
 & "7\2765\001\n\270\036\205=\325x\351>)\\/?\333\371~>5\001\n\002+\007=\325"
 & "x\t?7\211\001?\000\000\000\0005\001\n\217\302u\275\274t\023>L7\t>5^:\276"
 & "5\001\n`\345P={\024\016?b\020\230>\031\004V>5\001\n\274t\023\274\004V\016"
 & ">q=\n>\364\375T\2745\001\no\022\203\275\240\032\257>)\\/?\274t\223\2745"
 & "\001\n\226C\213<X9\364>\027\331.?B`e\2745\001\n\n\327\243;+\207\326>\027"
 & "\331.?\000\000\000\0005\001\n\033/\335\274\035Z\344>\027\331.?\000\000\000"
 & "\0005\001\n\217\302u\274ff\346>\027\331.?\364\375T\2745\001\n\217\302u\274"
 & "\234\304\000?\027\331.?\000\000\000\0005\001\nX94\274\020X\371>\226C+?\364"
 & "\375T\2745\001\n\177j\274<\323M\002?\362\322-?\217\302u\2745\001\n\364\375"
 & "T=ff\006?\226C+?\000\000\000\0005\001\n\246\233D;F\266\363>\027\331.?\364"
 & "\375T\2745\001\n\246\233D\27433\363>\027\331.?\n\327#\2745\001\n\177j\274"
 & "<\002+\207>\f\002\353>\364\375T\2745\001\n\315\314\314\274\002+\207>\f\002"
 & "\353>Zd;\2765\001\n\266\363\375<\347\373\t?\201\225\003?o\022\003\2745\001"
 & "\n\002+\007=\325x\t?\272I\314>\321\"\333=5\001\n\266\363\375<\347\373\t"
 & "?\201\225\003?o\022\003\2745\001\n\301\312\241=\327\243\360>\240\032/?\364"
 & "\375T\2745\001\n%\006\201=\270\036E?)\\/?\274t\223\2745\001\nL7\211\275"
 & "\331\316\027?\027\331.?\000\000\000\0005\001\n\246\233\304\274w\276\037"
 & "?\226C+?\000\000\000\0005\001\no\022\003=\337O-?)\\/?\274t\223\2745\001"
 & "\n\177j<\275)\\/?\226C+?\000\000\000\0005\001\n\033/\335\274\002+\'?\226"
 & "C+?\000\000\000\0005\001\n\364\375T\274\303\365(?\226C+?\000\000\000\000"
 & "5\001\n1\010\254<j\2744?)\\/?\274t\223\2745\001\n\246\233\304\274D\213L"
 & "?\226C+?\000\000\000\0005\001\no\022\003\275;\337\317>\226C+?\000\000\000"
 & "\0005\001\n\177j<\275\335$\006?\226C+?\203\300\312\2755\001\n1\010\254\274"
 & "F\2663?\226C+?\000\000\000\0005\001\nX9\264\274=\n\027?\226C+?\000\000\000"
 & "\0005\001\nh\221\355\274\203\300j?\226C+?\246\233D\2745\001\n\033/\335\274"
 & "\356|??\226C+?\217\302u\2745\001\n\033/\335<`\3450?)\\/?\274t\223\2745\001"
 & "\n\033/\335\274\221\355\034?\226C+?\000\000\000\0005\001\n\033/\335<`\345"
 & "0?)\\/?\364\375T\2765\001\nh\221\355\274\356|\037?\226C+?\000\000\000\000"
 & "5\001\no\022\003;\360\247\006?)\\/?\274t\223\2745\001\n\315\314L=ff&?\226"
 & "C+?\000\000\000\0005\001\nL7\211=\311v>?\226C+?\274t\223\2745\001\n\270"
 & "\036\205==\n7?\226C+?\274t\223\2745\001\n\270\036\205=\327\243p?\226C+?"
 & "\274t\223\2745\001\n\246\233\304\274\374\2511?\226C+?\000\000\000\0005\001"
 & "\n\006\201\225=9\264(?\226C+?\000\000\000\0005\001\nX94\274=\n\027?\226"
 & "C+?\000\000\000\0005\001\nP\215\027\275\020X\271>D\213,?\345\320\"\2765"
 & "\001\no\022\203\272\027\331\216>)\\/?\274t\223\2745\001\nB`e\275\262\235"
 & "\257>D\213,?\234\304 \2765\001\nL7\211=\234\304\000?\226C+?\343\245\233"
 & ">5\001\n\000\000\000\000\000\000\000?\232\231\231\275\000\000\000\2765\001"
 & "\no\022\003>\347\373\251>)\\/?\221\355\274>5\001\n1\010\254\274\303\365"
 & "\350>D\213\354>";

CONST E1_31 =
   "B`e\2745\001\nB`e\274\370S\343>\252\3612?\364\375T\2745\001\n\n\327\243"
 & "\2739\264\310>D\213\354>\364\375T\2745\001\n1\010\254\274\035Z\004?\252"
 & "\3612?\364\375T\2745\001\n\n\327\243;\250\306\313>D\213\354>\364\375T\274"
 & "5\001\nV\016-\276\035Z\344>!\2602?\205\353Q\2765\001\n\364\375T\275j\274"
 & "\364>D\213\354>;\337O\2765\001\n\364\375T\274\333\371\376>\252\3612?\274"
 & "t\023\2745\001\no\022\003;\360\247\206>\240\032/?\274t\023\2745\001\n7\211"
 & "A\276\027\331\216>\240\032/?\317\367S\2765\001\n\177j\274\274\307K\367>"
 & "\252\3612?o\022\003\2745\001\no\022\003;\341z\224>\252\3612?\274t\023\274"
 & "5\001\nB`e\274\376\3248?D\213\354>\274t\023\2745\001\n\246\233\304\273\177"
 & "j\374>D\213\354>\274t\023\2745\001\n\246\233D\273\301\312\341>D\213\354"
 & ">\364\375T\2745\001\n\217\302\365\275\035Z\344>D\213\354>\205\353Q\2765"
 & "\001\no\022\203:\351&\361>D\213\354>\205\353Q\2765\001\n1\010\254\274\002"
 & "+\307>D\213\354>\000\000\000\0005\001\n\343\245\233\274\372~\252>D\213\354"
 & ">\364\375T\2745\001\nX94\274;\337\217>b\020\030?\274t\023\2745\001\n\217"
 & "\302u<m\347\373>D\213\354>\274t\023\2745\001\no\022\203<\337O\315>D\213"
 & "\354>\364\375T\2745\001\no\022\203<\033/\035?D\213\354>\364\375T\2745\001"
 & "\n\177j<\275\305 \360>D\213\354>\364\375T\2745\001\n\022\203\300\2759\264"
 & "\310>D\213\354>\205\353Q\2765\001\n\305 0\275\177j\274>T\343\345>w\276\237"
 & "\2755\001\n\n\327\243;d;\337>\262\235/?\356|?\2765\001\n\002+\207=-\262"
 & "\035>)\\/?\274t\223\2745\001\n\223\030\004\276\276\237\232>\262\235/?\356"
 & "|?\2765\001\n\033/]=\223\030\004?\372~\252>\351&1>000000000000000005\001"
 & "\no\022\003;F\266s>D\213\354>\274t\023\2745\001\n{\024\256=b\020\230>\230"
 & "n2?\223\030\004?5\001\n\004V\016>J\f\302>\230n2?\223\030\004?5\001\n\n\327"
 & "#=m\347\273>\327\2430?\223\030\004?5\001\n\246\233D=Nb\320>\024\256\'?L"
 & "7\t?5\001\n`\345P=L7\311>\356|\037?h\221\r?5\001\nsh\221=\335$\306>h\221"
 & "-?\223\030\004?5\001\ny\351&>\031\004\226>\024\256\'?ff\006?5\001\n\256"
 & "Ga=\226C\313>\024\256\'?ff\006?05\001\nJ\f\002>{\024\256>\276\237:?\223"
 & "\030\004?5\001\n\n\327\243\275w\276\037>\n\327\243;d;_\27605\001\n\337O"
 & "\215=\333\371\376>\230n2?\223\030\004?5\001\n\n\327#\2757\211A>X94=\351"
 & "&1\2765\001\n\301\312\241=\230n\322>\327\2430?\223\030\004?05\001\n\343"
 & "\245\233</\335\244>m\347\373>\205\353Q\2765\001\n1\010,=\234\304\340>\274"
 & "t\023?\230n\022\2765\001\no\022\003\275\\\217\002?\027\331.?\246\233D\274"
 & "5\001\n\364\375\324\274\360\247\006?\031\004\026?\226C\013=5\001\n\002+"
 & "\007=\234\304 ?\226C+?\000\000\000\0005\001\n\002+\207=-\262\035>)\\/?\274"
 & "t\223\2745\001\n\274t\023=\f\002\353>)\\/?\230n\022\2761\274\t\000\0005"
 & "\001\n\217\302\365<\331\3167?)\\/?\274t\223\2745\001\no\022\203<\303\365"
 & "\250>)\\/?\272I\314>5\001\n\246\233D<\262\235\357>\341z\324>o\022\003=5"
 & "\001\n`\345P={\024\016?\272I\314>\033/\335=5\001\no\022\003;\203\300\212"
 & ">Nb\220>\347\373)>5\001\n\217\302\365<\331\3167?)\\/?\274t\223\2741\271"
 & "\t\000\0005\001\n\347\373\251=\221\355\274>\027\331.?\226C\313>5\001\n\002"
 & "+\007=\325x\t?7\211\001?\000\000\000\0005\001\no\022\003;\211A\240>\027"
 & "\331.?\272I\214>5\001\n\226C\213<\035Z\244>\027\331.?\024\256\207>1\266"
 & "\t\000\0005\001\n\217\302u\275\223\030\004?T\343\345>\317\367S\2765\001"
 & "\n\325xi\275;\337\017?\226C+?\313\241E\2765\001\n`\345P=\250\306K>)\\\317"
 & ">\201\225\203>1\276\t\000\0005\001\n\217\302\365<\254\034\232>\027\331."
 & "?\272I\214>5\001\nB`e=\374\251\261>)\\/?\315\314\314>5\001\n\246\233D<\262"
 & "\235\357>\341z\324>o\022\003=5\001\nB`\345;u\2238?\027\331.?B`e\2745\001"
 & "\n\274t\023\274\207\0269?\027\331.?B`e\2745\001\nB`\345;#\3339?\027\331"
 & ".?B`e\2745\001\n\217\302\365<P\215\327>m\347\373>\205\353Q\2765\001\nL7"
 & "\211\275\331\316\027?\213lg?\000\000\000\0005\001\nL7\211\275\331\316\027"
 & "?\213lg?\000\000\000\0005\001\nL7\211\275\331\316\027?\313\241e?\000\000"
 & "\000\0005\001\nL7\211\275\331\316\027?\010\254\\?\000\000\000\0005\001\n"
 & "L7\211\275\331\316\027?\010\254\\?\000\000\000\0005\001\nL7\211\275\331"
 & "\316\027?\250\306k?\000\000\000\0005\001\no\022\203\275\f\002k?\226C+?\000"
 & "\000\000\0005\001\no\022\003=\337O-?)\\/?d;_\2765\001\n\033/\335\274\002"
 & "+\'?\213lg?\000\000\000\0005\001\n\033/\335\274\002+\'?\213lg?\000\000\000"
 & "\0005\001\n\033/\335\274\002+\'?\313\241e?\000\000\000\0005\001\n\033/\335"
 & "\274\002+\'?\010\254\\?\000\000\000\0005\001\no\022\003\275;\337\317>\213"
 & "lg?\000\000\000\0005\001\no\022\003\275\252\361\322>\213lg?\000\000\000"
 & "\0005\001\no\022\003\275=\n\327>\313\241e?\000\000\000\0005\001\no\022\003"
 & "\275\n\327\343>\010\254\\?\000\000\000\0005\001\n\266\363\375\274333?\226"
 & "C+?\000\000\000\0005\001\n\033/\335\274\356|??\010\254\\?\217\302u\2745"
 & "\001\n\033/\335<`\3450?\213lg?\274t\223\2745\001\n\033/\335<`\3450?\213"
 & "lg?\274t\223\2745\001\n\033/\335<`\3450?\313\241e?\274t\223\2745\001\n\033"
 & "/\335<`\3450?\010\254\\?\274t\223\2745\001\n\033/\335<`\3450?\010\254\\"
 & "?\274t\223\2745\001\n\246\233D=\313\241\005?H\341\372>o\022\203<5\001\n"
 & "\033/\335<`\3450?\201\225C?\000\000\000\2765\001\nL7\211=\311v>?\213lg?"
 & "\274t\223\2745\001\nL7\211=\311v>?\213lg?\274t\223\2745\001\nL7\211=\311"
 & "v>?\313\241e?\274t\223\2745\001\nL7\211=\311v>?\010\254\\?\274t\223\274"
 & "5\001\n\006\201\225=9\264(?\213lg?\000\000\000\0005\001\n\033/\335\274!"
 & "\260\022?\226C+?\000\000\000\0005\001\n\315\314L\276\016-\362>\341z4?\315"
 & "\314L\2765\001\n1\010\254\274\303\365\350>\230n2?B`e";

CONST E1_32 =
   "\2745\001\n1\010\254\274V\016\355>\230n2?B`e\2745\001\n1\010\254\274\303"
 & "\365\350>\327\2430?B`e\2745\001\n1\010\254\274Zd\373>\024\256\'?B`e\274"
 & "5\001\n1\010\254\274\351&\361>\024\256\'?B`e\2745\001\n1\010\254\274\303"
 & "\365\350>\276\237:?B`e\2745\001\n\n\327\243\273\272I,?D\213\354>\364\375"
 & "T\2745\001\n\246\233\304\2749\264\310>D\213\354>d;_\2765\001\n\n\327\243"
 & ";\250\306\313>\230n2?\364\375T\2745\001\n\n\327\243;R\270\336>\230n2?\364"
 & "\375T\2745\001\n\n\327\243;u\223\330>\327\2430?\364\375T\2745\001\n\n\327"
 & "\243;\345\320\342>\024\256\'?\364\375T\2745\001\no\022\003;\270\036\205"
 & ">\230n2?\274t\023\2745\001\no\022\003;X9\264>\230n2?\274t\023\2745\001\n"
 & "o\022\003\273ff\246>\327\2430?\274t\023\2745\001\no\022\003;\354Q\270>\024"
 & "\256\'?\274t\023\2745\001\n\246\233D\273\260r\350>\252\3612?\364\375T\274"
 & "5\001\n\246\233\304\273%\006\001?\024\256\'?\274t\023\2745\001\n\246\233"
 & "D\273\301\312\341>\230n2?\364\375T\2745\001\n\246\233D\273V\016\355>\230"
 & "n2?\364\375T\2745\001\n\246\233D\273y\351\346>\327\2430?\364\375T\2745\001"
 & "\n\246\233D\273Zd\373>\024\256\'?\364\375T\2745\001\n\246\233D\273\215\227"
 & "\356>\024\256\'?\364\375T\2745\001\n\002+\007=\325x\t?\303\365\010?h\221"
 & "\355\2745\001\n\246\233D\273\301\312\341>)\\\017?F\266\363\2755\001\n\217"
 & "\302u<m\347\373>\230n2?\274t\023\2745\001\n\217\302u<m\347\373>\230n2?\274"
 & "t\023\2745\001\n\217\302u<m\347\373>\327\2430?\274t\023\2745\001\n\217\302"
 & "u<\221\355\374>\024\256\'?\274t\023\2745\001\n\022\203\300\275R\270\336"
 & ">\230n2?\205\353Q\2765\001\n\217\302\365\275\035Z\344>\252\3612?\205\353"
 & "Q\2765\001\n\022\203\300\275\211A\340>\024\256\'?\205\353Q\2760000005\001"
 & "\0051O\000\000\0005\001\t{\024.\276\027\331\216?\004Vn?fff\276\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\001\001\001"
 & "\001\001\001\001\001\001\000\001\001\000\001\001\001\000\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\004V\216>\004V\216>\217\302\265>\004V\016?\004V\016?\201\225"
 & "c?\203\300*?\370Sc>\372~\252>\372~\252>\002+\307>\006\201\025?\004V\216"
 & ">\006\201\025?\004V\216>\004V\216>\004V\016?\004V\016?\004V\016?\004V\016"
 & "?\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\004V\216>"
 & "\004V\216>\006\201\025?\006\201\025?\006\201\025?\004V\016?\205\353\201"
 & "?\203\300*?\203\300*?\376\3248?\376\3248?\203\300*?\177j\034?\002+G?\376"
 & "\3248?\004V\216>\000\000\000?\203\300*?\004V\016?}?U?\376\3248?\002+G?\203"
 & "\300*?\002+G?\376\3248?\203\300*?\177j\034?\376\3248?\203\300*?\374\251"
 & "q?\203\300*?\203\300*?\177j\034?\004V\216>\004V\216>\004V\216>\305 \360"
 & ">\004V\016?\370Sc>\004V\016?\004V\016?\000\000\000?\004V\016?\004V\016?"
 & "\004V\216>\004V\016?\004V\016?\370Sc>\370Sc>\000\000\000?\370Sc>}?U?\004"
 & "V\016?\004V\016?\004V\016?\004V\016?\372~\252>\000\000\000?\004V\216>\004"
 & "V\016?\000\000\000?\376\3248?\000\000\000?\000\000\000?\000\000\000?\f\002"
 & "\253>\270\036\205>\f\002\253>\006\201\025?\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\004V\216>\372~\252>\372~\252>\372~\252>\372~\252"
 & ">\372~\252>\372~\252>\372~\252>\372~\252>\000\000\000\000\372~\252>\372"
 & "~\252>\000\000\000\000\372~\252>\372~\252>\372~\252>\000\000\000\000\372"
 & "~\252>\004V\016?\004V\016?\004V\016?\004V\016?\270\036\205>\004V\016?\372"
 & "~\252>\010\254<?\244p\275>\004V\016?\006\201\025?\372~\252>\010\254<?\372"
 & "~\252>\315\314\314>\006\201\025?\372~\252>\372~\252>\372~\252>\004V\016"
 & "?\325x\t?\004V\216>\372~\252>\372~\252>H\341\272>\004V\016?\006\201U?\006"
 & "\201U?\006\201U?\177j\034?\203\300*?\203\300*?\203\300*?\203\300*?\203\300"
 & "*?\203\300*?\000\000\200?\376\3248?\203\300*?\203\300*?\203\300*?\203\300"
 & "*?\004V\216>\004V\216>\004V\216>\004V\216>\376\3248?\376\3248?\002+G?\002"
 & "+G?\002+G?\002+G?\002+G?\006\201\025?\002+G?\376\3248?\376\3248?\376\324"
 & "8?\376\3248?\203\300*?\203\300*?\177j\034?\004V\016?\004V\016?\004V\016"
 & "?\004V\016?\004V\016?\004V\016?\201\225c?\000\000\000?\004V\016?\004V\016"
 & "?\004V\016?\004V\016?\004V\216>\004V\216>\004V\216>\004V\216>\004V\016?"
 & "\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\004V\016?\006\201\025"
 & "?\177j\034?\004V\016?\004V\016?\004V\016?\004V\016?\000\000\000?\004V\016"
 & "?\000\000\000?0000000000000000000000000000000005\001\n\354Q\270={\024\256"
 & ">\331\3167?\000\000\000\0005\001\n1\010,>\211A\340>\331\3167?V\016\355>"
 & "5\001\n\006\201\225=7\211!?\305 0?\000\000\000\0005\001\n\337O\215=";

CONST E1_33 =
   "\266\363\035?ffF?\037\205\353\2755\001\n+\207\026>\201\225c?\317\3673?\343"
 & "\245\233\2745\001\n-\262\235=\313\241%?\331\3167?\217\302u\2745\001\n\276"
 & "\237\032>R\270\236>\331\3167?V\016\355>5\001\n\033/\335=\260r\350>\343\245"
 & ";?\317\367S\2765\001\n\274t\023\274D\213\254>\343\245;?\317\367S\2765\001"
 & "\n\303\365(>33\363>\331\3167?\010\254\334>5\001\n{\024\256=\321\"\033?\256"
 & "G\001?\000\000\000\0005\001\nB`e=\321\"[>\207\026\331=+\207\026\2765\001"
 & "\n{\024\256=\321\"\033?\317\367\223>\033/]>5\001\n\016-\262=\321\"[>\207"
 & "\026\331=\000\000\000\0005\001\n1\010\254\274\213l\347>\010\254<?\343\245"
 & "\233\2745\001\n\311v\276=\343\245\033?\317\3673?\343\245\233\2745\001\n"
 & "\317\367S>J\f\002?\317\3673?\000\000\000\0005\001\n\364\375\324<\266\363"
 & "\035?\317\3673?\000\000\000\0005\001\n\232\231\231=\366(\034?\317\3673?"
 & "\343\245\233\2745\001\n#\333y=\274t\023?\317\3673?\000\000\000\0005\001"
 & "\n\226C\213=\333\371\036?\305 0?\343\245\233\2745\001\n5^\272=\244p\035"
 & "?\317\3673?\343\245\233\2745\001\n\272I\f>\226C+?\305 0?\000\000\000\000"
 & "5\001\nP\215\227=Zd\033?\317\3673?\343\245\233\2745\001\n\236\357\247=m"
 & "\347\033?\317\3673?\343\245\233\2745\001\n\016-\262=\254\034\232>\223\030"
 & "\004?\000\000\000\0005\001\nB`e=\254\034\232>\223\030\004?+\207\026\276"
 & "5\001\n\022\203\300=\223\030$?\244p\375>X94<5\001\n%\006\201=\234\304 ?"
 & "\024\256\307>\037\205\353=5\001\n\315\314L=\376\324\030?\244p\375>X94<5"
 & "\001\n/\335$>\366(\034?\254\034:?\000\000\000\0005\001\n\366(\\>=\nw?\010"
 & "\254<?\343\245\233\2745\001\nB`e<\213l\'?\331\3167?\000\000\000\0005\001"
 & "\nP\215\227=\242E6?\331\3167?\000\000\000\0005\001\n\033/\335=\'1H?\010"
 & "\254<?\343\245\233\2745\001\nT\343\245=\201\225C?\331\3167?\000\000\000"
 & "\0005\001\n\305 \260=o\022C?\331\3167?\000\000\000\0005\001\n\305 \260="
 & "\177j<?\331\3167?\000\000\000\0005\001\n\370S\343=D\213L?\010\254<?\343"
 & "\245\233\2745\001\n-\262\235=D\213L?\331\3167?\000\000\000\0005\001\n5^"
 & "\272=\215\227\256>\331\3167?\000\000\000\0005\001\n\022\203@=j\274\024?"
 & "\331\3167?\343\245\233\2745\001\n\343\245\233=\027\331N?\331\3167?\000\000"
 & "\000\0005\001\n\343\245\233={\024\016?\331\3167?\000\000\000\0005\001\n"
 & "\006\201\225=\347\373i?\331\3167?\000\000\000\0005\001\n\343\245\233=D\213"
 & "L?\331\3167?\000\000\000\0005\001\n=\n\327=\274tS?\010\254<?\343\245\233"
 & "\2745\001\n\305 \260=\010\254<?\331\3167?\000\000\000\0005\001\n=\n\327"
 & "=\274tS?\010\254<?B`e\2755\001\nX9\264=T\343E?\331\3167?\000\000\000\000"
 & "5\001\n\354Q\270=+\2076?\010\254<?\343\245\233\2745\001\nP\215\027>\000"
 & "\000@?\331\3167?\000\000\000\0005\001\nm\347\373=1\010L?\331\3167?\343\245"
 & "\233\2745\001\n\351&1>\315\314L?\331\3167?\000\000\000\0005\001\nV\016-"
 & ">5^\212?\331\3167?\000\000\000\0005\001\n\343\245\233<q=J?\331\3167?\000"
 & "\000\000\0005\001\n\f\002+>\004VN?\331\3167?\000\000\000\0005\001\n\177"
 & "j\274<-\262=?\331\3167?\000\000\000\0005\001\n1\010\254<\004V\316>\376\324"
 & "8?9\264H\2765\001\n)\\\017>\364\375\224>\010\254<?\343\245\233\2745\001"
 & "\nB`e\274\177j\274>\376\3248?9\264H\2765\001\n1\010,=\347\373\t?\305 0?"
 & "\002+\207>5\001\n\033/\335\274q=\n?\232\231\231\275\000\000\000\2765\001"
 & "\n\303\365(>B`\245>\232\2319?\327\243\360>5\001\n#\333y=\240\032\017?^\272"
 & "\t?\217\302u\2745\001\nh\221m=\006\201\025?\331\3167?\217\302u\2745\001"
 & "\nP\215\227=h\221\r?^\272\t?\217\302u\2745\001\n1\010\254=y\351&?\331\316"
 & "7?\217\302u\2745\001\n1\010\254=\317\367\023?^\272\t?\217\302u\2745\001"
 & "\n\305 \260=\364\375\324>5^:?\000\000\000\0005\001\n1\010,=\366(\034?^\272"
 & "\t?\256Ga\2765\001\n\270\036\205=!\260\022?\331\3167?\000\000\000\0005\001"
 & "\nL7\211=-\262\235>\331\3167?\000\000\000\0005\001\n\217\302u\275-\262\235"
 & ">\331\3167?=\nW\2765\001\nL7\211=\232\231\031?\331\3167?\000\000\000\000"
 & "5\001\nL7\211=-\262\235>\331\3167?\000\000\000\0005\001\n\270\036\205=\254"
 & "\034Z?^\272\t?\000\000\000\0005\001\n\270\036\205=!\260\022?^\272\t?\000"
 & "\000\000\0005\001\n\347\373\251=\217\302\025?^\272\t?B`e\2745\001\nB`e<"
 & "\006\201\025?^\272\t?\317\367S\2765\001\n1\010\254=H\341\032?^\272\t?\317"
 & "\367S\2765\001\n-\262\235=\035Z\344>^\272\t?\000\000\000\0005\001\n%\006"
 & "\201=\213l\007?^\272\t?\217\302u\2745\001\n`\345\320=\177j\274>\226C+?B"
 & "`\345\2735\001\n\022\203\300=\232\231\031?T\343\005?\217\302u\2745\001\n"
 & "F\266\363=5^\032?T\343\005?\000\000\000\0005\001\n\000\000\000>\205\353"
 & "Q?T\343\005?\000\000\000\0005\001\nX94<b\020\030?T\343\005?\000\000\000"
 & "\0005\001\n\217\302u<\232\231\031?T\343\005?\321\"[\2765\001\n\266\363\375"
 & "<\016-\022?T\343\005?\000\000\000\0005\001\n\177j\274=\n\327\343>\376\324"
 & "8?9\264H\2765\001\n\354Q\270=T\343\245>\010\254<?\343\245\233\2745\001\n"
 & "\000\000\000\000}?\265>\376\3248?9\264H\2765\001\n\370S\343=\341z\024?y"
 & "\351\246>\354Q8>000000000000000005\001\n\\\217\302=+\207\226>T\343\005?"
 & "\000\000\000\0005\001\n{\024.>D\213\254>m\347;?\331\316\027?5\001\n\266"
 & "\363}>33\363>m\347;?\331\316\027?5\001\n+\207\026>\211A\340>m\347;?\331"
 & "\316\027?5\001\n\000\000\000>H\341\372>\376\3248?\321\"\033?5\001\n\230"
 & "n\022>\262\235\357>\240\032/?\022\203 ?5\001\n\f\002+>F\266\363>\321\";"
 & "?\354Q\030?5\001\n\333\371~>\020X\271>j\2744?\276\237\032?5\001\n1\010,"
 & ">\345\320\342>j\2744?\276\237\032?05\001\n\321\"[>\362\322\315>7\211A?\230"
 & "n\022?5\001\no\022\003;h\221m>\000\000\000\000fff\27605\001\n\234\304 >"
 & "\327\243\020?m\347;?\331\316\027?5\001\n\305 0=\333\371~>\000\000\000\000"
 & "fff\2765\001\n}?5>\262\235\357>m";

CONST E1_34 =
   "\347;?\331\316\027?05\001\n-\262\235=y\351\246>T\343\005?\024\256G\2765"
 & "\001\n\\\217\302=\006\201\025?\356|\037?\037\205\353\2755\001\n9\264H=\323"
 & "M\"?\331\3167?o\022\203\2745\001\n\217\302u=B`%?5^\032?\203\300\312=5\001"
 & "\nT\343\245=\252\3612?\305 0?\000\000\000\0005\001\n\354Q\270=T\343\245"
 & ">\010\254<?\343\245\233\2745\001\n\343\245\233=\006\201\025?\010\254<?\201"
 & "\225C\2761\205\n\000\0005\001\n\033/]=\242EV?\010\254<?\343\245\233\274"
 & "5\001\n\315\314\314=T\343\345>\010\254<?\343\245\233>5\001\n\006\201\025"
 & ">\362\322\r?\035Z\344>\033/\335=5\001\n\207\026\331=\234\304 ?\024\256\307"
 & ">\033/\335=5\001\n\311v\276=\264\310\266>/\335\244>h\221m>5\001\n\033/]"
 & "=\242EV?\010\254<?\343\245\233\2741\202\n\000\0005\001\nV\016->\262\235"
 & "\357>\317\3673?\230n\322>5\001\nw\276\037=?5\036?7\211\001?\000\000\000"
 & "\0005\001\no\022\203=T\343\345>\317\3673?;\337\217>5\001\n\354Q\270=d;\337"
 & ">\317\3673?q=\212>1\177\n\000\0005\001\n\246\233\304<\232\231\031?T\343"
 & "\005?\317\367S\2765\001\n%\006\001>ff&?\331\3167?\351&1\2765\001\n\223\030"
 & "\004>\201\225\203>\256G\241>\\\217B>1\207\n\000\0005\001\n\347\373)>\266"
 & "\363\275>\317\3673?;\337\217>5\001\n\315\314\314=\262\235\357>\010\254<"
 & "?\343\245\233>5\001\n\217\302\365=\002+\007?\035Z\344>\033/\335=5\001\n"
 & "\232\231\031>\337OM?\317\3673?\343\245\233\2745\001\n\325x\351=\264\310"
 & "V?\317\3673?\343\245\233\2745\001\n\270\036\005>\177j\\?\317\3673?\343\245"
 & "\233\2745\001\n{\024\256=9\264\010?ff\006?\362\322M\2765\001\nB`e<\213l"
 & "\'?\362\322m?\000\000\000\0005\001\nB`e<\027\331.?\362\322m?\000\000\000"
 & "\0005\001\nB`e<\213l\'?\362\322m?\000\000\000\0005\001\nB`e<\252\3612?\203"
 & "\300j?\000\000\000\0005\001\nB`e<\213l\'?\360\247f?\000\000\000\0005\001"
 & "\nB`e<\213l\'?\004Vn?\000\000\000\0005\001\no\022\003<\177j\214?\331\316"
 & "7?\000\000\000\0005\001\n\033/\335=\'1H?\010\254<?fff\2765\001\n\305 \260"
 & "=o\022C?\362\322m?\000\000\000\0005\001\n\305 \260=o\022C?\362\322m?\000"
 & "\000\000\0005\001\n\305 \260=o\022C?\362\322m?\000\000\000\0005\001\n\305"
 & " \260=o\022C?\360\247f?\000\000\000\0005\001\n5^\272=F\266\263>\362\322"
 & "m?\000\000\000\0005\001\n5^\272=5^\372>\362\322m?\000\000\000\0005\001\n"
 & "5^\272=\213l\347>\362\322m?\000\000\000\0005\001\n5^\272=\372~\352>\360"
 & "\247f?\000\000\000\0005\001\n\337O\215=\201\225C?\331\3167?\000\000\000"
 & "\0005\001\n\343\245\233=D\213L?\203\300j?\000\000\000\0005\001\n=\n\327"
 & "=\274tS?\362\322m?\343\245\233\2745\001\n=\n\327=\274tS?\362\322m?\343\245"
 & "\233\2745\001\n=\n\327=\274tS?\362\322m?\343\245\233\2745\001\n=\n\327="
 & "\274tS?\203\300j?\343\245\233\2745\001\n=\n\327=\274tS?\360\247f?\343\245"
 & "\233\2745\001\n\315\314L=\035Z$?7\211\001?\000\000\000\0005\001\n\305 0"
 & "=\n\327c?\010\254<?\343\245\233\2745\001\nm\347\373=1\010L?\362\322m?\343"
 & "\245\233\2745\001\nm\347\373=1\010L?\362\322m?\343\245\233\2745\001\nm\347"
 & "\373=1\010L?\362\322m?\343\245\233\2745\001\nm\347\373=1\010L?\360\247f"
 & "?\343\245\233\2745\001\n\f\002+>\004VN?\362\322m?\000\000\000\0005\001\n"
 & "\305 \260=\242E6?\331\3167?\000\000\000\0005\001\nL7\211=\260r(?5^:?\217"
 & "\302u\2745\001\n#\333y=\240\032\017?m\347;?\217\302u\2745\001\n#\333y=\242"
 & "E\026?m\347;?\217\302u\2745\001\n#\333y=\240\032\017?m\347;?\217\302u\274"
 & "5\001\n#\333y=P\215\027?\376\3248?\217\302u\2745\001\n#\333y=\240\032\017"
 & "?j\2744?\217\302u\2745\001\n#\333y=\240\032\017?7\211A?\217\302u\2745\001"
 & "\n#\333y=9\264h?^\272\t?\217\302u\2745\001\nP\215\227=h\221\r?^\272\t?f"
 & "ff\2765\001\n1\010\254=\317\367\023?m\347;?\217\302u\2745\001\n1\010\254"
 & "=\242E\026?m\347;?\217\302u\2745\001\n1\010\254=\317\367\023?m\347;?\217"
 & "\302u\2745\001\n1\010\254=\317\367\023?j\2744?\217\302u\2745\001\n\\\217"
 & "\302=R\270\236>m\347;?\000\000\000\0005\001\n\\\217\302=B`\345>m\347;?\000"
 & "\000\000\0005\001\n\\\217\302=\230n\322>m\347;?\000\000\000\0005\001\n\\"
 & "\217\302=\364\375\324>j\2744?\000\000\000\0005\001\nT\343\245=\266\363\035"
 & "?\010\254<?\217\302u\2745\001\n\270\036\205=P\215\027?\376\3248?\000\000"
 & "\000\0005\001\n\347\373\251=\217\302\025?m\347;?B`e\2745\001\n\347\373\251"
 & "=\242E\026?m\347;?B`e\2745\001\n\347\373\251=\217\302\025?m\347;?B`e\274"
 & "5\001\n\347\373\251=\254\034\032?\376\3248?B`e\2745\001\n\347\373\251=\217"
 & "\302\025?j\2744?B`e\2745\001\n{\024\256=\321\"\033?\335$\006?\343\245\233"
 & "\2745\001\nh\221\355<\313\241%?\037\205\013?X9\264\2745\001\n\022\203\300"
 & "=\232\231\031?m\347;?\217\302u\2745\001\n\022\203\300=\232\231\031?m\347"
 & ";?\217\302u\2745\001\n\022\203\300=\232\231\031?m\347;?\217\302u\2745\001"
 & "\n\022\203\300=\232\231\031?j\2744?\217\302u\2745\001\n\217\302u<\232\231"
 & "\031?m\347;?\321\"[\2765\001\nB`e<\006\201\025?\331\3167?\317\367S\2765"
 & "\001\n\217\302u<\232\231\031?j\2744?\321\"[\2760000005\001\0051\252\000"
 & "\000\0005\001\tB`e\275?5^?V\016M?\000\000\200\276\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\001\001\001\001\001\001"
 & "\001\001\001\000\001\001\000\001\001\001\000\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001";

CONST E1_35 =
   "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\000\000\000"
 & "\000\232\231\031?\232\231\031?\000\000\000\000\232\231\031?\232\231\031"
 & "?\232\231\031?\000\000\000\000\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?0000000000000000000000000000000005\001\n\033/]>\244p\375>"
 & "\230n\022?\217\302u\2745\001\n\207\026Y>\006\201\025?;\337\017?\362\322"
 & "\215>5\001\nX9\264=\n\327#?\360\247&?\354Q8\2755\001\n\016-\262=%\006!?"
 & "\372~*?%\006\001\2765\001\n`\345\320=w\276\037?-\262\035?\217\302u\2745"
 & "\001\n\266\363}=b\020\030?\f\002\013?\217\302u\2745\001\n\037\205k>\203"
 & "\300\n?;\337\017?\362\322\215>5\001\n\'1\210>P\215\027?-\262\035?`\345\320"
 & "\2755\001\n\262\235\357=\370S\343>-\262\035?`\345\320\2755\001\n\307K7>"
 & "\376\324\030?#\333\031?\211A`>5\001\n\325x\351=u\223\030?j\274\364>w\276"
 & "\037=5\001\n\203\300\312=\366(\334>\016-2>\370S\343\2755\001\n\325x\351"
 & "=u\223\030?\211A\240>;\337O>5\001\n\317\367S>\254\034\332>\240\032/>\217"
 & "\302u\2745\001\n5^\272=\211A ?\211A ?-\262\235\2755\001\n\226C\013>P\215"
 & "\027?-\262\035?\217\302u\2745\001\n\311v\276=\262\235\017?-\262\035?\000"
 & "\000\000\0005\001\n#\333y=\331\316\027?-\262\035?\000\000\000\0005\001\n"
 & "\274t\223=\016-\022?-\262\035?\217\302u\2745\001\n\236\357\247=\027\331"
 & "\016?-\262\035?\000\000\000\0005\001\n-\262\235=\333\371\036?#\333\031?"
 & "\217\302u\2745\001\n\226C\013>y\351&?-\262\035?\217\302u\2745\001\n+\207"
 & "\026>d;\037?#\333\031?\000\000\000\0005\001\n\037\205\353=\276\237\032?"
 & "-\262\035?\217\302u\2745\001\n\343\245\233=P\215\027?-\262\035?\217\302"
 & "u\2745\001\n\252\361R>}?\365>\232\231\331>\217\302u\2745\001\n\203\300\312"
 & "=\217\302\365>\232\231\331>\370S\343\2755\001\n\331\316\367=\010\254\034"
 & "?\211A\000?\217\302u<5\001\n\246\233\304=\033/\035?\250\306\313>\374\251"
 & "\361=5\001\n\360\247\306=\264\310\026?\211A\000?\217\302u<5\001\nZd;>\307"
 & "K\027?\341z\024?B`e\2745\001\n\002+\207=\223\030$?-\262\035?\217\302u\274"
 & "5\001\n\274t\023\2747\211!?;\337\017?\000\000\000\0005\001\n\217\302\365"
 & "<%\006!?;\337\017?\000\000\000\0005\001\n\232\231\231=D\213,?\341z\024?"
 & "\274t\223\2745\001\n\217\302\365<\347\373)?;\337\017?\000\000\000\0005\001"
 & "\n\315\314\314<\226C+?;\337\017?\000\000\000\0005\001\nw\276\037=\027\331"
 & ".?;\337\017?\000\000\000\0005\001\n\232\231\231=D\213,?\341z\024?\274t\223"
 & "\2745\001\n\n\327\243<\252\3612?;\337\017?\000\000\000\0005\001\n-\262\235"
 & "=\035Z$?;\337\017?\000\000\000\0005\001\n\374\251q=\354Q8?;\337\017?\274"
 & "t\223\2745\001\n1\010\254<`\3450?;\337\017?\000\000\000\0005\001\nw\276"
 & "\037=\\\217\"?;\337\017?\000\000\000\0005\001\no\022\003\273u\2238?;\337"
 & "\017?\000\000\000\0005\001\no\022\003<\276\237:?;\337\017?\246\233D\274"
 & "5\001\nP\215\227=\270\036%?\341z\024?\274t\223\2745\001\n\246";

CONST E1_36 =
   "\233D=\035Z$?;\337\017?\000\000\000\0005\001\n1\010\254=\345\320\"?\341"
 & "z\024?\337O\r\2765\001\n\246\233\304<\266\363\035?;\337\017?\000\000\000"
 & "\0005\001\n\033/]=1\010,?\364\375\024?X9\264\2745\001\n\305 \260=h\221-"
 & "?;\337\017?\000\000\000\0005\001\n\027\331\316==\n7?;\337\017?\274t\223"
 & "\2745\001\n1\010\254=Zd;?;\337\017?\000\000\000\0005\001\n1\010\254=\010"
 & "\254<?;\337\017?\000\000\000\0005\001\n\246\233D<Nb0?;\337\017?\000\000"
 & "\000\0005\001\nd;\337=}?5?;\337\017?\000\000\000\0005\001\n\266\363}=\345"
 & "\320\"?;\337\017?\000\000\000\0005\001\n\035Zd>\321\"\033?-\262\035?`\345"
 & "\320\2755\001\n\035Zd>\266\363\375>\211A ?-\262\235\2755\001\n\252\361\322"
 & "=\376\324\370>-\262\035?`\345\320\2755\001\n\240\032/>{\024\016?-\262\035"
 & "?\000\000\200>5\001\n\033/\335\274\006\201\025?\232\231\231\275\000\000"
 & "\000\2765\001\nb\020\230>\020X\371>;\337\017?\362\322\215>5\001\n\266\363"
 & "}=P\215\027?\260r\350>\217\302u\2745\001\n\364\375T<\345\320\"?\211A ?\217"
 & "\302u\2745\001\nT\343\245=7\211!?\f\002\353>\217\302u\2745\001\n#\333y="
 & "/\335$?\211A ?\217\302u\2745\001\nT\343\245=\276\237\032?\260r\350>\217"
 & "\302u\2745\001\n\347\373\251=\337O-?\211A ?\000\000\000\0005\001\n\236\357"
 & "\'=\272I,?\260r\350>\006\201\025\2765\001\n\274t\223<\033/\035?\211A ?\000"
 & "\000\000\0005\001\n-\262\235=\037\205\013?\260r(?\000\000\000\0005\001\n"
 & "P\215\027=\341z\024?\260r(?\006\201\025\2765\001\n\002+\007=\035Z$?\211"
 & "A ?\000\000\000\0005\001\n-\262\235=\037\205\013?\211A ?\000\000\000\000"
 & "5\001\nX9\264\274T\343%?\260r\350>\000\000\000\0005\001\n\274t\223<\033"
 & "/\035?\260r\350>\000\000\000\0005\001\nsh\221=d;\037?\260r\350>\217\302"
 & "u\2745\001\n\266\363\375\274d;\037?\260r\350>sh\021\2765\001\n#\333y=\240"
 & "\032/?\260r\350>sh\021\2765\001\n\022\203@=\213l\'?\260r\350>\000\000\000"
 & "\0005\001\nL7\211=Zd\033?\f\002\353>\226C\213\2745\001\n\374\251\361=`\345"
 & "\020?;\337\017?\217\302u\2745\001\n)\\\217=\307K\027?\234\304\340>\217\302"
 & "u\2745\001\n)\\\217=\374\2511?\234\304\340>\000\000\000\0005\001\n\207\026"
 & "Y=\031\0046?\234\304\340>\000\000\000\0005\001\n\246\233\304;\037\205+?"
 & "\234\304\340>\000\000\000\0005\001\n\n\327\243\274\374\2511?\234\304\340"
 & ">sh\021\2765\001\nT\343\245=\221\355\034?\234\304\340>\000\000\000\0005"
 & "\001\n`\345P>\354Q\030?-\262\035?`\345\320\2755\001\n\027\331N>%\006\001"
 & "?\000\000@?\000\000\200\2765\001\n\325x\351=7\211\001?-\262\035?`\345\320"
 & "\2755\001\n\217\302\365=\264\310\026?\242E\266>\010\254\034>00000000000"
 & "0000005\001\n-\262\235=\037\205\013?\234\304\340>\000\000\000\0005\001\n"
 & "\226C\213>\234\304\000?L7)?J\f\002?5\001\n\211A\240>\343\245\033?L7)?J\f"
 & "\002?5\001\n\207\026Y>\321\"\033?\'1(?\307K\367>5\001\n\315\314L>\035Z$"
 & "?\345\320\"?\177j\374>5\001\n\024\256G>\345\320\"?\217\302\025?\256G\001"
 & "?5\001\n?5^>\360\247&?7\211!?\262\235\357>5\001\n\351&\261>H\341\372>\000"
 & "\000 ?\354Q\370>5\001\n#\333y>P\215\027?\000\000 ?\354Q\370>05\001\n\370"
 & "S\243>\002+\007?h\221-?\242E\366>5\001\nV\016->m\347\273>\000\000\000\000"
 & "\252\361R\27605\001\n\305 0>5^:?L7)?#\333\371>5\001\n\274t\023>33\263>\000"
 & "\000\000\000\250\306K\2765\001\nF\266s>\301\312!?\203\300*?\177j\374>05"
 & "\001\n^\272I>X9\364>T\343\345>\006\201\025\2765\001\n\331\316\367=\276\237"
 & "\032?\033/\035?9\264H\2755\001\n\321\"\333=ff&?\177j\034?B`\345\2745\001"
 & "\n-\262\235=\246\233$?\035Z\004?9\264H=5\001\n9\264\310=\006\2015?;\337"
 & "\017?\000\000\000\0005\001\nd;_>#\333\371>\315\314,?333\2765\001\nP\215"
 & "\227=\311v\036?\341z\024?)\\\217\2751N\013\000\0005\001\n\207\026Y=\203"
 & "\300*?\341z\024?\274t\223\2745\001\n7\211A>\360\247\006?\341z\024?9\264"
 & "H>5\001\n%\006\201=\370S#?\035Z\344>)\\\217=5\001\nq=\n>\266\363\035?\274"
 & "t\323>\252\361\322=5\001\n\230n\022>\351&\021?\211A\240>;\337O>5\001\n\207"
 & "\026Y=\203\300*?\341z\024?\274t\223\2741K\013\000\0005\001\n\351&1>\374"
 & "\251\021?-\262\035?\376\324x>5\001\n\343\245\233=\033/\035?\n\327\003?\246"
 & "\233\304<5\001\n\246\233D>\372~\n?-\262\035?\037\205k>5\001\n\313\241E>"
 & "ff\006?-\262\035?\370Sc>1H\013\000\0005\001\n\315\314L=\307K\027?\234\304"
 & "\340>sh\021\2765\001\n#\333y=\252\3612?\341z\024?)\\\217\2755\001\n\333"
 & "\371~>1\010\354>F\266\263>\303\365(>1P\013\000\0005\001\n\254\034Z>\201"
 & "\225\003?-\262\035?\037\205k>5\001\n7\211A>\203\300\n?\341z\024?9\264H>"
 & "5\001\n\274t\223=\313\241%?\035Z\344>)\\\217=5\001\nB`e<j\2744?L7)?\217"
 & "\302u\2755\001\n\177j\274<=\n7?L7)?\217\302u\2755\001\no\022\003<!\2602"
 & "?L7)?\217\302u\2755\001\n\027\331\316=\323M\002?T\343\345>\006\201\025\276"
 & "5\001\n\274t\023\2747\211!?9\264H?\000\000\000\0005\001\n\274t\023\274q"
 & "=*?9\264H?\000\000\000\0005\001\n\274t\023\2747\211!?\024\256G?\000\000"
 & "\000\0005\001\n\274t\023\274\370S#?\323MB?\000\000\000\0005\001\n\274t\023"
 & "\2747\211!?\356|??\000\000\000\0005\001\n\274t\023\2747\211!?V\016M?\000"
 & "\000\000\0005\001\nh\221\355\274\364\3754?;\337\017?\000\000\000\0005\001"
 & "\nP\215\227=D\213,?\341z\024?\252\361R\2765\001\n\315\314\314<\226C+?9\264"
 & "H?\000\000\000\0005\001\n\315\314\314<\226C+?9\264H?\000\000\000\0005\001"
 & "\n\315\314\314<\226C+?\024\256G?\000\000\000\0005\001\n\315\314\314<\226"
 & "C+?\356|??\000\000\000\0005\001\n-\262\235=\035Z$?9\264H?\000\000\000\000"
 & "5\001\n-\262\235=\035Z$?9\264H?\000\000\000\0005\001\n-\262\235=\035Z$?"
 & "\024\256G?\000\000\000\0005\001\n-\262\235=";

CONST E1_37 =
   "\035Z$?\356|??\000\000\000\0005\001\n\217\302\365<\347\373)?;\337\017?\000"
 & "\000\000\0005\001\no\022\003<\276\237:?\323MB?\246\233D\2745\001\nP\215"
 & "\227=\270\036%?9\264H?\274t\223\2745\001\nP\215\227=\270\036%?9\264H?\274"
 & "t\223\2745\001\nP\215\227=\270\036%?\024\256G?\274t\223\2745\001\nP\215"
 & "\227=\f\002+?\323MB?\274t\223\2745\001\nP\215\227=\270\036%?\356|??\274"
 & "t\223\2745\001\n=\n\327=\321\"\033?j\274\364>w\276\037=5\001\n\246\233D"
 & "=1\010,?\006\201\025?X9\264\2745\001\n\027\331\316==\n7?9\264H?\274t\223"
 & "\2745\001\n\027\331\316==\n7?9\264H?\274t\223\2745\001\n\027\331\316==\n"
 & "7?\024\256G?\274t\223\2745\001\n\027\331\316==\n7?\356|??\274t\223\2745"
 & "\001\nd;\337=}?5?9\264H?\000\000\000\0005\001\n\246\233D=\311v\036?;\337"
 & "\017?\000\000\000\0005\001\nX9\264<\234\304 ?\211A ?\217\302u\2745\001\n"
 & "\266\363}=P\215\027?L7)?\217\302u\2745\001\n\266\363}=\343\245\033?L7)?"
 & "\217\302u\2745\001\n\266\363}=P\215\027?\'1(?\217\302u\2745\001\n\266\363"
 & "}=\035Z$?\345\320\"?\217\302u\2745\001\n\266\363}=P\215\027?\000\000 ?\217"
 & "\302u\2745\001\n\266\363}=P\215\027?h\221-?\217\302u\2745\001\n1\010\254"
 & "<\360\247&?\260r\350>\217\302u\2745\001\nT\343\245=7\211!?\f\002\353>\252"
 & "\361R\2765\001\nT\343\245=\276\237\032?L7)?\217\302u\2745\001\nT\343\245"
 & "=\343\245\033?L7)?\217\302u\2745\001\nT\343\245=\321\"\033?\'1(?\217\302"
 & "u\2745\001\nT\343\245=\276\237\032?\000\000 ?\217\302u\2745\001\n-\262\235"
 & "=\037\205\013?L7)?\000\000\000\0005\001\n-\262\235=\343\245\033?L7)?\000"
 & "\000\000\0005\001\n-\262\235=`\345\020?\'1(?\000\000\000\0005\001\n-\262"
 & "\235=\337O\r?\000\000 ?\000\000\000\0005\001\n\311v\276=L7)?\211A ?\033"
 & "/\335\2745\001\n\274t\223<\035Z$?\345\320\"?\000\000\000\0005\001\nsh\221"
 & "=d;\037?L7)?\217\302u\2745\001\nsh\221=d;\037?L7)?\217\302u\2745\001\ns"
 & "h\221=d;\037?\'1(?\217\302u\2745\001\nsh\221=\035Z$?\345\320\"?\217\302"
 & "u\2745\001\nsh\221=d;\037?\000\000 ?\217\302u\2745\001\n\325x\351=u\223"
 & "\030?\000\000\000?o\022\203<5\001\n\256Ga=o\022#?V\016\355>\246\233\304"
 & "\2745\001\n)\\\217=\307K\027?L7)?\217\302u\2745\001\n)\\\217=\343\245\033"
 & "?L7)?\217\302u\2745\001\n)\\\217=\307K\027?\'1(?\217\302u\2745\001\n)\\"
 & "\217=\307K\027?\000\000 ?\217\302u\2745\001\n\n\327\243\274\374\2511?L7"
 & ")?sh\021\2765\001\n\266\363\375\274d;\037?\211A ?sh\021\2765\001\n\n\327"
 & "\243\274\374\2511?\000\000 ?sh\021\276005\001\00512\000\000\0005\001\tB"
 & "`\345\274\234\304 ?{\024N?\000\000\200\276\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\001\001\001\001\001\001\001\001"
 & "\001\000\001\001\000\001\001\001\000\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001\001"
 & "\001\001\001\001\001\001\001\001\001\001\001\001\001\001\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\232\231\031?\232\231\031?\232\231\031?"
 & "\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\000\000\000\000\232\231\031?\232\231\031?\000\000\000\000\232\231"
 & "\031?\232\231\031?\232\231\031?\000\000\000\000\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031";

CONST E1_38 =
   "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232"
 & "\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031"
 & "?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231\031?\232\231"
 & "\031?\232\231\031?0000000000000000000000000000000005\001\n\374\251q>5^\272"
 & ">\230n\022?\217\302u\2745\001\n\356|?>\274t\323>;\337\017?\236\357\247>"
 & "5\001\n\311v\276=\301\312\001?\201\225#?o\022\003\2755\001\n=\n\327=\266"
 & "\363\375>\325x)?%\006\001\2765\001\nT\343\245=\246\233\004?d;\037?\217\302"
 & "u\2745\001\n%\006\201=^\272\t?\f\002\013?\217\302u\2745\001\n\254\034Z>"
 & "\022\203\300>;\337\017?\236\357\247>5\001\n^\272\211>\256G\341>d;\037?\033"
 & "/\335\2755\001\n\n\327#>\325x\251>d;\037?\033/\335\2755\001\nh\221\355="
 & "\331\316\367>Zd\033?\201\225\203>5\001\n\n\327\243=\270\036\005?\327\243"
 & "\360>X94=5\001\n\020X9>\305 \260>#\333\371=B`\345\2755\001\n\n\327\243="
 & "\270\036\005?`\345\220>h\221m>5\001\n\372~j>\266\363\275>d;\337=\217\302"
 & "u\2745\001\n\000\000\000>33\363>%\006!?\n\327\243\2755\001\n\207\026\331"
 & "=\221\355\374>d;\037?\217\302u\2745\001\n\246\233\304=\256G\001?d;\037?"
 & "\000\000\000\0005\001\n)\\\217=\351&\361>d;\037?\000\000\000\0005\001\n"
 & "\232\231\231=\215\227\356>d;\037?\217\302u\2745\001\nw\276\237=\000\000"
 & "\000?d;\037?\000\000\000\0005\001\n\177j\274=\311v\376>Zd\033?\217\302u"
 & "\2745\001\n\370S\343=\311v\376>d;\037?\217\302u\2745\001\n\236\357\247="
 & "\307K\367>Zd\033?\000\000\000\0005\001\n`\345\320=\333\371\376>d;\037?\217"
 & "\302u\2745\001\n\246\233\304=5^\372>d;\037?\217\302u\2745\001\n\372~j>\266"
 & "\363\275>\270\036\305>\217\302u\2745\001\n\020X9>\266\363\275>\270\036\305"
 & ">B`\345\2755\001\n\236\357\'=/\335\004?\374\251\361>1\010,=5\001\n\n\327"
 & "\243=\270\036\005?\022\203\300>\337O\r>5\001\n\002+\207=\226C\013?\374\251"
 & "\361>1\010,=5\001\n\223\030\004>m\347\373>\230n\022?\217\302u\2745\001\n"
 & "-\262\235=\260r\010?d;\037?\217\302u\2745\001\n\246\233D;\376\324\030?;"
 & "\337\017?\000\000\000\0005\001\n\305 0=\240\032\017?;\337\017?\000\000\000"
 & "\0005\001\n\236\357\'=q=\n?\341z\024?\274t\223\2745\001\n\305 0=\252\361"
 & "\022?;\337\017?\000\000\000\0005\001\n\207\026Y=\315\314\f?;\337\017?\000"
 & "\000\000\0005\001\n\207\026Y=\037\205\013?;\337\017?\000\000\000\0005\001"
 & "\n\266\363\375<33\023?\341z\024?\274t\223\2745\001\no\022\003=sh\021?;\337"
 & "\017?\000\000\000\0005\001\n\246\233\304=%\006\001?;\337\017?\000\000\000"
 & "\0005\001\n\226C\013=`\345\020?;\337\017?\274t\223\2745\001\n\343\245\033"
 & "=\364\375\024?;\337\017?\000\000\000\0005\001\n\022\203@=\362\322\r?;\337"
 & "\017?\000\000\000\0005\001\no\022\203;u\223\030?;\337\017?\000\000\000\000"
 & "5\001\nB`\345;\331\316\027?;\337\017?\364\375T\2745\001\n\305 0=\215\227"
 & "\016?\341z\024?\274t\223\2745\001\n\301\312\241=\027\331\016?;\337\017?"
 & "\000\000\000\0005\001\n\305 0=\215\227\016?\341z\024?\337O\r\2765\001\n"
 & "\343\245\033=+\207\026?;\337\017?\000\000\000\0005\001\n\274t\223=\213l"
 & "\007?\341z\024?\n\327\243\2745\001\n\343\245\033=\305 \020?;\337\017?\000"
 & "\000\000\0005\001\n\226C\213<}?\025?;\337\017?\274t\223\2745\001\no\022"
 & "\203\273\276\237\032?;\337\017?\364\375T\2745\001\n\246\233D\2735^\032?"
 & ";\337\017?\364\375T\2745\001\n\177j\274<F\266\023?;\337\017?\000\000\000"
 & "\0005\001\n\246\233\304<\274t\023?;\337\017?\000\000\000\0005\001\n\305"
 & " \260=\201\225\003?;\337\017?\000\000\000\0005\001\n^\272\211>\323M\342"
 & ">d;\037?\033/\335\2755\001\n\374\251\361=\264\310\366>%\006!?\n\327\243"
 & "\2755\001\n\301\312!>\325x\251>d;\037?\033/\335\2755\001\n\022\203\300="
 & "7\211\001?d;\037?}?\265>5\001\n\000\000\000\000\232\231\031?\232\231\231"
 & "\275\000\000\000\2765\001\nB`e>\335$\306>;\337\017?\236\357\247>5\001\n"
 & "\207\026Y=\240\032\017?\301\312\341>\217\302u\2745\001\nB`e<33\023?%\006"
 & "!?\217\302u\2745\001\n\002+\207=\213l\007?\301\312\341>\217\302u\2745\001"
 & "\n\354Q8=\307K\027?%\006!?\217\302u\2745\001\n\002+\207=\272I\f?\301\312"
 & "\341>\217\302u\2745\001\n\325x\351=\236\357\007?%\006!?\000\000\000\000"
 & "5\001\n\354Q8=`\345\020?\301\312\341>\234\304 \2765\001\n\274t\223<\364"
 & "\375\024?%\006!?\000\000\000\0005\001\n\\\217\302=\256G\001?\'1(?\000\000"
 & "\000\0005\001\n\236\357\247=\205\353\321>\'1(?\234\304 \2765\001\n\305 "
 & "0=\341z\024?%\006!?\000\000\000\0005\001\n\\\217\302=\256G\001?%\006!?\000"
 & "\000\000\0005\001\n\n\327\243\273H\341\032?\301\312\341>\000\000\000\000"
 & "5\001\n\364\375\324<33\023?\301\312\341>\000\000\000\0005\001\n\266\363"
 & "}=^\272\t?\301\312\341>\217\302u\2745\001\n\274t\023<{\024\016?\301\312"
 & "\341>\234\304 \2765\001\n\354Q8=\307K\027?\301\312\341>\234\304 \2765\001"
 & "\n\217\302u=\240\032\017?\301\312\341>\000\000\000\0005\001\n\n\327\243"
 & "=\370S\003?\301\312\341>\217\302u\2745\001\n\016-\262=\024\256\007?\262"
 & "\235\017?\217\302u\2745\001\n1\010\254<;\337\017?\254\034\332>\217\302u"
 & "\2745\001\n\n\327#<=\n\027?\254\034\332>\n\327#\2745\001\no\022\203\273"
 & "\276\237\032?\254\034\332>\n\327#\2745\001\n\n\327\243<\341z\024?\254\034"
 & "\332>\000\000\000\0005\001\nB`\345;P\215\027?\254\034\332>\234\304 \276"
 & "5\001\n\203\300\312=\022\203\000?\254\034\332>\000\000\000\0005\001\n5^"
 & ":>w\276\337>d;\037?\033/\335\2755\001\n\315\314";

CONST E1_39 =
   "\214>y\351\246>\000\000@?\000\000\200\2765\001\ny\351&>\031\004\326>d;\037"
 & "?\033/\335\2755\001\n%\006\201=q=\n?\n\327\243>^\272I>00000000000000000"
 & "5\001\n\\\217\302=\256G\001?\254\034\332>\000\000\000\0005\001\n\276\237"
 & "\032>7\211\301>1\010,?\311v\376>5\001\n\331\316w>\305 \360>1\010,?\311v"
 & "\376>5\001\n\266\363\375=F\266\363>\213l\'?X9\364>5\001\n=\n\327=\234\304"
 & "\000?\321\"\033?5^\372>5\001\n\217\302\365=\217\302\365>\327\243\020?ff"
 & "\006?5\001\n\010\254\034>/\335\344>m\347\033?\211A\000?5\001\n\333\371~"
 & ">X9\264>\341z\024?X9\364>5\001\nP\215\027>\236\357\347>\354Q\030?m\347\373"
 & ">05\001\nd;_>\201\225\303>\022\203 ?V\016\355>5\001\nB`e>\020X\271>\n\327"
 & "#<\276\237\032\27605\001\n\'1\010>q=\n?1\010,?\311v\376>5\001\n\260rh>\244"
 & "p\275>\000\000\000\000\276\237\032\2765\001\n\266\363\375=F\266\363>\226"
 & "C+?m\347\373>05\001\n\374\251q>5^\272>\366(\334>\234\304 \2765\001\n\246"
 & "\233\304=\000\000\000?\033/\035?9\264H\2755\001\n1\010\254=B`\005?\177j"
 & "\034?1\010\254\2745\001\n\006\201\225=y\351\006?7\211\001?h\221m=5\001\n"
 & "\364\375\324<\252\361\022?;\337\017?\000\000\000\0005\001\n\315\314\214"
 & ">y\351\246>\315\314,?333\2765\001\n\213l\347=#\333\371>\341z\024?w\276\237"
 & "\2751\027\f\000\0005\001\n\000\000\000\000\232\231\031?\341z\024?\274t\223"
 & "\2745\001\nw\276\037>\323M\342>\341z\024?\333\371~>5\001\nP\215\027=\305"
 & " \020?\035Z\344>)\\\217=5\001\n\016-\262=\370S\003?\221\355\274>\033/\335"
 & "=5\001\n\252\361\322=\311v\376>\205\353\221>D\213l>5\001\n\000\000\000\000"
 & "\232\231\031?\341z\024?\274t\223\2741\024\f\000\0005\001\nm\347\373=X9\364"
 & ">d;\037?^\272\211>5\001\n\016-\262=\370S\003?\027\331\016?X94=5\001\n}?"
 & "5>\207\026\331>d;\037?\333\371~>5\001\nR\270\036>;\337\317>d;\037?\217\302"
 & "u>1\021\f\000\0005\001\n1\010\254<;\337\017?\254\034\332>\234\304 \2765"
 & "\001\n\315\314L=\345\320\002?;\337\017?w\276\237\2755\001\n\370Sc>7\211"
 & "\301>\213l\247>7\211A>1\031\f\000\0005\001\n\305 0>\321\"\333>d;\037?\333"
 & "\371~>5\001\n\234\304 >\345\320\342>\341z\024?\333\371~>5\001\nP\215\027"
 & "=\305 \020?\035Z\344>)\\\217=5\001\n\000\000\000\000\232\231\031?q=*?\325"
 & "xi\2755\001\n\000\000\000\000\177j\034?q=*?\325xi\2755\001\no\022\003<\331"
 & "\316\027?\372~*?B`e\2755\001\n\033/\335=\351&\361>\366(\334>\234\304 \276"
 & "5\001\n\246\233D;\376\324\030?\f\002K?\000\000\000\0005\001\n\246\233D;"
 & "\376\324\030?\f\002K?\000\000\000\0005\001\n\246\233D;\376\324\030?ffF?"
 & "\000\000\000\0005\001\n\246\233D;\376\324\030?Zd;?\000\000\000\0005\001"
 & "\n\246\233D;\376\324\030?\321\";?\000\000\000\0005\001\n\246\233D;\376\324"
 & "\030?\234\304@?\000\000\000\0005\001\n\246\233D;\315\314\f?;\337\017?\000"
 & "\000\000\0005\001\n\236\357\'=q=\n?\341z\024?\276\237\032\2765\001\n\207"
 & "\026Y=\315\314\f?\f\002K?\000\000\000\0005\001\n\207\026Y=\315\314\f?\f"
 & "\002K?\000\000\000\0005\001\n\207\026Y=\315\314\f?ffF?\000\000\000\0005"
 & "\001\n\207\026Y=\315\314\f?\321\";?\000\000\000\0005\001\n\246\233\304="
 & "%\006\001?\f\002K?\000\000\000\0005\001\n\246\233\304=%\006\001?\f\002K"
 & "?\000\000\000\0005\001\n\246\233\304=%\006\001?ffF?\000\000\000\0005\001"
 & "\n\246\233\304=%\006\001?\321\";?\000\000\000\0005\001\n\217\302\365<\252"
 & "\361\022?;\337\017?\000\000\000\0005\001\nB`\345;\331\316\027?Zd;?\364\375"
 & "T\2745\001\n\305 0=\215\227\016?\f\002K?\274t\223\2745\001\n\305 0=\215"
 & "\227\016?\f\002K?\274t\223\2745\001\n\305 0=\215\227\016?ffF?\274t\223\274"
 & "5\001\n\305 0=\215\227\016?Zd;?\274t\223\2745\001\n\305 0=\215\227\016?"
 & "\321\";?\274t\223\2745\001\n\016-\262=\n\327\003?\327\243\360>\305 0=5\001"
 & "\n\305 0=\215\227\016?%\006!?\n\327\243\2755\001\n\226C\213<}?\025?\f\002"
 & "K?\274t\223\2745\001\n\226C\213<}?\025?\f\002K?\274t\223\2745\001\n\226"
 & "C\213<}?\025?ffF?\274t\223\2745\001\n\226C\213<}?\025?\321\";?\274t\223"
 & "\2745\001\n\246\233\304<\274t\023?\f\002K?\000\000\000\0005\001\n\301\312"
 & "\241=^\272\t?;\337\017?\000\000\000\0005\001\n\246\233D=+\207\026?%\006"
 & "!?\217\302u\2745\001\n\207\026Y=\240\032\017?1\010,?\217\302u\2745\001\n"
 & "\207\026Y=\240\032\017?1\010,?\217\302u\2745\001\n\207\026Y=\240\032\017"
 & "?\213l\'?\217\302u\2745\001\n\207\026Y=\240\032\017?\321\"\033?\217\302"
 & "u\2745\001\n\207\026Y=\240\032\017?\354Q\030?\217\302u\2745\001\n\207\026"
 & "Y=\240\032\017?\022\203 ?\217\302u\2745\001\n\343\245\233<\205\353\021?"
 & "\301\312\341>\217\302u\2745\001\n\002+\207=\213l\007?\301\312\341>\276\237"
 & "\032\2765\001\n\002+\207=\272I\f?1\010,?\217\302u\2745\001\n\002+\207=\272"
 & "I\f?1\010,?\217\302u\2745\001\n\002+\207=\272I\f?\213l\'?\217\302u\2745"
 & "\001\n\002+\207=\272I\f?\354Q\030?\217\302u\2745\001\n\\\217\302=\256G\001"
 & "?1\010,?\000\000\000\0005\001\n\\\217\302=\256G\001?1\010,?\000\000\000"
 & "\0005\001\n\022\203\300=\256G\001?\213l\'?\000\000\000\0005\001\n\\\217"
 & "\302=\256G\001?\354Q\030?\000\000\000\0005\001\n\266\363}=^\272\t?%\006"
 & "!?\217\302u\2745\001\n\364\375\324<33\023?\321\"\033?\000\000\000\0005\001"
 & "\n\266\363}=^\272\t?1\010,?\217\302u\2745\001\n\266\363}=^\272\t?1\010,"
 & "?\217\302u\2745\001\n\266\363}=^\272\t?\213l\'?\217\302u\2745\001\n\266"
 & "\363}=^\272\t?\321\"\033?\217\302u\2745\001\n\266\363}=^\272\t?\354Q\030"
 & "?\217\302u\2745\001\n\016-\262=\370S\003?\240\032\357>\246\233D=5\001\n"
 & "\266\363}=^\272\t?7\211\001?\n\327\243\2755\001\n1\010\254<;\337\017?1\010"
 & ",?\217\302u\2745\001\n1\010\254<;\337\017?1\010,?\217\302u\2745\001\n1\010"
 & "\254<;";

CONST E1_40 =
   "\337\017?\213l\'?\217\302u\2745\001\n1\010\254<;\337\017?\354Q\030?\217"
 & "\302u\2745\001\nB`\345;P\215\027?1\010,?\234\304 \2765\001\n\246\233\304"
 & "\273{\024\016?%\006!?\234\304 \2765\001\nB`\345;P\215\027?\354Q\030?\234"
 & "\304 \2760000\005\000\000\000\000\000\000\000\030\000\000\000\000\000\000"
 & "\000\006\000\000\000\000\000\000\000\r\000\000\000\000\000\000\0004\n";

CONST E2 =
   "MODULE Pen;\n\nIMPORT R2, PS;\n\n(* A module for simulating strokes of "
 & "a \n   calligraphic pen. *)\n\nPRIVATE FUNC d = MidVector(p, q) IS \n  "
 & "(E px, py, qx, qy, dx, dy :: \n    p = (px, py) AND \n    q = (qx, qy) "
 & "AND \n    d = (dx, dy) AND \n    dx = (qx - px) / 2 AND \n    dy = (qy "
 & "- py) / 2) \nEND;\n\n/* \"d\" is the vector from \"p\" to the \n   midp"
 & "oint of the segment (p,q). */\n\nPRIVATE PROC Line(a, b, p, q) IS \n  I"
 & "F \n    VAR del, aL, aR, bL, bR, cL, cR, dL, dR IN \n      del = MidVec"
 & "tor(p, q) AND \n      aL = R2.Minus(a, del) AND \n      aR = R2.Plus(a,"
 & " del) AND \n      bL = R2.Minus(b, del) AND \n      bR = R2.Plus(b, del"
 & ") -> \n        PS.MoveTo(aL); \n        PS.LineTo(bL); \n        PS.Lin"
 & "eTo(bR); \n        PS.LineTo(aR); \n        PS.Close(); \n        PS.Fi"
 & "ll() \n    END \n  FI \nEND;\n\n/* Stroke the segment \"ab\" with a \n "
 & "  calligrapher\'s pen determined by the \n   segment \"pq\". */\n\nPRIV"
 & "ATE FUNC p = B3Point(t, a, b, c, d) IS \n  (E ab, bc, cd, abc, bcd :: \n"
 & "    ab = (t, 0) REL (a, b) AND \n    bc = (t, 0) REL (b, c) AND \n    c"
 & "d = (t, 0) REL (c, d) AND \n    abc = (t, 0) REL (ab, bc) AND \n    bcd"
 & " = (t, 0) REL (bc, cd) AND \n    p = (t, 0) REL (abc, bcd)) \nEND;\n\n/"
 & "* \"p\" is a point on the curve (a,b,c,d) \n   such that p = (x(t), y(t"
 & ")), where x() and \n   y() are the parametric coordinate \n   functions"
 & " of the curve. */\n\nPRIVATE PRED \n  OnSplineTan(t, a, b, c, d, p, pL,"
 & " pR) IS \n  (E ab, bc, cd :: \n    ab = (t, 0) REL (a, b) AND \n    bc "
 & "= (t, 0) REL (b, c) AND \n    cd = (t, 0) REL (c, d) AND \n    pL = (t,"
 & " 0) REL (ab, bc) AND \n    pR = (t, 0) REL (bc, cd) AND \n    p = (t, 0"
 & ") REL (pL, pR)) \nEND;\n\n/* \"p\" is the point on the spline (a,b,c,d)"
 & " \n   whose tangent is parallel to the segment \n   (pL,pR), where \"pL"
 & "\" and \"pR\" are the \n   points surrounding \"p\" in the segment \n  "
 & " construction of a point on a spline. */\n\nPRIVATE PROC \n  Notch(aL, "
 & "bL, cL, dL, aR, bR, cR, dR, p, q) IS \n  IF \n    VAR t ~ 0.5, p1, p1L,"
 & " p1R, p2 IN \n      OnSplineTan(t, aL, bL, cL, dL, p1, \n              "
 & "    p1L, p1R) AND \n      (p1L, p1R) P";

CONST E2_0 =
   "ARA (p, q) AND \n      p2 = R2.Plus(p1, R2.Minus(q, p)) -> \n        IF"
 & " \n          0 <= t AND t <= 1 -> \n            IF \n              VAR "
 & "\n                tL ~ (1 + t) / 2, \n                tR ~ t / 2, \n   "
 & "             p0 ~ (0.5, 0) REL (p1, p2) \n              IN \n          "
 & "      p0 = \n                  B3Point(tL, aL, bL, cL, dL) AND \n      "
 & "          p0 = \n                  B3Point(tR, aR, bR, cR, dR) -> \n   "
 & "               IF \n                    0 <= tL AND \n                 "
 & "   tL <= 1 AND \n                    0 <= tR AND \n                    "
 & "tR <= 1 -> \n                      PS.MoveTo(p0); \n                   "
 & "   PS.LineTo(p1); \n                      PS.LineTo(p2); \n            "
 & "          PS.Close(); \n                      PS.Fill() | SKIP \n      "
 & "            FI | SKIP \n              END \n            FI | SKIP \n   "
 & "     FI | SKIP \n    END \n  FI \nEND;\n\nPRIVATE PROC Curve(a, b, c, d"
 & ", p, q) IS \n  IF \n    VAR del, aL, aR, bL, bR, cL, cR, dL, dR IN \n  "
 & "    del = MidVector(p, q) AND \n      aL = R2.Minus(a, del) AND \n     "
 & " aR = R2.Plus(a, del) AND \n      bL = R2.Minus(b, del) AND \n      bR "
 & "= R2.Plus(b, del) AND \n      cL = R2.Minus(c, del) AND \n      cR = R2"
 & ".Plus(c, del) AND \n      dL = R2.Minus(d, del) AND \n      dR = R2.Plu"
 & "s(d, del) -> \n        Notch(aL, bL, cL, dL, aR, bR, cR, \n            "
 & "  dR, p, q); \n        PS.MoveTo(aR); \n        PS.CurveTo(bR, cR, dR);"
 & " \n        PS.LineTo(dL); \n        PS.CurveTo(cL, bL, aL); \n        P"
 & "S.Close(); \n        PS.Fill() \n    END \n  FI \nEND;\n\n/* Stroke the"
 & " Bezier cubic \"a\", \"b\", \"c\", \n   \"d\" with a calligrapher\'s pe"
 & "n determined \n   by the segment \"pq\". */\n\nPROC Stroke(p, q) IS \n "
 & " VAR path, currPt, startPt IN \n    path := PS.CurrentPath(); \n    PS."
 & "NewPath(); \n    currPt, startPt := NIL, NIL; \n    DO \n      path # N"
 & "IL -> \n        IF \n          VAR op, args IN \n            CAR(path) "
 & "= (op, args) -> \n              IF \n                op = \"MoveTo\" ->"
 & " \n                  startPt := CAR(args); \n                  currPt :"
 & "= startPt \n              | ";

CONST E2_1 =
   "op = \"LineTo\" -> \n                  Line(currPt, CAR(args), p, \n   "
 & "                    q); \n                  currPt := CAR(args) \n     "
 & "         | op = \"CurveTo\" -> \n                  VAR b, c, d IN \n   "
 & "                 args = [b, c, d] -> \n                      Curve(curr"
 & "Pt, b, c, d, \n                            p, q); \n                   "
 & "   currPt := d \n                  END \n              | op = \"Close\""
 & " -> \n                  Line(currPt, startPt, p, q); \n                "
 & "  currPt, startPt := NIL, NIL \n              FI \n          END \n    "
 & "    FI; \n        path := CDR(path) \n    OD \n  END \nEND;\n\nUI Point"
 & "Tool(Stroke);\n\n(* Stroke the current path with a \n   calligrapher\'s"
 & " pen determined by the \n   segment \"pq\". *)\n\n";

CONST E3 =
   "P4\n11 8\n\004\000\016\000\037\000?\200\177\300\377\340\000\000\000\000"
;

CONST E4 =
   "MODULE Arrow;\n\n(* Procedures for drawing directed edges. *)\n\nIMPORT"
 & " Geometry, PS;\n\nPRIVATE CONST \n  WidthBase = 8, \n  WidthFactor = 3,"
 & " \n  StubSz = 0.15;\n\n/* If the current line width is \"w\", then \n  "
 & " when the arrowhead size = -1, the size \n   used is: \n\n|  size := Wi"
 & "dthBase + (w * WidthFactor)\n    */\n\nCONST DefaultSize = -1;\n\n(* Th"
 & "is module maintains a current arrowhead \n   size, which is the distanc"
 & "e from its tip \n   to its cusp. If the arrowhead size is \n   negative"
 & ", then the size is determined as a \n   function of the current line wi"
 & "dth. *)\n\nPRIVATE VAR size := DefaultSize;\n\nPROC SetSize(sz) IS size"
 & " := sz END;\n\nUI SetTool(SetSize);\n\n(* Set the current arrowhead siz"
 & "e to \"sz\". *)\n\nUI Param(SetSize, DefaultSize);\n\nUI Param(SetSize,"
 & " 12);\n\nUI Param(SetSize, 16);\n\nUI Param(SetSize, 20);\n\nUI Param(S"
 & "etSize, 24);\n\nUI Param(SetSize, 28);\n\nUI Param(SetSize, 48);\n\nPRO"
 & "C sz := GetSize() IS sz := size END;\n\n(* Return the current arrow hea"
 & "d size. A \n   negative result means the arrow head size \n   is determ"
 & "ined from the current line width. \n*)\n\nPROC sz := HeadSize() IS \n  "
 & "IF \n    size < 0 -> \n      VAR w IN \n        w := PS.GetWidth(); \n "
 & "       IF w = 0 -> w := 1 | SKIP FI; \n        sz := WidthBase + (Width"
 & "Factor * w) \n      END | sz := size \n  FI \nEND;\n\n(* Set \"sz\" to "
 & "the size to use to draw \n   arrowheads. This is usually the same as \n"
 & "   the value of the \"GetSize\" procedure, \n   unless that is negative"
 & ", in which case it \n   is a function of the current line width. *)\n\n"
 & "PRIVATE PROC DrawHead(a, b) IS \n  IF \n    VAR \n      c = (-0.16, 0.3"
 & "6) REL (a, b), \n      d = (-0.16, -0.36) REL (a, b) \n    IN \n      S"
 & "AVE PS IN \n        PS.SetJointStyle(PS.MiterJoints); \n        PS.Move"
 & "To(a); \n        PS.LineTo(c); \n        PS.LineTo(b); \n        PS.Lin"
 & "eTo(d); \n        PS.Close(); \n        PS.Fill() \n      END \n    END"
 & " \n  FI \nEND;\n\n/* Draw the head of an arrow with its cusp at \n   \""
 & "a\" and its tip at \"b\". The arrowhead is \n   filled with paint of th"
 & "e current color. */\n\nPRIVATE PROC DrawHeadWith";

CONST E4_0 =
   "Tail(a, b) IS \n  IF \n    VAR c = (StubSz, 0) REL (a, b) IN \n      SA"
 & "VE PS IN \n        PS.SetEndStyle(PS.ButtEnds); \n        PS.MoveTo(a);"
 & " \n        PS.LineTo(c); \n        PS.Stroke() \n      END; \n      Dra"
 & "wHead(c, b) \n    END \n  FI \nEND;\n\n/* Draw an arrow head with a sma"
 & "ll tail. The \n   tail starts at \"a\", and the tip of the \n   head is"
 & " at \"b\". */\n\nFUNC p = StraightEnd(a, b, dist) IS \n  (E p0 ~ Geomet"
 & "ry.Mid(a, b) :: \n    Geometry.Colinear(a, p0, b) AND \n    dist = Geom"
 & "etry.Dist(p0, b) AND \n    p = p0) \nEND;\n\n(* \"p\" is the point on t"
 & "he line \"ab\" closest \n   to \"a\" and a distance \"dist\" from \"b\""
 & ". *)\n\nPROC Head(a, b) IS \n  IF \n    VAR p = StraightEnd(a, b, HeadS"
 & "ize()) IN \n      IF \n        VAR c = (StubSz, 0) REL (p, b) IN \n    "
 & "      DrawHead(c, b) \n        END \n      FI \n    END \n  FI \nEND;\n"
 & "\nUI PointTool(Head);\n\n(* Draw an arrow head with no tail as if the \n"
 & "   tail started at \"a\" and ended at \"b\". *)\n\nPROC Straight(a, b) "
 & "IS \n  IF \n    VAR p = StraightEnd(a, b, HeadSize()) IN \n      PS.Mov"
 & "eTo(a); \n      PS.LineTo(p); \n      PS.Stroke(); \n      DrawHeadWith"
 & "Tail(p, b) \n    END \n  FI \nEND;\n\nPROC DblStraight(a, b) IS \n  IF "
 & "\n    VAR \n      sz = HeadSize(), \n      p = StraightEnd(b, a, sz), \n"
 & "      q = StraightEnd(a, b, sz) \n    IN \n      DrawHeadWithTail(p, a)"
 & "; \n      PS.MoveTo(p); \n      PS.LineTo(q); \n      PS.Stroke(); \n  "
 & "    DrawHeadWithTail(q, b) \n    END \n  FI \nEND;\n\nUI PointTool(Stra"
 & "ight);\n\nUI PointTool(DblStraight);\n\n(* Draw a directed or doubly-di"
 & "rected edge, \n   respectively, from \"a\" to \"b\". Requires \n   that"
 & " \"a # b\". *)\n\nPROC Curved(a, b, c, d) IS \n  IF \n    VAR p = Strai"
 & "ghtEnd(c, d, HeadSize()) IN \n      PS.MoveTo(a); \n      PS.CurveTo(b,"
 & " c, p); \n      PS.Stroke(); \n      DrawHeadWithTail(p, d) \n    END \n"
 & "  FI \nEND;\n\nPROC DblCurved(a, b, c, d) IS \n  IF \n    VAR \n      s"
 & "z = HeadSize(), \n      p = StraightEnd(b, a, sz), \n      q = Straight"
 & "End(c, d, sz) \n    IN \n      DrawHeadWithTail(p, a); \n      PS.MoveT"
 & "o(p); \n      PS.CurveTo(b, c, q); \n      PS.Stroke(); \n      ";

CONST E4_1 =
   "DrawHeadWithTail(q, d) \n    END \n  FI \nEND;\n\nUI PointTool(Curved);"
 & "\n\nUI PointTool(DblCurved);\n\n(* Draw a directed or doubly-directed c"
 & "urved \n   edge, respectively, from \"a\" to \"d\" with \n   Bezier con"
 & "trol points \"b\" and \"c\". \n   Requires that \"c # d\". *)\n\nPRIVAT"
 & "E VAR history := NIL;\n\nPROC Save() IS history := (size, history) END;"
 & "\n\nPROC Restore() IS \n  size := CAR(history); \n  history := CDR(hist"
 & "ory) \nEND;\n\nUI PointTool(Save);\n\nUI PointTool(Restore);\n\n(* Save"
 & "/restore the current arrow size. *)\n\n";

CONST E5 =
   "MODULE Shadow;\n\n(* Procedures for drawing 3D shadow effects. *)\n\nIM"
 & "PORT Color, R2, Geometry, PS;\n\nCONST DefaultWidth = 4;\n\n(* This mod"
 & "ule maintains a current shadow width. *)\n\nPRIVATE VAR width := Defaul"
 & "tWidth;\n\nPROC SetWidth(w) IS width := w END;\n\nUI SetTool(SetWidth);"
 & "\n\n(* Set the current shadow width to \"w\". *)\n\nUI Param(SetWidth, "
 & "DefaultWidth);\n\nUI Param(SetWidth, 1);\n\nUI Param(SetWidth, 2);\n\nU"
 & "I Param(SetWidth, 3);\n\nUI Param(SetWidth, 4);\n\nUI Param(SetWidth, 5"
 & ");\n\nUI Param(SetWidth, 7);\n\nUI Param(SetWidth, 10);\n\nCONST \n  De"
 & "faultColors = (Color.Grey75, Color.Grey25), \n  ReverseColors = (Color."
 & "Grey25, Color.Grey75);\n\n(* This module maintains a current pair of co"
 & "lors, \n   which are the two colors used to draw the shadows. \n   By d"
 & "efault, the shadows are drawn so a light source \n   appears to be shin"
 & "ing on a raised object from the \n   upper-left. *)\n\nPRIVATE VAR colo"
 & "rs := DefaultColors;\n\nPROC SetColors(c) IS colors := c END;\n\nUI Set"
 & "Tool(SetColors);\n\n(* Set the current pair of colors to \"c\", which s"
 & "hould \n   be a pair of colors produced using the \"Color\" \n   module"
 & ". *)\n\nUI Param(SetColors, DefaultColors);\n\nUI Param(SetColors, Reve"
 & "rseColors);\n\nPRIVATE PROC Rect0(a, b) IS \n  IF \n    VAR \n      c ="
 & " Geometry.HorVer(b, a), \n      d = Geometry.HorVer(a, b), \n      e = "
 & "R2.Minus(a, (width, width)), \n      f = R2.Plus(b, (width, width)), \n"
 & "      g = Geometry.HorVer(f, e), \n      h = Geometry.HorVer(e, f) \n  "
 & "  IN \n      SAVE PS IN \n        PS.MoveTo(a); \n        PS.LineTo(c);"
 & " \n        PS.LineTo(b); \n        PS.LineTo(f); \n        PS.LineTo(g)"
 & "; \n        PS.LineTo(e); \n        PS.Close(); \n        PS.SetColor(C"
 & "AR(colors)); \n        PS.Fill(); \n        PS.MoveTo(a); \n        PS."
 & "LineTo(d); \n        PS.LineTo(b); \n        PS.LineTo(f); \n        PS"
 & ".LineTo(h); \n        PS.LineTo(e); \n        PS.Close(); \n        PS."
 & "SetColor(CDR(colors)); \n        PS.Fill() \n      END \n    END \n  FI"
 & " \nEND;\n\nPROC Rect(a, b) IS \n  IF \n    VAR ax, ay, bx, by IN \n    "
 & "  a = (ax, ay) AND b = (bx, by) -> \n      ";

CONST E5_0 =
   "  Rect0((MIN(ax, bx), MIN(ay, by)), \n              (MAX(ax, bx), MAX(a"
 & "y, by))) \n    END \n  FI \nEND;\n\nUI PointTool(Rect);\n\n(* Draw shad"
 & "ows around the rectangle with corners \"a\" \n   and \"b\" that is squa"
 & "rely oriented with the page. The \n   shadows are drawn in the current "
 & "shadow width and \n   colors. The west and north shadows are filled wit"
 & "h \n   the first color, and the east and south shadows are \n   filled "
 & "with the second color. *)\n\nPROC RectC(c, b) IS \n  IF VAR a = (-1, 0)"
 & " REL (c, b) IN Rect(a, b) END FI \nEND;\n\nUI PointTool(RectC);\n\n(* L"
 & "ike \"Rect\" above, but the rectangle is specified by \n   its center \""
 & "c\" and one of its corners \"b\". *)\n\nPRIVATE VAR history := NIL;\n\n"
 & "PROC Save() IS \n  history := ((width, colors), history) \nEND;\n\nPROC"
 & " Restore() IS \n  VAR head IN \n    head := CAR(history); \n    width :"
 & "= CAR(head); \n    colors := CDR(head) \n  END; \n  history := CDR(hist"
 & "ory) \nEND;\n\nUI PointTool(Save);\n\nUI PointTool(Restore);\n\n(* Save"
 & "/restore the current shadow state. *)\n";

CONST E6 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Thu Mar 28 17:07:59 PST "
 & "1996 by heydon                   \n;      modified on Sun Jun 11 17:30:"
 & "56 PDT 1995 by gnelson                  \n\n(Rim (Pen 5)\n  (Macro Gap "
 & "() \'(Glue 5 + Inf))\n  (Macro VGap () \'(Glue 5))\n  (Macro LeftText B"
 & "OA (t)\n    `(HBox (Shape (Width 45 + 0) (Text RightAlign ,t)) (Glue 2)"
 & "))\n (VBox\n  (HBox\n    (LeftText \"Name:\")\n    (Frame Lowered (MyBr"
 & "owserFont)\n      (Shape (Width 100 + Inf)\n        (TypeIn %declName F"
 & "irstFocus (BgColor \"White\")))\n    )\n  )\n  (VGap)\n  (Radio %typeRa"
 & "dio\n    (HBox\n      (LeftText \"Type:\")\n      (HBox\n        Fill\n"
 & "        (Choice %procType \"PROC\") (Gap)\n        (Filter (Choice %pre"
 & "dType \"PRED\")) (Gap)\n        (Choice %templType \"Template\")\n     "
 & "   Fill\n      )\n    )\n  )\n  (VGap)\n  (Radio %toolRadio\n    (HBox\n"
 & "      (LeftText \"Tool:\")\n      (HBox\n        Fill\n        (Choice "
 & "%pointTool \"Point\") (Gap)\n        (Choice %noTool    \"None\")\n    "
 & "    Fill\n      )\n    )\n  )\n  (VGap)\n  (HBox\n    Fill\n    (Button"
 & " %foldOk \"  OK  \")\n    Fill\n  )\n))\n";

CONST E7 =
   "MODULE JunoUI;\n\n(* This module provides information to the Juno progr"
 & "am about the \n   state of the Juno application user interface. *) \n  "
 & " \nPROC nm := DragName() IS SKIP END; /* external procedure */\n\n(* \""
 & "DragName()\" returns the name of the point currently being dragged by\n"
 & "the user, or \"NIL\" if the user isn\'t dragging. *)\n\nPROC pt := Drag"
 & "Loc() IS SKIP END; /* external procedure */\n\n(* \"DragLoc()\" returns"
 & " the location of the point currently being dragged by\nthe user, or \"N"
 & "IL\" if the user isn\'t dragging. *)\n\nPROC pr := GetClick() IS SKIP E"
 & "ND;\n\n(* UNIMPLEMENTED!\n\n   Blocks and waits for the user to click t"
 & "he mouse in the drawing window,\n   then returns a value of the form \""
 & "((x,y),(tp,bt))\" where \"(x,y)\" are\n   the Juno coordinates of the p"
 & "osition of the click, \"tp\" is one\n   of \"FirstDown\", \"OtherDown\""
 & ", \"OtherUp\", and \"LastUp\" and identifies\n   the type of the click,"
 & " and \"bt\" is 0, 1, 2 identifying the left,\n   middle, and right mous"
 & "e button respectively. *)\n\n";

CONST E8 =
   "MODULE Unit;\n\n(* Defines constants and \n   procedures for various un"
 & "its \n   of length. The lengths are\n   defined in terms of the units\n"
 & "   of Juno\'s coordinate system,\n   which are PostScript points\n   (e"
 & "qual to 1/72 of an inch). *)\n\nCONST \n  In = 72.0, \n  Ft = In * 12.0"
 & ", \n  Cm = In / 2.54, \n  Mm = Cm / 10.0;\n\n(* \"In\", \"Ft\", \"Cm\","
 & " and \"Mm\" \n   are the size (in points) of \n   one inch, one foot, o"
 & "ne \n   centimeter, and one \n   millimeter, respectively. *)\n\n(* Jun"
 & "o\'s coordinate system \n   uses screen-independent \n   units, but the"
 & "re are cases \n   in which screen-dependent \n   units could be useful."
 & " This \n   is most often the case when \n   PostScript output is not \n"
 & "   being generated, and it is \n   important that the \n   quantization"
 & " error induced \n   by the discrete pixels on \n   the screen not effec"
 & "t the \n   regularity of the drawing. \n   For example, it would be \n "
 & "  more convenient to use \n   screen-dependent units to \n   draw a ser"
 & "ies of \n   evenly-spaced horizontal \n   lines. The following \n   pro"
 & "cedure can be used to \n   obtain the screen-dependent \n   size of a s"
 & "ingle pixel. *)\n\nPROC x, y := Pixel() IS \n  SKIP \nEND;\n\n(* \"x\" "
 & "and \"y\" are the \n   horizontal and vertical size \n   (in points) of"
 & " a pixel on \n   the screen on which Juno is \n   running. Use this pro"
 & "cedure \n   in your Juno programs with \n   care, since it will cause \n"
 & "   your program to be \n   screen-dependent. *)\n\n";

CONST E9 =
   "MODULE PS;\n\n/* A template for the PS interface to be \n   read in But"
 & "ton or Public view only. */\n\n(* The built-in Juno PostScript module. "
 & "*)\n\nIMPORT Color;\n\n(* \\section{Coordinate System} *)\n\n(* Juno us"
 & "es the same coordinate system\n   as the default PostScript coordinate\n"
 & "   system. The origin of this coordinate\n   system is the lower-left c"
 & "orner of the\n   page with \"x\" and \"y\" coordinates\n   increasing t"
 & "o the left and up,\n   respectively. The units of the coordinate\n   sy"
 & "stem are PostScript {\\it points}, equal\n   to 1/72 of an inch. The \""
 & "Unit\" module\n   defines constants and procedures for\n   converting f"
 & "rom points to other units. *)\n\n(* \\section{Drawing Model} *)\n\n(* J"
 & "uno uses the PostScript drawing model.\n   In this model, ink is painte"
 & "d on the page\n   by defining a {\\it path} of straight and\n   curved "
 & "segments, and then {\\it stroking}\n   or {\\it filling} the path with "
 & "ink. There\n   are separate procedures for painting text\n   in a parti"
 & "cular font. There are also\n   procedures for reading the values of\n  "
 & " the PostScript state, such as the current\n   point, and for measuring"
 & " text strings. *)\n\n(* \\section{Paths} *)\n\n(* A {\\it segment} is a"
 & " directed arc. A\n   segment is defined mathematically by two\n   param"
 & "etric univariate cubic polynomials \"x(t)\"\n   and \"y(t)\", where \"t"
 & "\" ranges over the closed\n   interval \"[0, 1]\". The segment starts a"
 & "t\n   \"(x(0), y(0))\" and ends at \"(x(1), y(1))\". If \n   \"x\" and "
 & "\"y\" are linear functions of \n   \"t\", then the segment is {\\it lin"
 & "ear}: it \n   corresponds to a straight line \n   segment. If \"x\" and"
 & " \"y\" are constant \n   functions of \"t\", then the segment is \n   {"
 & "\\it degenerate}: it consists of a single \n   point. \n\n   A {\\it su"
 & "b-path} is a connected sequence \n   of straight and curved line segmen"
 & "ts. \n   Within a sub-path, each segment \n   begins where the previous"
 & " segment \n   ends. \n\n   Each sub-path is either {\\it open} or \n   "
 & "{\\it closed}. In a closed sub-path, the \n   last segment ends where t"
 & "he first \n   segment begins. (This may also";

CONST E9_0 =
   " happen \n   for an open sub-path, but this \n   coincidence does not m"
 & "ake the \n   sub-path closed.) \n\n   A {\\it path} is a (possibly empt"
 & "y) \n   sequence of sub-paths. This module \n   maintains a {\\it curre"
 & "nt path}. The \n   endpoint of the last segment of the \n   last open s"
 & "ub-path of the current \n   path is called the {\\it current point}; \n"
 & "   if the current path is empty, or if \n   the last sub-path of the cu"
 & "rrent path \n   is closed, the current point is \n   undefined. *)\n\n("
 & "* Variables named \"p\", \"q\", \"r\", and \n   \"s\" are points. *)\n\n"
 & "PROC NewPath() IS SKIP END;\n\n(* Make the current path empty. *)\n\nPR"
 & "OC MoveTo(p) IS SKIP END;\n\nUI PointTool(MoveTo);\n\n(* Let \"pp\" be "
 & "a new degenerate open \n   sub-path starting and ending at \"p\". \n   "
 & "In the usual case, this procedure \n   appends \"pp\" to the current pa"
 & "th. \n   However, in the special case that the \n   current sub-path is"
 & " non-empty, open, \n   and degenerate (i.e., \"MoveTo\" was \n   the mo"
 & "st-recently called path \n   construction procedure), this \n   procedu"
 & "re instead replaces the \n   current sub-path with \"pp\". In either \n"
 & "   case, \"p\" becomes the current point. *)\n\nPROC LineTo(p) IS SKIP "
 & "END;\n\nUI PointTool(LineTo);\n\n(* Extend the current path with a \n  "
 & " straight line segment from the \n   current point to \"p\"; \"p\" beco"
 & "mes the \n   current point. It is a checked \n   run-time error for the"
 & " current point \n   to be undefined. *)\n\nPROC CurveTo(q, r, s) IS SKI"
 & "P END;\n\nUI PointTool(CurveTo);\n\n(* Extend the current path with a B"
 & "ezier \n   curve determined by the current \n   point, \"q\", \"r\", an"
 & "d \"s\"; \"s\" becomes \n   the current point. It is a checked \n   run"
 & "-time error for the current point \n   to be undefined. *)\n\n(* \"Curv"
 & "eTo\" adds a curve that starts at \n   the current point in the directi"
 & "on of \n   \"q\", and ends at \"s\" coming from the \n   direction of \""
 & "r\". More precisely, let \n   \"p\" be the current point, and let \n   "
 & "\"x(t)\" and \"y(t)\" be the cubic \n   polynomials such that: \n\n|   "
 & " (x(0), y(0)) = p\n|    (x(1), y(1)) = s\n|    (x\'(0), y\'(0)";

CONST E9_1 =
   ") = 3 * (q - p)\n|    (x\'(1), y\'(1)) = 3 * (s - r)\n\n   (where the p"
 & "rimes denote \n   differentiation with respect to \"t\"). \n   Then \"C"
 & "urveTo\" adds the segment \n   \"(x(t), y(t))\" to the current path, fo"
 & "r \n   \"t\" in the closed interval \"[0, 1]\". This \n   is called the"
 & " {\\it Bezier arc} determined \n   by \"p\", \"q\", \"r\", and \"s\". *"
 & ")\n\nPROC Close() IS SKIP END;\n\nUI PointTool(Close);\n\n(* Closes the"
 & " last sub-path of the \n   current path by adding a straight \n   line "
 & "segment from the current point \n   to the starting point of the curren"
 & "t \n   sub-path. It is a checked run-time \n   error for the current po"
 & "int to be\n   undefined. *)\n\n(* \\section{Painting} *)\n\nPROC Stroke"
 & "() IS SKIP END;\n\nUI PointTool(Stroke);\n\n(* Stroke the current path "
 & "using the \n   current color, current width, current \n   end style, an"
 & "d current joint style. *)\n\nPROC Fill() IS SKIP END;\n\nUI PointTool(F"
 & "ill);\n\n(* Fill the region enclosed by the\n   current path in the cur"
 & "rent \n   color according to the current \n   winding style. If the pat"
 & "h consists\n   of several disconnected sub-paths,\n   the subpaths are "
 & "filled individually.\n   Any open subpaths are implicitly\n   closed be"
 & "fore being filled. *)\n\nPROC Type(p, txt) IS SKIP END;\n\nUI TextTool("
 & "Type);\n\n(* Paint the string \"txt\" at the point \n   \"p\" in the cu"
 & "rrent font and the \n   current color. The current path is \n   unchang"
 & "ed.\n\n   The \"Type\" procedure uses the\n   ISO-Latin-1 character enc"
 & "oding for\n   the Courier, Helvetica, and Times\n   font families, and "
 & "the Symbol character\n   encoding for the Symbol font family.\n   See A"
 & "ppendix E of the ``PostScript\n   Language Reference Manual, Second\n  "
 & " Edition\'\'. Section E.7 shows the\n   ISO-Latin-1 encoding, and Secti"
 & "on\n   E.12 shows the Symbol encoding.\n\n   Warning: In the ISO-Latin-"
 & "1 encoding,\n   the easy-to-type \"-\" character with\n   code value \\"
 & "055 is a minus sign, while\n   the hyphen is hidden at code value\n   \\"
 & "255. *)\n\n(* \\section{Stroking} *)\n\nCONST DefaultWidth = 1;\n\n(* T"
 & "his module maintains a \"current \n   width\", which i";

CONST E9_2 =
   "s a number. *)\n\nPROC SetWidth(w) IS SKIP END;\n\nUI SetTool(SetWidth)"
 & ";\n\n(* Set the current width to \"w\". It is a \n   checked run-time e"
 & "rror for \"w < 0\". *)\n\nUI Param(SetWidth, DefaultWidth);\n\nUI Param"
 & "(SetWidth, 0);\n\nUI Param(SetWidth, 1);\n\nUI Param(SetWidth, 2);\n\nU"
 & "I Param(SetWidth, 3);\n\nUI Param(SetWidth, 4);\n\nUI Param(SetWidth, 5"
 & ");\n\nUI Param(SetWidth, 10);\n\nUI Param(SetWidth, 20);\n\nCONST \n  B"
 & "uttEnds = 0, \n  RoundEnds = 1, \n  SquareEnds = 2, \n  DefaultEnds = B"
 & "uttEnds;\n\n(* This module maintains a \"current end \n   style\", whic"
 & "h is one of \"ButtEnds\", \n   \"RoundEnds\", or \"SquareEnds\". *)\n\n"
 & "PROC SetEndStyle(es) IS SKIP END;\n\nUI SetTool(SetEndStyle);\n\n(* Set"
 & " the current end style to \"es\". It \n   is a checked run-time error f"
 & "or \"es\" \n   not to be one of the values \n   \"ButtEnds\", \"RoundEn"
 & "ds\", or \n   \"SquareEnds\". *)\n\nUI Param(SetEndStyle, DefaultEnds);"
 & "\n\nUI Param(SetEndStyle, ButtEnds);\n\nUI Param(SetEndStyle, RoundEnds"
 & ");\n\nUI Param(SetEndStyle, SquareEnds);\n\nCONST \n  MiterJoints = 0, "
 & "\n  RoundJoints = 1, \n  BevelJoints = 2, \n  DefaultJoints = MiterJoin"
 & "ts;\n\n(* This module maintains a \"current \n   joint style\", which i"
 & "s one of \n   \"MiterJoints\", \"RoundJoints\", and \n   \"BevelJoints\""
 & ". *)\n\nPROC SetJointStyle(js) IS SKIP END;\n\nUI SetTool(SetJointStyle"
 & ");\n\n(* Set the current joint style to \"js\". \n   It is a checked ru"
 & "n-time error for \n   \"js\" not to be one of the values \n   \"MiterJo"
 & "ints\", \"RoundJoints\", or \n   \"BevelJoints\". *)\n\nUI Param(SetJoi"
 & "ntStyle, DefaultJoints);\n\nUI Param(SetJointStyle, MiterJoints);\n\nUI"
 & " Param(SetJointStyle, RoundJoints);\n\nUI Param(SetJointStyle, BevelJoi"
 & "nts);\n\nPROC w := GetWidth() IS SKIP END;\n\nPROC es := GetEndStyle() "
 & "IS SKIP END;\n\nPROC js := GetJointStyle() IS SKIP END;\n\n(* Return th"
 & "e current line width, end \n   style, and joint style as set by the \n "
 & "  most recent calls to the \n   corresponding \"Set\" procedures. *)\n\n"
 & "(* \\section{Filling} *)\n\nCONST DefaultColor = Color.Black;\n\n(* Thi"
 & "s module maintains a \"current \n   color\", which is specified as a re"
 & "d, \n   green,";

CONST E9_3 =
   " blue triple \"[r, g, b]\". A \n   color is legal if \"0 <= r, g, b <= "
 & "\n   1\". See the \"Color\" module. *)\n\nPROC SetColor(c) IS SKIP END;"
 & "\n\nUI SetTool(SetColor);\n\n(* Set the current color to \"c\". It is a"
 & " \n   checked run-time error for \"c\" not to \n   be a legal color. *)"
 & "\n\nUI Param(SetColor, DefaultColor);\n\nUI Param(SetColor, Color.Black"
 & ");\n\nUI Param(SetColor, Color.White);\n\nUI Param(SetColor, Color.Red)"
 & ";\n\nUI Param(SetColor, Color.Green);\n\nUI Param(SetColor, Color.Blue)"
 & ";\n\nUI Param(SetColor, Color.Cyan);\n\nUI Param(SetColor, Color.Magent"
 & "a);\n\nUI Param(SetColor, Color.Yellow);\n\nUI Param(SetColor, Color.Gr"
 & "ey25);\n\nUI Param(SetColor, Color.Grey50);\n\nUI Param(SetColor, Color"
 & ".Grey75);\n\nCONST \n  NonZeroWinding = 0, \n  OddWinding = 1,\n  Defau"
 & "ltWinding = NonZeroWinding;\n\n(* This module maintains a \"current \n "
 & "  winding style\", which is one of \n   \"OddWinding\" or \"NonZeroWind"
 & "ing\". *)\n\nPROC SetWinding(ws) IS SKIP END;\n\nUI SetTool(SetWinding)"
 & ";\n\n(* Set the current winding style to \n   \"ws\". It is a checked r"
 & "un-time error \n   for \"ws\" not to be one of the \n   constants \"Odd"
 & "Winding\" or \n   \"NonZeroWinding\". *)\n\nUI Param(SetWinding, Defaul"
 & "tWinding);\n\nUI Param(SetWinding, OddWinding);\n\nUI Param(SetWinding,"
 & " NonZeroWinding);\n\nPROC c := GetColor() IS SKIP END;\n\nPROC ws := Ge"
 & "tWinding() IS SKIP END;\n\n(* Return the current color and winding \n  "
 & " style as set by the most recent calls \n   to the corresponding \"Set\""
 & " \n   procedures. *)\n\n(* \\section{Text} *)\n\nCONST \n  FontFaces = "
 & "[\"Times-Roman\", \n               \"Times-Bold\", \n               \"T"
 & "imes-Italic\", \n               \"Times-BoldItalic\", \n               "
 & "\"Helvetica\", \n               \"Helvetica-Bold\", \n               \""
 & "Helvetica-Oblique\", \n               \"Helvetica-BoldOblique\", \n    "
 & "           \"Courier\", \n               \"Courier-Bold\", \n          "
 & "     \"Courier-Oblique\", \n               \"Courier-BoldOblique\", \n "
 & "              \"Symbol\"], \n  DefaultFace = \"Times-Roman\";\n\n(* Thi"
 & "s module maintains a current font \n   face, which is one of the font f"
 & "aces \n   name";

CONST E9_4 =
   "d in the list \"FontFaces\". *)\n\nPROC SetFontFace(nm) IS SKIP END;\n\n"
 & "UI SetTool(SetFontFace);\n\n(* Set the current font face to \"nm\"; \n "
 & "  the current font size is unchanged. \n   It is a checked run-time err"
 & "or for \n   \"nm\" not to be a member of the list \n   \"FontFaces\". *"
 & ")\n\nUI Param(SetFontFace, DefaultFace);\n\nUI Param(SetFontFace, \"Tim"
 & "es-Roman\");\n\nUI Param(SetFontFace, \"Times-Bold\");\n\nUI Param(SetF"
 & "ontFace, \"Times-Italic\");\n\nUI Param(SetFontFace, \"Times-BoldItalic"
 & "\");\n\nUI Param(SetFontFace, \"Helvetica\");\n\nUI Param(SetFontFace, "
 & "\"Helvetica-Bold\");\n\nUI Param(SetFontFace, \"Helvetica-Oblique\");\n"
 & "\nUI Param(SetFontFace, \n         \"Helvetica-BoldOblique\");\n\nUI Pa"
 & "ram(SetFontFace, \"Courier\");\n\nUI Param(SetFontFace, \"Courier-Bold\""
 & ");\n\nUI Param(SetFontFace, \"Courier-Oblique\");\n\nUI Param(SetFontFa"
 & "ce, \n         \"Courier-BoldOblique\");\n\nUI Param(SetFontFace, \"Sym"
 & "bol\");\n\nCONST \n  Tiny = 0, \n  Small = 1, \n  Medium = 2, \n  Big ="
 & " 3, \n  Large = 4, \n  Huge = 5, \n  DefaultSize = Large, \n  FontSizes"
 & " = [Tiny, Small, Medium, Big, \n               Large, Huge];\n\n(* This"
 & " module maintains a current font \n   size, which is one of the symboli"
 & "c \n   font sizes in the list \"FontSizes\". *)\n\nPROC SetFontSize(sz)"
 & " IS SKIP END;\n\nUI SetTool(SetFontSize);\n\n(* Set the current font si"
 & "ze to \"sz\"; \n   the current font face is unchanged. \n   It is a che"
 & "cked run-time error for \n   \"sz\" not to be a member of the list \n  "
 & " \"FontSizes\". *)\n\nUI Param(SetFontSize, DefaultSize);\n\nUI Param(S"
 & "etFontSize, Tiny);\n\nUI Param(SetFontSize, Small);\n\nUI Param(SetFont"
 & "Size, Medium);\n\nUI Param(SetFontSize, Big);\n\nUI Param(SetFontSize, "
 & "Large);\n\nUI Param(SetFontSize, Huge);\n\nPROC SetFont(nm, sz) IS SKIP"
 & " END;\n\n(* Equivalent to \"SetFontFace(nm); \n   SetFontSize(sz)\". *)"
 & "\n\nPROC nm := GetFontFace() IS SKIP END;\n\nPROC sz := GetFontSize() I"
 & "S SKIP END;\n\nPROC nm, sz := GetFont() IS SKIP END;\n\n(* Return the c"
 & "urrent font face and size \n   as set by the most recent calls to \n   "
 & "the corresponding \"Set\" procedures. *)\n\nPROC ptSz := GetFontPtSize("
 & ") IS SKIP ";

CONST E9_5 =
   "END;\n\n(* Return the height in points of the \n   current font. This i"
 & "s the nominal \n   distance between tightly-spaced lines \n   of the fo"
 & "nt, and so is probably \n   larger than the height of the font\'s \n   "
 & "capital letters. *)\n\nPROC asc, dec := FontHeight() IS \n  SKIP \nEND;"
 & "\n\n(* Return the ascent and the decent of \n   the current font. The a"
 & "scent is the \n   height of the character in the font \n   that extends"
 & " furthest above the \n   baseline, and the decent is the depth \n   of "
 & "the character in the font that \n   extends furthest below the baseline"
 & ". \n   Hence, the height of the font\'s \n   bounding box is \"asc + de"
 & "c\". *)\n\nPROC w := StringWidth(txt) IS SKIP END;\n\n(* Return the wid"
 & "th of the string \"txt\" \n   typed in the current font. *)\n\nPROC rec"
 & "t := StringBBox(txt) IS SKIP END;\n\n(* Return the bounding box of the "
 & "string \n   \"txt\" typed at the origin in the \n   current font. The r"
 & "esult \"rect\" is a \n   pair of points \"(sw, ne)\", where \"sw\" \n  "
 & " and \"ne\" are the southwest and \n   northeast corners of the boundin"
 & "g \n   box, respectively. *)\n\n(* \\section{Current Path State} *)\n\n"
 & "PROC p := CurrentPoint() IS SKIP END;\n\n(* Returns the current point, "
 & "or \"NIL\" \n   if the current point is undefined. \n   The current poi"
 & "nt is defined if and \n   only if the current path is non-empty \n   an"
 & "d its last sub-path is open. *)\n\nPROC path := CurrentPath() IS SKIP E"
 & "ND;\n\n(* Returns a description of the current \n   path, or \"NIL\" if"
 & " the current path is \n   empty. A path description is a list \n   of s"
 & "ublists, where each sublist \n   describes a segment of the path and \n"
 & "   takes one of the following forms: \n\n|    [\"MoveTo\", p]\n|    [\""
 & "LineTo\", p]\n|    [\"CurveTo\", p, q, r]\n|    [\"Close\"]\n\n   In th"
 & "ese descriptions, the variables \n   \"p\", \"q\", and \"r\" range over"
 & " points \n   (i.e., pairs of numbers). *)\n\n(* \\section{Bounding Box}"
 & " *)\n\n(* This module maintains a \"bounding \n   box\", which is a rec"
 & "tangle. The \n   default bounding box is the bounding \n   box of an 8-"
 & "1/2\" x 11\" page. Juno\n   displays the current boun";

CONST E9_6 =
   "ding box as\n   a grey rectangle on the screen, and\n   writes the boun"
 & "ding box information\n   into a \"BoundingBox\" comment when\n   genera"
 & "ting PostScript. *)\n\nPROC SetBBox(p, q) IS SKIP END;\n\nUI PointTool("
 & "SetBBox);\n\n(* Set the current bounding box to the \n   rectangle whos"
 & "e opposite corners are \n   \"p\" and \"q\". *)\n\nPROC p, q := GetBBox"
 & "() IS SKIP END;\n\n(* Set \"p\" and \"q\" to points at opposite\n   cor"
 & "ners of the current bounding box. *)\n\n(* \\section{PostScript State} "
 & "*)\n\nPROC ShowPage() IS SKIP END;\n\nUI PointTool(ShowPage);\n\n(* Upd"
 & "ate the display to contain the \n   current page. Since the Juno system"
 & " \n   executes an implicit ShowPage() at \n   the end of the current co"
 & "mmand, you \n   only need to use ShowPage() to \n   achieve animation e"
 & "ffects. *)\n\nPROC Reset() IS SKIP END;\n\nUI PointTool(Reset);\n\n(* R"
 & "eset the PostScript state to its \n   default value. Subsequent paintin"
 & "g \n   operations appear on a blank page. *)\n\nPROC SavePage() IS SKIP"
 & " END;\n\nPROC RestorePage() IS SKIP END;\n\n(* Save/restore the current"
 & " page to an offscreen\n   buffer. This can be used in animations to\n  "
 & " quickly restore a background common to all\n   frames. WARNING: When o"
 & "utputing PostScript,\n   these procedures are no-ops. *)\n\nPROC Save()"
 & " IS SKIP END;\n\nPROC Restore() IS SKIP END;\n\nUI PointTool(Save);\n\n"
 & "UI PointTool(Restore);\n\n(* Save/Restore the entire state of this \n  "
 & " module. The state is saved to and \n   restored from an internal stack"
 & ". The \n   state includes the current path, \n   current width, current"
 & " end style, \n   current joint style, current color, \n   current windi"
 & "ng style, and current \n   font. *)\n\n";

CONST E10 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Fri Jun 16 18:38:37 PDT "
 & "1995 by heydon                   \n\n(VBox\n  (Insert \"Macros.fv\")\n "
 & " (MyLabelFont)\n  (HBox\n    (Menu (MenuLabel \"View\") (Radio %view =p"
 & "ublic (VBox\n      (LinkMButton (For publicView)\n        (Choice %publ"
 & "ic  CheckMark MenuStyle (TextL \"Public\")))\n      (LinkMButton (For p"
 & "rivateView)\n        (Choice %private  CheckMark MenuStyle (TextL \"Pri"
 & "vate\")))\n    )))\n    Fill\n  )\n  (MyRidge)\n  (TSplit %body Flex (W"
 & "hich firstChild)\n    (Macro EditorW BOA () \'(Width 400 + Inf - 200))\n"
 & "    (Macro EditorH BOA () \'(Height 500 + Inf - 450))\n    (Shape %firs"
 & "tChild (EditorW) (EditorH) (Generic %publicView))\n    (Shape (EditorW)"
 & " (EditorH) (Generic %privateView)))\n)\n";

CONST E11 =
   "MODULE CharSet;\n\nIMPORT Text, R2, PS, Type, TypeLinesC, TypeLinesR;\n"
 & "\nPRIVATE CONST \n  Rows = 16, \n  Cols = 16, \n  XBorder = 3, \n  YBor"
 & "der = 2;\n\n/* \"Rows\" and \"Cols\" specify the total \n   number of r"
 & "ows and columns of the \n   grid. \"XBorder\" and \"YBorder\" specify \n"
 & "   the amount of horizontal and vertical \n   space, respectively, to l"
 & "eave on each \n   side of the widest/tallest character \n   in the font"
 & ". */\n\nPRIVATE PROC w := MaxCharWidth() IS \n  w := 0; \n  VAR i = 0 I"
 & "N \n    DO \n      i < 256 -> \n        w := \n          MAX(w, \n     "
 & "     PS.StringWidth(Text.FromChar(i))); \n        i := i + 1 \n    OD \n"
 & "  END \nEND;\n\n/* Set \"w\" to the width of the widest \n   character "
 & "in the current font at the \n   current font size. */\n\nPROC Show(p) I"
 & "S \n  SAVE PS IN \n    PS.SetWidth(1); \n    VAR row, col, h, asc, dec,"
 & " w IN \n      w := MaxCharWidth() + 2 * XBorder; \n      asc, dec := PS"
 & ".FontHeight(); \n      h := asc + dec + 2 * YBorder; \n      p := \n   "
 & "     R2.Plus(p, \n                (-w * Rows / 2, \n                 h "
 & "* Cols / 2)); \n      row := 0; \n      DO \n        row < Rows -> \n  "
 & "        col := 0; \n          DO \n            col < Cols -> \n        "
 & "      ShowChar(p, asc, w, h, row, \n                       col); \n    "
 & "          col := col + 1 \n          OD; \n          GridLines(p, w, h,"
 & " row); \n          row := row + 1 \n      OD; \n      GridLines(p, w, h"
 & ", Rows); \n      ShowCodes(p, w, h) \n    END \n  END \nEND;\n\nUI Poin"
 & "tTool(Show);\n\n(* Display a 16 x 16 grid centered at \n   \"p\"; the g"
 & "rid contains the 256 \n   characters of the current font, \n   rendered"
 & " in the current size. *)\n\nPRIVATE PROC \n  ShowChar(p, asc, w, h, row"
 & ", col) IS \n  VAR c, dx, dy IN \n    c := Text.FromChar(col + row * Col"
 & "s); \n    dx := w * (col + 0.5); \n    dy := -(row * h + YBorder + asc)"
 & "; \n    p := R2.Plus(p, (dx, dy)); \n    Type.C(p, c) \n  END \nEND;\n\n"
 & "PRIVATE PROC GridLines(p, w, h, i) IS \n  PS.MoveTo((CAR(p) + i * w, CD"
 & "R(p))); \n  PS.LineTo((CAR(p) + i * w, \n             CDR(p) - h * Rows"
 & ")); \n  PS.MoveTo((CAR(p), CDR(p) - i";

CONST E11_0 =
   " * h)); \n  PS.LineTo((CAR(p) + w * Cols, \n             CDR(p) - i * h"
 & ")); \n  PS.Stroke() \nEND;\n\nPRIVATE PROC ShowCodes(p, w, h) IS \n  SA"
 & "VE PS IN \n    PS.SetFontFace(\"Helvetica\"); \n    ShowHCodes(p, w); \n"
 & "    ShowVCodes(p, h) \n  END \nEND;\n\nPRIVATE PROC ShowHCodes(p, w) IS"
 & " \n  VAR i = 0, q IN \n    DO \n      i < Cols -> \n        q := \n    "
 & "      R2.Plus(p, (w / 2 + w * i, 0)); \n        TypeLinesC.South(q, Hex"
 & "Char(i)); \n        i := i + 1 \n    OD \n  END \nEND;\n\nPRIVATE PROC "
 & "ShowVCodes(p, h) IS \n  VAR i = 0, q IN \n    DO \n      i < Rows -> \n"
 & "        q := \n          R2.Minus(p, (5, h / 2 + h * i)); \n        Typ"
 & "eLinesR.East(q, HexChar(i)); \n        i := i + 1 \n    OD \n  END \nEN"
 & "D;\n\nPRIVATE VAR \n  Zero := Text.GetChar(\"0\", 0), \n  A := Text.Get"
 & "Char(\"A\", 0);\n\nPRIVATE PROC txt := HexChar(i) IS \n  IF \n    0 <= "
 & "i AND i < 10 -> \n      txt := Text.FromChar(Zero + i) \n  | 10 <= i AN"
 & "D i < 16 -> \n      txt := Text.FromChar(A + (i - 10)) \n  FI \nEND;\n\n"
;

CONST E12 =
   "MODULE Text;\n\n/* A template for the Text \n   interface to be read in"
 & " Button \n   or Public view only. */\n\n(* The built-in Juno Text modul"
 & "e. A \n   Juno text string is a zero-based \n   sequence of characters."
 & " *)\n\n(* The variables \"t\", \"u\", and \"tu\" \n   are texts; \"i\","
 & " \"n\", and \"ch\" \n   are integers; and \"r\" is an \n   arbitrary nu"
 & "mber. *)\n\nPROC tu := Cat(t, u) IS SKIP END;\n\n(* Returns the concate"
 & "nation of \"t\" \n   and \"u\". *)\n\nPROC n := Length(t) IS SKIP END;\n"
 & "\n(* Returns the number of characters \n   in \"t\". *)\n\nPROC u := Su"
 & "b(t, i, n) IS SKIP END;\n\n(* Returns a subsequence of \"t\" \n   start"
 & "ing at character \"i\" of \n   length at most \"n\". The result \n   is"
 & " empty if \"i >= Length(t)\" or \n   if \"n = 0\"; otherwise, it ranges"
 & " \n   from \"i\" to \"MIN(i+n, \n   Length(t)-1)\". *)\n\nPROC ch := Ge"
 & "tChar(t, n) IS \n  SKIP \nEND;\n\n(* Returns the integer code of \n   c"
 & "haracter \"n\" of \"t\". It is a \n   checked run-time error if \"n < \n"
 & "   0\" or \"n >= Length(t)\". *)\n\nPROC t := FromChar(ch) IS SKIP END;"
 & "\n\n(* Returns a string of length one \n   containing the character wit"
 & "h \n   code \"ch\". It is a checked \n   run-time error if \"ch < 0\" o"
 & "r \n   \"ch > 255\". *)\n\nPROC t := FromNum(r, n) IS SKIP END;\n\n(* R"
 & "eturns the unparsing of the \n   number \"r\" to \"n\" digits of \n   p"
 & "recision. *)\n\nPROC i := FindChar(t, ch) IS \n  SKIP \nEND;\n\n(* Retu"
 & "rns the index of first \n   occurrence of the character \"ch\" in \n   "
 & "the text \"t\", or -1 if \"ch\" does \n   not occur in \"t\". It is a \n"
 & "   checked run-time error if \"ch < \n   0\" or \"ch > 255\". *)\n\nPRO"
 & "C i := FindCharR(t, ch) IS \n  SKIP \nEND;\n\n(* Returns the index of l"
 & "ast \n   occurrence of the character \"ch\" in \n   the text \"t\", or "
 & "-1 if \"ch\" does \n   not occur in \"t\". It is a \n   checked run-tim"
 & "e error if \"ch < \n   0\" or \"ch > 255\". *)\n\n";

CONST E13 =
   "(CodeFont    (courier bold 10))\n(TextFont    (helvetica bold 10))\n(La"
 & "belFont   (helvetica bold 12))\n(DotSize     2.5)\n(CrossSize   4)\n(Ch"
 & "kptIntv   30)\n(RealPrec    4)\n(PrintCmd    \"/usr/bin/lpr -J $Title\""
 & ")\n(PreviewCmd  \"psview -d $Display -t $Title $Filename\")\n(Origin   "
 & "   center)\n(Orientation portrait)\n";

CONST E14 =
   "MODULE Offset;\n\nCONST \n  DefaultHor = 0, DefaultVer = 0;\n\nPRIVATE "
 & "VAR \n  hor := DefaultHor, \n  ver := DefaultVer;\n\n(* This module mai"
 & "ntains a current \n   horizontal and vertical offset.\n   The offset va"
 & "lues \n   are used by other modules. *)\n\nPROC h, v := GetHorVer() IS "
 & "\n  h, v := hor, ver \nEND;\n\nPROC h := GetHor() IS h := hor END;\n\nP"
 & "ROC v := GetVer() IS v := ver END;\n\nPROC SetHorVer(h, v) IS \n  hor, "
 & "ver := h, v \nEND;\n\nPROC SetHor(h) IS hor := h END;\n\nPROC SetVer(v)"
 & " IS ver := v END;\n\nUI SetTool(SetHor);\n\nUI SetTool(SetVer);\n\n(* G"
 & "et/set the horizontal and \n   vertical offset values. *)\n\nUI Param(S"
 & "etHor, DefaultHor);\n\nUI Param(SetHor, 0);\n\nUI Param(SetHor, 2);\n\n"
 & "UI Param(SetHor, 4);\n\nUI Param(SetHor, 6);\n\nUI Param(SetHor, 10);\n"
 & "\nUI Param(SetVer, DefaultVer);\n\nUI Param(SetVer, 0);\n\nUI Param(Set"
 & "Ver, 2);\n\nUI Param(SetVer, 4);\n\nUI Param(SetVer, 6);\n\nUI Param(Se"
 & "tVer, 10);\n\nPRIVATE VAR history := NIL;\n\nPROC Save() IS \n  history"
 & " := ((hor, ver), history) \nEND;\n\nPROC Restore() IS \n  VAR head IN \n"
 & "    head := CAR(history); \n    hor, ver := CAR(head), CDR(head); \n   "
 & " history := CDR(history) \n  END \nEND;\n\nUI PointTool(Save);\n\nUI Po"
 & "intTool(Restore);\n\n(* Save/restore the current offset \n   values. *)"
 & "\n\n";

CONST E15 =
   "P4\n12 12\n\360\360\340p\360\360\271\320\037\200\017\000\017\000\037\200"
 & "\271\320\360\360\340p\360\360";

CONST E16 =
   "MODULE Angle;\n\nIMPORT Math, R2, Geometry, Rel;\n\n(* Functions and pr"
 & "edicates on \n   angles. Unless stated otherwise, \n   all angles are i"
 & "n radians. *)\n\nCONST Degree = Math.Pi / 180;\n\n(* \"Degree\" is the "
 & "value of one \n   degree in radians. *)\n\nPRED Right(a, b, c) IS \n  R"
 & "2.Dot(R2.Minus(a, b), \n         R2.Minus(c, b)) = 0 \nEND;\n\nUI Point"
 & "Tool(Right);\n\n(* The angle \"abc\" is right. True if \n   \"a = b\" o"
 & "r \"b = c\". *)\n\nFUNC theta = Acute(a, b, c) IS \n  (E v1, v2, l1, l2"
 & " :: \n    v1 = R2.Minus(a, b) AND \n    v2 = R2.Minus(c, b) AND \n    l"
 & "1 = R2.Length(v1) AND \n    l2 = R2.Length(v2) AND \n    theta ~ 1.5 AN"
 & "D \n    COS(theta) * l1 * l2 = \n      R2.Dot(v1, v2)) \nEND;\n\n(* Ret"
 & "urn the angle \"abc\" as an acute \n   angle in the closed interval \"["
 & "0, \n   Pi]\". Requires \"a # b\" and \"b # \n   c\". *)\n\nFUNC theta "
 & "= CC(a, b, c) IS \n  (E p = Rel.Inv(c, b, a) :: \n    theta = ATAN(CDR("
 & "p), CAR(p))) \nEND;\n\n(* Return the angle in the half-open \n   interv"
 & "al \"(-Pi, Pi]\" that the ray \n   \"ba\" forms with the ray \"bc\", \n"
 & "   measured counter-clockwise from \n   \"ba\". Requires \"a # b\" and "
 & "\"b # \n   c\". *)\n\nPRED OnBisector(p, a, b, c) IS \n  (E d ~ c :: \n"
 & "    (d, b) CONG (b, a) AND \n    (d, p) CONG (p, a) AND \n    Geometry."
 & "Colinear(b, d, c)) \nEND;\n\nUI PointTool(OnBisector);\n\n(* The point "
 & "\"p\" is on the line \n   bisecting the acute angle \"abc\". *)\n\nPRED"
 & " Cong(a, b, c, d, e, f) IS \n  (E g ~ d, h ~ f :: \n    Geometry.Coline"
 & "ar(e, d, g) AND \n    Geometry.Colinear(e, f, h) AND \n    (a, b) CONG "
 & "(g, e) AND \n    (h, e) CONG (c, b) AND \n    (c, a) CONG (g, h)) \nEND"
 & ";\n\nUI PointTool(Cong);\n\n(* The angle \"abc\" is congruent to \n   t"
 & "he angle \"def\". *)\n\n";

CONST E17 =
   "MODULE Random;\n\n(* Random number generator *)\n\nPROC r := Real01() I"
 & "S SKIP END; /* external procedure */\n\n(* Return a uniformly-distribut"
 & "ed real number\n   in the half-open interval \"[0.0, 1.0)\". *)\n\nPROC"
 & " r := Real(lo, hi) IS SKIP END; /* external procedure */\n\n(* Return a"
 & " uniformly-distributed real number\n   in the half-open interval \"[lo,"
 & " hi)\". It is\n   a checked run-time error for \"lo >= hi\". *)\n\nPROC"
 & " r := Int(lo, hi) IS SKIP END; /* external procedure */\n\n(* Return a "
 & "uniformly-distributed integer\n   in the half-open interval \"[lo, hi)\""
 & ". It\n   is a checked run-time error for \"lo\" or\n   \"hi\" not to be"
 & " an integer or for \"lo >= hi\". *)\n";

CONST E18 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Thu May 26 16:05:47 PDT "
 & "1994 by heydon                   \n\n(Rim (Pen 5)\n  (Macro Gap () \'(G"
 & "lue 5))\n  (BrowserShape\n    (VBox (MyBrowserFont)\n      (DirMenu (Fo"
 & "r saveBrowser))\n      (Gap)\n      (Border\n        (FileBrowser %save"
 & "Browser\n          (BgColor \"White\")\n          (Suffixes \".juno\")\n"
 & "        )\n      )\n      (Gap)\n      (HBox\n        \"File:\"\n      "
 & "  (Glue 2)\n        (Frame Lowered\n          (Helper FirstFocus (BgCol"
 & "or \"White\") (For saveBrowser))\n        )\n      )\n    )\n  )\n)\n";

CONST E19 =
   "MODULE DiGraph;\n\nIMPORT PS, Circle, Color, R2, Geometry, Arrow, \n   "
 & "    TypeLinesC, Ellipse;\n\n(* A module for drawing directed, labeled, "
 & "graphs. The \n   nodes are drawn as ellipses whose axes are oriented \n"
 & "   squarly with the page. *)\n\nCONST \n  DefaultNodeWE = (35, 1), \n  "
 & "DefaultNodeWH = (CAR(DefaultNodeWE), \n                   CAR(DefaultNo"
 & "deWE));\n\n(* This module maintains a current node size, which is \n   "
 & "initially set so as to draw a circle with radius 35. \n*)\n\nPRIVATE VA"
 & "R \n  width := CAR(DefaultNodeWE), \n  eccentricity := CDR(DefaultNodeW"
 & "E);\n\nPROC SetNodeWE(we) IS \n  IF \n    VAR w, e IN \n      we = (w, "
 & "e) -> width := w; eccentricity := e \n    END \n  FI \nEND;\n\nPROC Set"
 & "NodeWH(wh) IS \n  IF \n    VAR w, h IN \n      wh = (w, h) -> width := "
 & "w; eccentricity := h / w \n    END \n  FI \nEND;\n\nUI SetTool(SetNodeW"
 & "E);\n\nUI SetTool(SetNodeWH);\n\n(* These procedures set the node size."
 & " The argument to \n   each procedure is a pair of real numbers of the f"
 & "orm \n   \"(w, x)\". In both procedures, \"w\" is the horizontal \n   w"
 & "idth of the nodes in points. In \"SetNodeWE\", the \n   second value \""
 & "x\" is the eccentricity of the nodes, \n   namely, the ratio of their v"
 & "ertical height to their \n   horizontal width. In \"SetNodeWH\", the se"
 & "cond value \n   \"x\" is the absolute vertical height of the nodes in \n"
 & "   points. *)\n\nUI Param(SetNodeWE, DefaultNodeWE);\n\nUI Param(SetNod"
 & "eWH, DefaultNodeWH);\n\nPROC we := GetNodeWE() IS \n  we := (width, ecc"
 & "entricity) \nEND;\n\nPROC wh := GetNodeWH() IS \n  wh := (width, width "
 & "* eccentricity) \nEND;\n\n(* Return the current node size. *)\n\nPRIVAT"
 & "E PROC maj := FromCenter(a) IS \n  maj := (CAR(a) + width, CDR(a)) \nEN"
 & "D;\n\nPRIVATE PROC NodePath(a) IS \n  VAR maj IN \n    maj := FromCente"
 & "r(a); \n    IF \n      eccentricity = 1 -> Circle.Draw(a, maj) \n    | "
 & "Ellipse.DrawEcc(a, maj, eccentricity) \n    FI \n  END \nEND;\n\nPROC N"
 & "ode(a) IS NodePath(a); PS.Stroke() END;\n\nUI PointTool(Node);\n\n(* Dr"
 & "aw an ellipse centered at \"a\" with the current node \n   width and he"
 & "ight. *)\n\nPROC Label(p, label) IS TypeL";

CONST E19_0 =
   "inesC.Center(p, label) END;\n\nUI TextTool(Label);\n\n(* Print the labe"
 & "l \"txt\" inside the node \"p\". *)\n\nPROC p := Intercept(a, b) IS \n "
 & " IF \n    eccentricity = 1 -> \n      VAR c ~ b IN \n        Geometry.C"
 & "olinear(a, c, b) AND \n        width = Geometry.Dist(a, c) -> p := c \n"
 & "      END \n  | VAR maj IN \n      maj := FromCenter(a); \n      IF \n "
 & "       VAR c ~ b IN \n          Geometry.Colinear(a, c, b) AND \n      "
 & "    Ellipse.OnEcc(c, a, maj, eccentricity) -> \n            p := c \n  "
 & "      END \n      FI \n    END \n  FI \nEND;\n\n(* Sets \"p\" to the po"
 & "int along segment \"ab\" and on the \n   ellipse centered at \"a\" draw"
 & "n in the current node \n   size. *)\n\nPROC Straight0(a, b) IS \n  VAR "
 & "ab, ba IN \n    ab := Intercept(a, b); \n    ba := Intercept(b, a); \n "
 & "   PS.MoveTo(ab); \n    PS.LineTo(ba); \n    PS.Stroke() \n  END \nEND;"
 & "\n\nPROC Straight1(a, b) IS \n  VAR ab, ba IN \n    ab := Intercept(a, "
 & "b); \n    ba := Intercept(b, a); \n    Arrow.Straight(ab, ba) \n  END \n"
 & "END;\n\nPROC Straight2(a, b) IS \n  VAR ab, ba IN \n    ab := Intercept"
 & "(a, b); \n    ba := Intercept(b, a); \n    Arrow.DblStraight(ab, ba) \n"
 & "  END \nEND;\n\nUI PointTool(Straight0);\n\nUI PointTool(Straight1);\n\n"
 & "UI PointTool(Straight2);\n\n(* Draw an undirected, singly-directed or \n"
 & "   doubly-directed straight edge, respectively, from the \n   node \"a\""
 & " to the node \"b\". *)\n\nPROC Curved0(a, b, c, d) IS \n  VAR ab, dc IN"
 & " \n    ab := Intercept(a, b); \n    dc := Intercept(d, c); \n    PS.Mov"
 & "eTo(ab); \n    PS.CurveTo(b, c, dc); \n    PS.Stroke() \n  END \nEND;\n"
 & "\nPROC Curved1(a, b, c, d) IS \n  VAR ab, dc IN \n    ab := Intercept(a"
 & ", b); \n    dc := Intercept(d, c); \n    Arrow.Curved(ab, b, c, dc) \n "
 & " END \nEND;\n\nPROC Curved2(a, b, c, d) IS \n  VAR ab, dc IN \n    ab :"
 & "= Intercept(a, b); \n    dc := Intercept(d, c); \n    Arrow.DblCurved(a"
 & "b, b, c, dc) \n  END \nEND;\n\nUI PointTool(Curved0);\n\nUI PointTool(C"
 & "urved1);\n\nUI PointTool(Curved2);\n\n(* Draw an undirected, singly-dir"
 & "ected or \n   doubly-directed curved edge, respectively, from the \n   "
 & "node \"a\" to the node \"d\" with Bezier control points";

CONST E19_1 =
   " \n   \"b\" and \"c\". *)\n\nCONST DefaultFillColor = Color.White;\n\n("
 & "* This module maintains a current fill color, used by \n   the \"Filled"
 & "Node\" procedure. *)\n\nPRIVATE VAR fillColor := DefaultFillColor;\n\nP"
 & "ROC SetFillColor(c) IS fillColor := c END;\n\nUI SetTool(SetFillColor);"
 & "\n\nUI Param(SetFillColor, DefaultFillColor);\n\n(* Set the current fil"
 & "l color to \"c\". *)\n\nPROC FilledNode(a) IS \n  NodePath(a); \n  SAVE"
 & " PS IN PS.SetColor(fillColor); PS.Fill() END; \n  PS.Stroke() \nEND;\n\n"
 & "UI PointTool(FilledNode);\n\n(* Like \"Node\" above, but the inside of "
 & "the node is \n   filled with the current fill color. *)\n\nPRIVATE VAR "
 & "history := NIL;\n\nPROC Save() IS \n  history := ([width, eccentricity,"
 & " fillColor], history) \nEND;\n\nPROC Restore() IS \n  VAR top IN \n    "
 & "top := CAR(history); \n    width := CAR(top); \n    eccentricity := CAR"
 & "(CDR(top)); \n    fillColor := CAR(CDR(CDR(top))); \n    history := CDR"
 & "(history) \n  END \nEND;\n\nUI PointTool(Save);\n\nUI PointTool(Restore"
 & ");\n\n(* Save/restore the current node size. *)\n\n";

CONST E20 =
   "MODULE TypeLinesC;\n\n(* The procedures in this module \n   type a bloc"
 & "k of centered text \n   lines relative to a specified \n   point. Each "
 & "procedure takes a \n   reference point and a single \n   text, which is"
 & " converted to a \n   list of texts by the \n   \"TextList.FromText\" pr"
 & "ocedure. \n   One line is displayed in the \n   block per element of th"
 & "is list. \n\n   The lines in each block are \n   separated vertically b"
 & "y the \n   height of the current font plus \n   the current line skip v"
 & "alue \n   (maintained by the \"LineSkip\" \n   module). \n\n   The text"
 & " block is actually \n   translated in the appropriate \n   direction aw"
 & "ay from the \n   reference point by the current \n   horizontal and/or "
 & "vertical \n   offset values (maintained by the \n   \"Offset\" module)."
 & " For example, \n   the \"South\" procedure translates \n   the text blo"
 & "ck up by the current \n   vertical offset, and the \"NE\" \n   procedur"
 & "e translates it down by \n   the current vertical offset and \n   to th"
 & "e left by the current \n   horizontal offset. The \"Center\" \n   proce"
 & "dure ignores the current \n   offset values. *)\n\nIMPORT LineSkip, Off"
 & "set, PS, \n       R2, TextList, Type;\n\nPRIVATE PROC TypeBlockC(p, l) "
 & "IS \n  VAR asc, dec, d IN \n    asc, dec := PS.FontHeight(); \n    d :="
 & " asc + dec + LineSkip.Get(); \n    p := (CAR(p), CDR(p) - asc); \n    D"
 & "O \n      l # NIL -> \n        Type.C(p, CAR(l)); \n        p := (CAR(p"
 & "), CDR(p) - d); \n        l := CDR(l) \n    OD \n  END \nEND;\n\n/* Typ"
 & "e the centered block of text \n   lines \"l\" such that \"p\" is the \n"
 & "   northwest corner of the box\'s \n   bounding-box. */\n\nPROC North(p"
 & ", txt) IS \n  VAR l, dh IN \n    l := TextList.FromText(txt); \n    dh "
 & ":= Offset.GetVer(); \n    TypeBlockC(R2.Plus(p, (0, -dh)), \n          "
 & "     l) \n  END \nEND;\n\nPROC South(p, txt) IS \n  VAR l, w, h, dh IN "
 & "\n    l := TextList.FromText(txt); \n    w, h := TextList.Size(l); \n  "
 & "  dh := Offset.GetVer(); \n    TypeBlockC(R2.Plus(p, \n                "
 & "       (0, h + dh)), \n               l) \n  END \nEND;\n\nPROC East(p,"
 & " txt) IS \n  VAR l, w, h, dw IN \n    l";

CONST E20_0 =
   " := TextList.FromText(txt); \n    w, h := TextList.Size(l); \n    dw :="
 & " Offset.GetHor(); \n    TypeBlockC(R2.Plus(p, \n                       "
 & "(-w / 2 - dw, \n                        h / 2)), l) \n  END \nEND;\n\nP"
 & "ROC West(p, txt) IS \n  VAR l, w, h, dw IN \n    l := TextList.FromText"
 & "(txt); \n    w, h := TextList.Size(l); \n    dw := Offset.GetHor(); \n "
 & "   TypeBlockC(R2.Plus(p, \n                       (w / 2 + dw, \n      "
 & "                  h / 2)), l) \n  END \nEND;\n\nPROC Center(p, txt) IS "
 & "\n  VAR l, w, h IN \n    l := TextList.FromText(txt); \n    w, h := Tex"
 & "tList.Size(l); \n    TypeBlockC(R2.Plus(p, (0, h / 2)), \n             "
 & "  l) \n  END \nEND;\n\nPROC NW(p, txt) IS \n  VAR l, w, h, dw, dh IN \n"
 & "    l := TextList.FromText(txt); \n    w, h := TextList.Size(l); \n    "
 & "dw, dh := Offset.GetHorVer(); \n    TypeBlockC(R2.Plus(p, \n           "
 & "            (w / 2 + dw, \n                        -dh)), l) \n  END \n"
 & "END;\n\nPROC NE(p, txt) IS \n  VAR l, w, h, dw, dh IN \n    l := TextLi"
 & "st.FromText(txt); \n    w, h := TextList.Size(l); \n    dw, dh := Offse"
 & "t.GetHorVer(); \n    TypeBlockC(R2.Plus(p, \n                       (-w"
 & " / 2 - dw, \n                        -dh)), l) \n  END \nEND;\n\nPROC S"
 & "E(p, txt) IS \n  VAR l, w, h, dw, dh IN \n    l := TextList.FromText(tx"
 & "t); \n    w, h := TextList.Size(l); \n    dw, dh := Offset.GetHorVer();"
 & " \n    TypeBlockC(R2.Plus(p, \n                       (-w / 2 - dw, \n "
 & "                       h + dh)), l) \n  END \nEND;\n\nPROC SW(p, txt) I"
 & "S \n  VAR l, w, h, dw, dh IN \n    l := TextList.FromText(txt); \n    w"
 & ", h := TextList.Size(l); \n    dw, dh := Offset.GetHorVer(); \n    Type"
 & "BlockC(R2.Plus(p, \n                       (w / 2 + dw, \n             "
 & "           h + dh)), l) \n  END \nEND;\n\nUI TextTool(North);\n\nUI Tex"
 & "tTool(South);\n\nUI TextTool(East);\n\nUI TextTool(West);\n\nUI TextToo"
 & "l(Center);\n\nUI TextTool(NW);\n\nUI TextTool(NE);\n\nUI TextTool(SE);\n"
 & "\nUI TextTool(SW);\n\n(* Display the \"\\\"-separated texts \n   in \"t"
 & "\" as a centered block such \n   that \"p\" is at the location of \n   "
 & "the block\'s bounding box named \n   by the";

CONST E20_1 =
   " procedure. *)\n\n";

CONST E21 =
   "MODULE Plot;\n\n(* A module for drawing 2D graphs of plotted values. *)"
 & "\n\nIMPORT Text, Color, R2, PS, Arrow, Circle, Type;\n\nPRIVATE FUNC t "
 & "= Map1(v, scrn, grph) IS \n  (E s1, s2, g1, g2, k :: \n    scrn = (s1, "
 & "s2) AND \n    grph = (g1, g2) AND \n    k * (g2 - g1) = (v - g1) AND \n"
 & "    t = s1 + k * (s2 - s1)) \nEND;\n\nPRIVATE FUNC q = Map(g, p) IS \n "
 & " (E px, py, qx, qy, xScrn, yScrn, xGrph, yGrph :: \n    g = [xScrn, ySc"
 & "rn, xGrph, yGrph] AND \n    p = (px, py) AND \n    qx = Map1(px, xScrn,"
 & " xGrph) AND \n    qy = Map1(py, yScrn, yGrph) AND \n    q = (qx, qy)) \n"
 & "END;\n\n/* \"q\" is the point in Juno coordinates of the point \"p\" \n"
 & "   in graph \"g\"-coordinates. */\n\nPRIVATE PROC xInt, yInt := RectInt"
 & "s(c1, c2) IS \n  IF \n    VAR c1x, c1y, c2x, c2y IN \n      c1 = (c1x, "
 & "c1y) AND c2 = (c2x, c2y) -> \n        xInt := (MIN(c1x, c2x), MAX(c1x, "
 & "c2x)); \n        yInt := (MIN(c1y, c2y), MAX(c1y, c2y)) \n    END \n  F"
 & "I \nEND;\n\n/* Set \"xInt\" and \"yInt\" to the intervals in the x- and"
 & " \n   y-axes, respectively, of the rectangle oriented \n   squarely wit"
 & "h the page having \"c1\" and \"c2\" as \n   opposite corners. */\n\nPRO"
 & "C g := New(c1, c2, xGrph, yGrph) IS \n  VAR xScrn, yScrn IN \n    xScrn"
 & ", yScrn := RectInts(c1, c2); \n    g := [xScrn, yScrn, xGrph, yGrph] \n"
 & "  END \nEND;\n\n(* Return a new graph structure to be drawn in the \n  "
 & " bounding box determined by the two corner points \"c1\" \n   and \"c2\""
 & ". The values \"xGrph\" and \"yGrph\" must be \n   pairs of real numbers"
 & "; they represent the range of x- \n   and y-coordinates, respectively, "
 & "covered by the \n   resulting graph. *)\n\nPRIVATE PROC DrawAxes(g) IS "
 & "\n  PS.SetEndStyle(PS.SquareEnds); \n  IF \n    VAR \n      xScrn, yScr"
 & "n, xGrph, yGrph, minX, maxX, minY, maxY \n    IN \n      g = [xScrn, yS"
 & "crn, xGrph, yGrph] AND \n      xGrph = (minX, maxX) AND \n      yGrph ="
 & " (minY, maxY) -> \n        PS.MoveTo(Map(g, (minX, minY))); \n        P"
 & "S.LineTo(Map(g, (minX, maxY))); \n        PS.MoveTo(Map(g, (minX, minY)"
 & ")); \n        PS.LineTo(Map(g, (maxX, minY))); \n        PS.Stroke() \n"
 & "    END \n  FI \nEND;\n\n/* Draw t";

CONST E21_0 =
   "he axes of \"g\" in the current line width. This \n   procedure does no"
 & "t preserve the PS state. */\n\nPRIVATE PROC DrawTitle(g, txtTitle) IS \n"
 & "  IF \n    VAR xLo, xHi, yLo, yHi, tail IN \n      g = ((xLo, xHi), ((y"
 & "Lo, yHi), tail)) -> \n        Type.C(((xLo + xHi) / 2, yHi + 20), txtTi"
 & "tle) \n    END \n  FI \nEND;\n\n/* Draw \"txtTitle\" centered above \"g"
 & "\" in the current \n   font. */\n\nPROC Draw(g, txtTitle) IS \n  SAVE P"
 & "S IN DrawAxes(g); DrawTitle(g, txtTitle) END \nEND;\n\n(* Draw the grap"
 & "h \"g\" with title \"txtTitle\". The axes \n   are drawn in the current"
 & " line width, and the title is \n   drawn in the current font. *)\n\nPRI"
 & "VATE CONST TickSz = 5;\n\nPRIVATE PROC TickMark(g, p, tickLoc, scale) I"
 & "S \n  VAR q, asc, dec, txt IN \n    q := Map(g, p); \n    asc, dec := P"
 & "S.FontHeight(); \n    PS.MoveTo(q);\n    PS.LineTo(R2.Minus(q, tickLoc)"
 & "); \n    PS.Stroke(); \n    IF \n      CAR(tickLoc) = 0 -> \n        q "
 & ":= R2.Minus(q, R2.Times(2, tickLoc)); \n        txt := Text.FromNum(CAR"
 & "(p) * scale, 3); \n        Type.C(R2.Minus(q, (0, asc)), txt) \n    | q"
 & " := R2.Minus(q, R2.Times(3, tickLoc)); \n      txt := Text.FromNum(CDR("
 & "p) * scale, 3); \n      Type.R(R2.Minus(q, (0, asc / 2)), txt) \n    FI"
 & " \n  END \nEND;\n\nPROC DrawTickMarks(g, cnt) IS \n  DrawScaledTickMark"
 & "s(g, cnt, (1, 1)) \nEND;\n\n(* Draw labeled tick marks on the graph \"g"
 & "\". The \n   argument \"cnt\" should be a pair of reals. The range \n  "
 & " of the visible x- and y-axes are divided into \n   \"CAR(cnt)\" and \""
 & "CDR(cnt)\" sections, respectively. The \n   tick marks are drawn in the"
 & " current line width and \n   end style, and the labels are drawn in the"
 & " current \n   font. *)\n\nPROC DrawScaledTickMarks(g, cnt, scale) IS \n"
 & "  IF \n    VAR \n      xScrn, yScrn, xLo, xHi, yLo, yHi, xCnt, yCnt, \n"
 & "      xScale, yScale \n    IN \n      g = [xScrn, yScrn, (xLo, xHi), (y"
 & "Lo, yHi)] AND \n      cnt = (xCnt, yCnt) AND \n      scale = (xScale, y"
 & "Scale) -> \n        VAR delta, x IN \n          delta := (xHi - xLo) / "
 & "xCnt; \n          x := xLo; \n          DO \n            x < xHi -> \n "
 & "             TickMark(g, (x,";

CONST E21_1 =
   " yLo), (0, TickSz), xScale); \n              x := x + delta \n         "
 & " OD; \n          TickMark(g, (xHi, yLo), (0, TickSz), xScale) \n       "
 & " END; \n        VAR delta, y IN \n          delta := (yHi - yLo) / yCnt"
 & "; \n          y := yLo; \n          DO \n            y < yHi -> \n     "
 & "         TickMark(g, (xLo, y), (TickSz, 0), yScale); \n              y "
 & ":= y + delta \n          OD; \n          TickMark(g, (xLo, yHi), (TickS"
 & "z, 0), yScale) \n        END \n    END \n  FI \nEND;\n\n(* Draw labeled"
 & " tick marks on the graph \"g\". The \n   arguments \"cnt\" and \"scale\""
 & " should both be pairs of \n   reals. The range of the visible x- and y-"
 & "axes are \n   divided into \"CAR(cnt)\" and \"CDR(cnt)\" sections, \n  "
 & " respectively. The tick marks are drawn in the current \n   line width "
 & "and end style, and the labels are drawn in \n   the current font. The l"
 & "abels along the x- and y-axes \n   are scaled by the factors \"CAR(scal"
 & "e)\" and \n   \"CDR(scale)\", respectively. *)\n\nPROC Line(g, pts) IS "
 & "\n  IF \n    VAR head, tail IN \n      pts = (head, tail) -> \n        "
 & "PS.MoveTo(Map(g, head)); \n        pts := tail; \n        DO \n        "
 & "  VAR head, tail IN \n            pts = (head, tail) -> \n             "
 & " PS.LineTo(Map(g, head)); pts := tail \n          END \n        OD \n  "
 & "  END \n  FI \nEND;\n\n(* Plot the list of points \"pts\" on the graph "
 & "\"g\". \"pts\" \n   should be a list of points \"[p_0, p_1, ..., p_n]\""
 & ". \n   The points are ``plotted\'\' by constructing a path of \n   line"
 & " segments that connect successive pairs of \n   points. *)\n\nPROC Pts("
 & "g, pts, ptCl) IS \n  DO \n    VAR head, tail, p IN \n      pts = (head,"
 & " tail) -> \n        p := Map(g, head); APPLY(ptCl, p); pts := tail \n  "
 & "  END \n  OD \nEND;\n\n(* Plot the list of points \"pts\" on \"g\" usin"
 & "g the \n   closure \"ptCl\" to draw each of the points. The \"ptCl\" \n"
 & "   closure will be applied with a single argument, which \n   is the lo"
 & "cation of the point to draw. The \"DrawDotCl\" \n   procedure can be us"
 & "ed for \"ptCl\". *)\n\nPROC PtsWithErrors(g, pts, ptCl, errorCl) IS \n "
 & " DO \n    VAR tail, p, dyLo, dyHi IN \n      ";

CONST E21_2 =
   "pts = ((p, (dyLo, dyHi)), tail) -> \n        APPLY(errorCl, Map(g, R2.P"
 & "lusY(p, dyLo)), \n              Map(g, R2.PlusY(p, dyHi))); \n        A"
 & "PPLY(ptCl, Map(g, p)); \n        pts := tail \n    END \n  OD \nEND;\n\n"
 & "(* Plot the list of points \"pts\" with vertical error \n   bars on the"
 & " graph \"g\", using \"ptCl\" to render the \n   points, and \"errorCl\""
 & " to render the error bars. The \n   argument \"pts\" should be a list o"
 & "f pairs of the form \n   \"(p, (dyLo, dyHi))\". Each pair describes a p"
 & "oint to \n   plot \"p\" and the error values in the y-coordinate. \n\n "
 & "  More formally, let \"Map\" denote the mapping from data \n   coordina"
 & "tes to screen coordinates. For each pair in \n   the list \"pts\", this"
 & " procedure invokes \"ptCl(Map(p))\" \n   to draw the point, and \n   \""
 & "errorCl(Map(R2.PlusY(p,dyLo)), \n   Map(R2.PlusY(p,dyHi)))\" to draw th"
 & "e error bars. The \n   bars are drawn before the points in case \"ptCl\""
 & " draws \n   points that are hollow. *)\n\nPRIVATE PROC DrawDot(rad, p) "
 & "IS \n  Circle.Draw(p, R2.PlusX(p, rad)); PS.Fill() \nEND;\n\nPROC cl :="
 & " DrawDotCl(rad) IS \n  cl := CLOSE(DrawDot, rad) \nEND;\n\n(* Returns a"
 & " closure that plots points as round dots \n   with radius \"rad\". *)\n"
 & "\nPRIVATE PROC DrawDiamondPath(p, w) IS \n  PS.MoveTo(R2.PlusX(p, w)); "
 & "\n  PS.LineTo(R2.MinusY(p, w)); \n  PS.LineTo(R2.MinusX(p, w)); \n  PS."
 & "LineTo(R2.PlusY(p, w)); \n  PS.Close() \nEND;\n\nPRIVATE PROC DrawDiamo"
 & "nd(w, p) IS \n  DrawDiamondPath(p, w); PS.Fill() \nEND;\n\nPROC cl := D"
 & "rawDiamondCl(w) IS \n  cl := CLOSE(DrawDiamond, w / 2) \nEND;\n\n(* Ret"
 & "urns a closure that plots points as filled \n   diamonds of width \"w\""
 & ". *)\n\nPRIVATE PROC DrawHollowDiamond(w, p) IS \n  DrawDiamondPath(p, "
 & "w); \n  SAVE PS IN PS.SetColor(Color.White); PS.Fill() END; \n  PS.Stro"
 & "ke() \nEND;\n\nPROC cl := DrawHollowDiamondCl(w) IS \n  cl := CLOSE(Dra"
 & "wHollowDiamond, w / 2) \nEND;\n\n(* Returns a closure that plots points"
 & " as filled \n   diamonds of width \"w\". *)\n\nPRIVATE PROC HLine(p, w)"
 & " IS \n  PS.MoveTo(R2.MinusX(p, w)); PS.LineTo(R2.PlusX(p, w)) \nEND;\n\n"
 & "PRIVATE PROC DrawErrorBar(w, lo, hi) IS ";

CONST E21_3 =
   "\n  SAVE PS IN \n    PS.SetEndStyle(PS.ButtEnds); \n    HLine(lo, w); \n"
 & "    HLine(hi, w); \n    PS.MoveTo(lo); \n    PS.LineTo(hi); \n    PS.St"
 & "roke() \n  END \nEND;\n\nPROC cl := ErrorBarCl(xWidth) IS \n  cl := CLO"
 & "SE(DrawErrorBar, xWidth / 2) \nEND;\n\n(* Returns a closure that draws "
 & "vertical error bars in \n   the current line width with horizontal endm"
 & "arks of \n   length \"xWidth\". *)\n\n";

CONST E22 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Mon Jan 27 16:08:07 PST "
 & "1997 by heydon                   \n\n(Shape (Width 600 + Inf - 400) (He"
 & "ight 500 + Inf - 500)\n  (TSplit %tsplit (Which startupScreen)\n    (Ge"
 & "neric %mainChild)\n    (Filter %startupScreen Passive (Cursor \"XC_watc"
 & "h\")\n      (Macro FixedHeight BOA (w) `(Shape (Height + 0 - 0) ,w))\n "
 & "     (VBox (LabelFont (Family \"Times\") (PointSize 180))\n\tFill \n\t("
 & "FixedHeight (Pixmap \"Juno2Logo.ppm\"))\n\t(Glue 10)\n\t(FixedHeight \""
 & "Welcome to Juno-2! Initializing...\")\n\t(Glue 10)\n\t(FixedHeight (Tex"
 & "t %initModule \"\"))\n\tFill\n      )\n    ) ;; Filter\n  ) ;; TSplit\n"
 & ") ;; Shape\n";

CONST E23 =
   "MODULE BST;\n\n(* A module for creating and searching binary search tre"
 & "es. *)\n\nIMPORT List;\n\nPRIVATE CONST NoChildren = (NIL, NIL);\n\nPRI"
 & "VATE PROC tree := FromList2(l, len) IS \n  IF \n    len = 0 -> tree := "
 & "NIL \n  | len = 1 -> tree := (CAR(l), NoChildren) \n  | VAR mid, suffix"
 & ", left, right IN \n      mid := len DIV 2; \n      suffix := List.Suffi"
 & "xFrom(l, mid); \n      left := FromList2(List.Prefix(l, mid), mid); \n "
 & "     right := FromList2(CDR(suffix), len - mid - 1); \n      tree := (C"
 & "AR(suffix), (left, right)) \n    END \n  FI \nEND;\n\nPROC tree := From"
 & "List(l) IS \n  tree := FromList2(l, List.Length(l)) \nEND;\n\n(* Return"
 & " a balanced binary search tree containing the \n   elements of the list"
 & " \"l\". \"l\" should be a list of \"(key, \n   value)\" pairs such that"
 & " the successive \"key\" values are \n   non-decreasing according to som"
 & "e total order. *)\n\nPROC elt := Find(k, tree, order) IS \n  VAR root, "
 & "cmp IN \n    elt := NIL; \n    DO \n      tree # NIL -> \n        root "
 & ":= CAR(tree); \n        cmp := APPLY(order, k, CAR(root)); \n        IF"
 & " \n          cmp < 0 -> tree := CAR(CDR(tree)) \n        | cmp > 0 -> t"
 & "ree := CDR(CDR(tree)) \n        | elt := root; tree := NIL \n        FI"
 & " \n    OD \n  END \nEND;\n\n(* If there is a pair \"(key, value)\" in \""
 & "tree\" such that \n   \"APPLY(order, k, key) = 0\", return it. Otherwis"
 & "e, return \n   \"NIL\". \n\n   The closure \"order\" should define a to"
 & "tal order \"<\" on \"K \n   x Key\", where \"K\" is the domain of key v"
 & "alues passed as \n   the first argument to the \"Find\" procedure, and "
 & "\"Key\" is \n   the domain of the keys in the \"tree\". The call \n   \""
 & "APPLY(order, k, key)\" should return a value less than, \n   equal to, "
 & "or greater than 0 as \"k\" is less than, equal to, \n   or greater than"
 & " \"key\" according to \"<\". *)\n\nPRIVATE PROC res := NumOrder(k, key)"
 & " IS res := k - key END;\n\nPROC elt := FindNum(k, tree) IS \n  elt := F"
 & "ind(k, tree, NumOrder) \nEND;\n\n(* Call \"Find\" above for the order i"
 & "n which both \"k\" and the \n   keys in the \"tree\" are numbers. *)\n\n"
 & "PRIVATE PROC res := IntervalOrder(k, int) IS \n  IF";

CONST E23_0 =
   " \n    k < CAR(int) -> res := -1 | k > CAR(CDR(int)) -> res := 1 \n  | "
 & "res := 0 \n  FI \nEND;\n\nPROC elt := FindInterval(k, tree) IS \n  elt "
 & ":= Find(k, tree, IntervalOrder) \nEND;\n\n(* Call \"Find\" above for th"
 & "e order in which \"k\" is a number \n   and the keys in the \"tree\" ar"
 & "e intervals of the form \n   \"[start, end, ...]\", where \"start\" and"
 & " \"end\" are numbers, \n   and the ellipses denote an arbitrary number "
 & "of additional \n   elements (possibly zero). *)\n\n";

CONST E24 =
   "MODULE ShowLine;\n\n(* The procedures is this module \n   are like the "
 & "procedures in the \n   \"Show\" module of the same name, \n   except th"
 & "at they move the \n   current point down by the total \n   height of th"
 & "e current font plus \n   the current line skip value \n   (maintained b"
 & "y the \"LineSkip\" \n   module). \n\n   All procedures in this module \n"
 & "   require that the current point \n   is defined. *)\n\nIMPORT LineSki"
 & "p, PS, Type;\n\nPRIVATE PROC h := NetFontHeight() IS\n  VAR asc, dec IN"
 & " \n    asc, dec := PS.FontHeight(); \n    h := asc + dec \n  END \nEND;"
 & "\n\n/* Set \"h\" to the total height of\n   the current font. */\n\nPRI"
 & "VATE PROC MoveDown(p) IS \n  VAR d IN \n    d := \n      NetFontHeight("
 & ") + \n      LineSkip.Get(); \n    PS.MoveTo((CAR(p), CDR(p) - d)) \n  E"
 & "ND \nEND;\n\n/* Set the current point to the \n   point a distance of t"
 & "he total \n   current font height plus the \n   current line skip below"
 & " \"p\". */\n\nPROC L(txt) IS \n  VAR p IN \n    p := PS.CurrentPoint();"
 & " \n    PS.Type(p, txt); \n    MoveDown(p) \n  END \nEND;\n\nUI TextTool"
 & "(L);\n\n(* Types \"txt\" left-justified off \n   the current point. *)\n"
 & "\nPROC C(txt) IS \n  VAR p IN \n    p := PS.CurrentPoint(); \n    Type."
 & "C(p, txt); \n    MoveDown(p) \n  END \nEND;\n\nUI TextTool(C);\n\n(* Ty"
 & "pes \"txt\" centered about the \n   current point. *)\n\nPROC R(txt) IS"
 & " \n  VAR p IN \n    p := PS.CurrentPoint(); \n    Type.R(p, txt); \n   "
 & " MoveDown(p) \n  END \nEND;\n\nUI TextTool(R);\n\n(* Types \"txt\" righ"
 & "t-jusified off \n   the current point. *)\n\n";

CONST E25 =
   "(Rim (Pen 10)\n  (VBox\n    \"Save changes to\"\n    (HBox\n      (Text"
 & " RightAlign (Margin 0) \"\\\"\")\n      (Shape (Width + 0) (Text %saveN"
 & "ame (Margin 0) \"test\"))\n      (Text LeftAlign (Margin 0) \"\\\"?\")\n"
 & "    )\n    (Glue 10)\n    (HBox\n      Fill\n      (Button %saveChanges"
 & " \"Save\")\n      (Glue 20)\n      (Button %discardChanges \"Discard\")"
 & "\n      Fill\n    )\n  )\n)\n";

CONST E26 =
   "MODULE LineSkip;\n\nCONST DefaultSkip = 0;\n\nPRIVATE VAR lskip := Defa"
 & "ultSkip;\n\n(* This module maintains a current \n   \"line skip\" value"
 & ". The line skip \n   value is used by other modules \n   that display c"
 & "onsecutive lines \n   of text. *)\n\nPROC skip := Get() IS \n  skip := "
 & "lskip \nEND;\n\nPROC Set(skip) IS lskip := skip END;\n\nUI SetTool(Set)"
 & ";\n\n(* Get/set the current line skip \n   value. *)\n\nUI Param(Set, D"
 & "efaultSkip);\n\nUI Param(Set, 1);\n\nUI Param(Set, 2);\n\nUI Param(Set,"
 & " 3);\n\nUI Param(Set, 4);\n\nUI Param(Set, 5);\n\nUI Param(Set, 10);\n\n"
 & "PRIVATE VAR history := NIL;\n\nPROC Save() IS \n  history := (lskip, hi"
 & "story) \nEND;\n\nPROC Restore() IS \n  lskip := CAR(history); \n  histo"
 & "ry := CDR(history) \nEND;\n\nUI PointTool(Save);\n\nUI PointTool(Restor"
 & "e);\n\n(* Save/restore the current line \n   skip value. *)\n\n";

CONST E27 =
   "MODULE VPrint;\n\nIMPORT Text, R2, Unparse, PS;\n\n(* A module for prin"
 & "ting lines of text to a virtual \n   terminal. *)\n\n(* \\section{Setti"
 & "ng Module State} *)\n\nPRIVATE VAR currPt := NIL;\n\n/* The current poi"
 & "nt at which the next text should be \n   printed. */\n\nPRIVATE VAR lef"
 & "tMargin := NIL;\n\n/* The x-coordinate of the left margin along which t"
 & "ext \n   will be justified. */\n\nPRIVATE VAR lineSep := NIL;\n\n/* The"
 & " current line separation in points. It is a \n   function of the curren"
 & "t font. A value of 0 means the \n   line separation must be computed fr"
 & "om the current \n   font. */\n\nPRIVATE VAR scrollDir := NIL;\n\n/* Eit"
 & "her +1 or -1. \"scrollDir\" specifies whether \n   subsequent lines are"
 & " printed above (+1) or below (-1) \n   the current one. */\n\nPRIVATE V"
 & "AR scrollPending := NIL;\n\n/* Indicates if a scroll is pending. A non-"
 & "NIL value \n   indicates that a scroll is pending, meaning that a \n   "
 & "newline character has just been printed, but that \n   \"currPt\" has n"
 & "ot been adjusted vertically. This will \n   only be the case when \"scr"
 & "ollDir\" is -1, since only \n   when scrolling down is the vertical scr"
 & "oll amount \n   dependent on the *next* line of text to be printed. \n "
 & "  This variable is necessary to correctly handle font \n   changes betw"
 & "een lines. */\n\nCONST \n  DefaultFontFace = \"Courier\", DefaultFontSi"
 & "ze = PS.Small;\n\n(* This module maintains its own font face and font s"
 & "ize, \n   independent of that maintained by the \"PS\" module. *)\n\nPR"
 & "IVATE VAR \n  fontFace := DefaultFontFace, fontSize := DefaultFontSize;"
 & "\n\nPROC SetFontFace(nm) IS \n  fontFace := nm; lineSep := NIL \nEND;\n"
 & "\nUI SetTool(SetFontFace);\n\nUI Param(SetFontFace, DefaultFontFace);\n"
 & "\nUI Param(SetFontFace, \"Times-Roman\");\n\nUI Param(SetFontFace, \"Ti"
 & "mes-Bold\");\n\nUI Param(SetFontFace, \"Times-Italic\");\n\nUI Param(Se"
 & "tFontFace, \"Times-BoldItalic\");\n\nUI Param(SetFontFace, \"Helvetica\""
 & ");\n\nUI Param(SetFontFace, \"Helvetica-Bold\");\n\nUI Param(SetFontFac"
 & "e, \"Helvetica-Oblique\");\n\nUI Param(SetFontFace, \"Helvetica-BoldObl"
 & "ique\");\n\nUI Param(SetFontFace, \"Courier\")";

CONST E27_0 =
   ";\n\nUI Param(SetFontFace, \"Courier-Bold\");\n\nUI Param(SetFontFace, "
 & "\"Courier-Oblique\");\n\nUI Param(SetFontFace, \"Courier-BoldOblique\")"
 & ";\n\nUI Param(SetFontFace, \"Symbol\");\n\n(* Change the current font f"
 & "ace to the one named \"nm\". \n   The behavior is undefined if this pro"
 & "cedure is called \n   in the middle of an output line. *)\n\nPROC SetFo"
 & "ntSize(sz) IS \n  fontSize := sz; lineSep := NIL \nEND;\n\nUI SetTool(S"
 & "etFontSize);\n\nUI Param(SetFontSize, DefaultFontSize);\n\nUI Param(Set"
 & "FontSize, PS.Tiny);\n\nUI Param(SetFontSize, PS.Small);\n\nUI Param(Set"
 & "FontSize, PS.Medium);\n\nUI Param(SetFontSize, PS.Big);\n\nUI Param(Set"
 & "FontSize, PS.Large);\n\nUI Param(SetFontSize, PS.Huge);\n\n(* Change th"
 & "e current font size to \"sz\". The behavior is \n   undefined if this p"
 & "rocedure is called in the middle of \n   an output line. *)\n\nCONST De"
 & "faultLineSpacing = 1;\n\n(* This module maintains a current line spacin"
 & "g, which is \n   a multiple of the spacing between consecutive lines \n"
 & "   that is designed into each font. A line spacing value less \n   than"
 & " 1 makes the lines closer together, while a value\n   greater than 1 ma"
 & "kes them further apart. For example, \n   to achieve double spacing, us"
 & "e a line spacing of 2. *)\n\nPRIVATE VAR spacing := DefaultLineSpacing;"
 & "\n\n/* The current line spacing. */\n\nPROC SetLineSpacing(spc) IS spac"
 & "ing := spc END;\n\nUI SetTool(SetLineSpacing);\n\nUI Param(SetLineSpaci"
 & "ng, DefaultLineSpacing);\n\nUI Param(SetLineSpacing, 0.5);\n\nUI Param("
 & "SetLineSpacing, 0.75);\n\nUI Param(SetLineSpacing, 1);\n\nUI Param(SetL"
 & "ineSpacing, 1.5);\n\nUI Param(SetLineSpacing, 2);\n\n(* Set the current"
 & " line spacing to \"spc\". The behavior is \n   undefined if this proced"
 & "ure is called in the middle of \n   an output line. *)\n\n(* \\section{"
 & "Initialization} *)\n\nPROC StartNW(p) IS \n  currPt := p; \n  leftMargi"
 & "n := CAR(p); \n  scrollDir := -1; \n  scrollPending := 1 \nEND;\n\nUI P"
 & "ointTool(StartNW);\n\n(* Start a new virtual terminal whose northwest p"
 & "oint is \n   \"p\". Subsequent lines are printed downward. *)\n\nPROC S"
 & "tartSW(p) IS \n  currPt := p; \n  leftMargin ";

CONST E27_1 =
   ":= CAR(p); \n  scrollDir := 1; \n  scrollPending := NIL \nEND;\n\nUI Po"
 & "intTool(StartSW);\n\n(* Start a new virtual terminal whose southwest po"
 & "int is \n   \"p\". Subsequent lines are printed upward. *)\n\n(* \\sect"
 & "ion{Printing} *)\n\n(* This module maintains a current print position. "
 & "Each of\n   the following procedures prints text at the current print\n"
 & "   position and advances the print position to the end of\n   the text "
 & "just printed. When a newline character is printed,\n   the print positi"
 & "on is moved so as to simulate a carriage\n   return according to the cu"
 & "rrent font, the current line\n   spacing, and the vertical advancement "
 & "direction. *)\n\nPRIVATE PROC SetLineSep() IS \n  IF \n    lineSep = NI"
 & "L -> lineSep := PS.GetFontPtSize() | SKIP \n  FI \nEND;\n\n/* Set \"lin"
 & "eSep\" from the current font if necessary. */\n\nPRIVATE PROC Scroll() "
 & "IS \n  SetLineSep(); \n  currPt := \n    R2.PlusY(currPt, scrollDir * l"
 & "ineSep * spacing) \nEND;\n\nPRIVATE PROC ScrollIfPending() IS \n  IF sc"
 & "rollPending # NIL -> Scroll() | SKIP FI \nEND;\n\n/* If a scroll is pen"
 & "ding, adjust \"currPt\" vertically. */\n\nPRIVATE PROC NonNLString(txt)"
 & " IS \n  ScrollIfPending(); \n  PS.Type(currPt, txt); \n  currPt := R2.P"
 & "lusX(currPt, PS.StringWidth(txt)) \nEND;\n\n/* Print \"txt\" at the cur"
 & "rent point. \"txt\" is assumed not \n   to contain any newline characte"
 & "rs. */\n\nPRIVATE PROC NewLine() IS \n  currPt := (leftMargin, CDR(curr"
 & "Pt)); \n  IF \n    scrollDir < 0 -> scrollPending := 1 \n  | scrollDir "
 & "> 0 -> Scroll() \n  FI \nEND;\n\n/* Handle a newline character. */\n\nP"
 & "RIVATE CONST NL = Text.GetChar(\"\\n\", 0);\n\nPRIVATE PROC String2(txt"
 & ") IS \n  DO \n    txt # \"\" -> \n      VAR nextNL, len IN \n        ne"
 & "xtNL := Text.FindChar(txt, NL); \n        IF \n          nextNL < 0 -> "
 & "len := Text.Length(txt) \n        | len := nextNL \n        FI; \n     "
 & "   IF \n          len > 0 -> NonNLString(Text.Sub(txt, 0, len)) \n     "
 & "   | SKIP \n        FI; \n        IF \n          nextNL >= 0 -> NewLine"
 & "(); len := len + 1 | SKIP \n        FI; \n        txt := Text.Sub(txt, "
 & "len, 1e6) \n      END \n  OD \nEND;\n\n";

CONST E27_2 =
   "/* Same as \"String\" below, but this procedure assumes the \n   font h"
 & "as already been set correctly according to \n   \"fontFace\" and \"font"
 & "Size\". */\n\nPROC String(txt) IS \n  VAR nm, sz IN \n    nm, sz := PS."
 & "GetFont(); \n    PS.SetFont(fontFace, fontSize); \n    String2(txt); \n"
 & "    PS.SetFont(nm, sz) \n  END \nEND;\n\nPROC StringNL(txt) IS String(t"
 & "xt & \"\\n\") END;\n\n(* \"String\" prints \"txt\" at the current print"
 & " position as described\n   above. \"StringNL\" is like \"String\", but "
 & "it appends a newline character. *)\n\nPROC Point(p) IS String(Unparse.P"
 & "oint(p)) END;\n\nPROC PointNL(p) IS String(Unparse.Point(p) & \"\\n\") "
 & "END;\n\nUI PointTool(Point);\nUI PointTool(PointNL);\n\n(* \"Point\" pr"
 & "ints the point \"p\" as a pair of reals at the current\n   print positi"
 & "on. The precision to which the real numbers are printed\n   is controll"
 & "ed by the \"Unparse\" module. \"PrintNL\" is like \"Point\",\n   but it"
 & " appends a newline character. *) \n\nPROC Value(val) IS String(Unparse."
 & "Value(val)) END;\n\nPROC ValueNL(val) IS Value(val); String(\"\\n\") EN"
 & "D;\n\n(* \"Value\" prints the unparsed representation of \"val\" at the"
 & " current\n   print position. It uses the \"Unparse.Value\" procedure, w"
 & "hich\n   controls the precision to which any numbers in \"val\" are pri"
 & "nted; \n   that procedure may also do some automatic list breaking. \"V"
 & "alueNL\"\n   is like \"Value\", but it appends a newline character. *)\n"
;

CONST E28 =
   "MODULE PtLoc;\n\n(* Procedures for labelling points \n   with coordinat"
 & "es. *)\n\n(* It is a checked run-time error \n   if any of the procedur"
 & "es in this \n   module are supplied parameters \n   other than points. "
 & "*)\n\nIMPORT Unparse, PS;\n\nPROC Point(p) IS \n  PS.Type(p, Unparse.Po"
 & "int(p)) \nEND;\n\nUI PointTool(Point);\n\n(* Print the coordinate value"
 & " of \n   \"p\" at location \"p\". *)\n\nPROC MoveTo(p) IS \n  PS.MoveTo"
 & "(p); Point(p) \nEND;\n\nPROC LineTo(p) IS \n  PS.LineTo(p); Point(p) \n"
 & "END;\n\nPROC CurveTo(p, q, r) IS \n  PS.CurveTo(p, q, r); \n  Point(p);"
 & " \n  Point(q); \n  Point(r) \nEND;\n\nUI PointTool(MoveTo);\n\nUI Point"
 & "Tool(LineTo);\n\nUI PointTool(CurveTo);\n\n(* Execute the procedure of "
 & "the \n   same name in the \"PS\" module, \n   but print the coordinate "
 & "of each \n   argument point. *)\n\n";

CONST E29 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Thu Mar 28 17:44:29 PST "
 & "1996 by heydon\n\n(VTile2\n  (Rim (Pen 8)\n    (VBox\n      (FixedHeigh"
 & "t (TextL \"Defaults:\"))\n      (Space)\n      (Shape (Width2 500) (Hei"
 & "ght 190 + Inf - 150)\n        (Border\n          (TextEdit %configDefau"
 & "lt (BgColor \"White\")\n            ReadOnly (From \"DefaultConfig.sx\""
 & "))\n      ))\n  ))\n  (Rim (Pen 8)\n    (VBox\n      (FixedHeight (Text"
 & "L \"Overrides:\"))\n      (Space)\n      (Shape (Width2 500) (Height 10"
 & "0 + Inf - 60)\n        (Frame Lowered\n          (TextEdit %configOverr"
 & "ides (BgColor \"White\"))\n      ))\n      (Glue 8)\n      (HBox Fill ("
 & "Button %configOk \"  OK  \") Fill)\n  ))\n)\n";

CONST E30 =
   "MODULE Color;\n\n(* Procedures for manipulating and setting colors. *)\n"
 & "\nIMPORT Math;\n\n(* The procedures in this module manipulate color \n "
 & "  values, which are lists of 3 real numbers \n   corresponding to the l"
 & "ocation of the color in the \n   unit RGB cube. *)\n\nCONST \n  Black ="
 & " [0, 0, 0], \n  White = [1, 1, 1], \n  Red = [1, 0, 0], \n  Green = [0,"
 & " 1, 0], \n  Blue = [0, 0, 1], \n  Cyan = [0, 1, 1], \n  Magenta = [1, 0"
 & ", 1], \n  Yellow = [1, 1, 0],\n  Grey25 = FromGrey(1/4),\n  Grey50 = Fr"
 & "omGrey(1/2),\n  Grey75 = FromGrey(3/4);\n\n(* These colors are the vert"
 & "ices of the unit RGB cube. *)\n\nPROC c := FromGrey(v) IS c := [v, v, v"
 & "] END;\n\n(* Make \"c\" the grey color with value \"v\". The value \"v "
 & "= 0\" produces black,\n   and the value \"v = 1\" produces white. *)\n\n"
 & "PROC c := FromRGB(r, g, b) IS c := [r, g, b] END;\n\n(* Make \"c\" the "
 & "color with RGB values \"r\", \"g\", and \"b\". \n*)\n\nCONST\n  RedHue "
 & "= 0,\n  YellowHue = 1/6,\n  GreenHue = 1/3,\n  CyanHue = 1/2,\n  BlueHu"
 & "e = 2/3,\n  MagentaHue = 5/6;\n\n(* A color may also be specified as a "
 & "hue, saturation, \n   and value (HSV) triple. The hue \"h\" determines "
 & "the \n   pure hue or pigment or the color. The hue varies\n   around th"
 & "e color wheel as indicated by the 6 \"Hue\"\n   constants defined above"
 & ".\n\n   The saturation \"s\" is the intensity of the color. The \n   pu"
 & "re colors have \"s = 1\", while the greys have \"s = \n   0\" (in which"
 & " case the hue is irrelevant and the value \n   determines the shade of "
 & "grey). \n\n   The value \"v\" is the brightness of the color. The \n   "
 & "pure colors have \"v = 1\", while black has \"v = 0\" (in \n   which ca"
 & "se the hue and saturation are both \n   irrelevant). *)\n\nPROC c := Fr"
 & "omHSV(h, s, v) IS \n  IF \n    v = 0 -> c := Black | s = 0 -> c := From"
 & "Grey(v) \n  | IF h = 1 -> h := 0 | SKIP FI; \n    VAR i, f, p, q, t IN "
 & "\n      i := FLOOR(h * 6); \n      f := (h * 6) - i; \n      p := v * ("
 & "1 - s); \n      q := v * (1 - (s * f)); \n      t := v * (1 - (s * (1 -"
 & " f))); \n      IF \n        i < 0.5 -> c := [v, t, p] \n      | i < 1.5"
 & " -> c := [q, v, p] \n      | i < 2.5 -> c :=";

CONST E30_0 =
   " [p, v, t] \n      | i < 3.5 -> c := [p, q, v] \n      | i < 4.5 -> c :"
 & "= [t, p, v] \n      | i < 5.5 -> c := [v, p, q] \n      FI \n    END \n"
 & "  FI \nEND;\n\n(* Make \"c\" the color with HSV values \"h\", \"s\", an"
 & "d \"v\". \n*)\n\nPROC c := HueN(n) IS\n  c := (Math.Phi * n) MOD 1.0\nE"
 & "ND;\n\n(* This function computes a mapping from integers to hue values "
 & "such\n   that the hues corresponding to the integers 1, 2, ..., n are e"
 & "venly\n   distributed around the color wheel, and such that the hues\n "
 & "  corresponding to subsequent integers are sufficiently distinct to\n  "
 & " be easily distinguished. *)\n";

CONST E31 =
   "MODULE Time;\n\nPROC t := Now() IS SKIP END;\n\n(* Sets \"t\" to the nu"
 & "mber of seconds since some starting\n   point. The starting point may v"
 & "ary from one invocation\n   of the Juno application to another, but it "
 & "will be fixed\n   throughout a single invocation. *)\n";

CONST E32 =
   "MODULE Path;\n\n(* Procedures related to PostScript paths *)\n\nIMPORT "
 & "BST, List, Color, R2, Geometry, PS, Bezier, \n       Circle;\n\nPRIVATE"
 & " PROC res := TransformPts(pts, xform) IS \n  IF \n    pts = NIL -> res "
 & ":= NIL \n  | IF \n      VAR pt, tail IN \n        pts = (pt, tail) -> \n"
 & "          res := \n            (APPLY(xform, pt), \n             Transf"
 & "ormPts(tail, xform)) \n      END \n    FI \n  FI \nEND;\n\nPROC newPath"
 & " := Transform(path, xform) IS \n  IF \n    path = NIL -> newPath := NIL"
 & " \n  | IF \n      VAR op, args, tail IN \n        path = ((op, args), t"
 & "ail) -> \n          newPath := \n            ((op, TransformPts(args, x"
 & "form)), \n             Transform(tail, xform)) \n      END \n    FI \n "
 & " FI \nEND;\n\n(* Set \"newPath\" to a representation of the path \n   \""
 & "path\" whose points have been transformed \n   according to the closure"
 & " \"xform\". The argument \n   \"path\" and the result \"newPath\" are p"
 & "aths as \n   represented by the result of the \n   \"PS.CurrentPath\" p"
 & "rocedure. The transformation \n   function \"xform\" should be a closur"
 & "e that takes \n   a single point as an IN parameter, and returns \n   a"
 & " single point as an OUT parameter. *)\n\nPRIVATE PROC AnnotatePoint(pt)"
 & " IS \n  SAVE PS IN \n    PS.NewPath(); \n    Circle.DrawR(pt, 3); \n   "
 & " PS.SetColor(Color.Blue); \n    PS.Fill() \n  END \nEND;\n\nPRIVATE PRO"
 & "C AnnotateVector(from, to) IS \n  SAVE PS IN \n    PS.NewPath(); \n    "
 & "Circle.DrawR(to, 3); \n    PS.SetColor(Color.Red); \n    PS.Fill(); \n "
 & "   PS.MoveTo(from); \n    PS.LineTo(to); \n    PS.SetColor(Color.Grey50"
 & "); \n    PS.Stroke() \n  END \nEND;\n\nPROC Annotate() IS \n  VAR p, la"
 & "stP IN \n    p, lastP := PS.CurrentPath(), NIL; \n    DO \n      p # NI"
 & "L -> \n        VAR op, args IN \n          (op, args) = CAR(p) -> \n   "
 & "         IF \n              op = \"MoveTo\" OR op = \"LineTo\" -> \n   "
 & "             lastP := CAR(args); \n                AnnotatePoint(lastP)"
 & " \n            | op = \"Close\" -> lastP := NIL \n            | op = \""
 & "CurveTo\" -> \n                VAR p1, p2, p3 IN \n                  ar"
 & "gs = [p1, p2, p3] -> \n                    ";

CONST E32_0 =
   "AnnotateVector(lastP, p1); \n                    AnnotatePoint(p3); \n "
 & "                   AnnotateVector(p3, p2); \n                    lastP "
 & ":= p3 \n                END \n            FI \n        END; \n        p"
 & " := CDR(p) \n    OD \n  END \nEND;\n\nUI PointTool(Annotate);\n\n(* Ann"
 & "otates the current path. The points on the \n   path are shown as small"
 & " blue dots, and the \n   control points of any Bezier curves are shown "
 & "\n   as small red dots. Light grey lines are shown \n   between Bezier "
 & "control points and end points. *)\n\nPROC AppendToCurrent(path) IS \n  "
 & "DO \n    path # NIL -> \n      VAR op, args IN \n        (op, args) = C"
 & "AR(path) -> \n          IF \n            op = \"MoveTo\" -> PS.MoveTo(C"
 & "AR(args)) \n          | op = \"LineTo\" -> PS.LineTo(CAR(args)) \n     "
 & "     | op = \"Close\" -> PS.Close() \n          | op = \"CurveTo\" -> \n"
 & "              VAR p1, p2, p3 IN \n                args = [p1, p2, p3] -"
 & "> \n                  PS.CurveTo(p1, p2, p3) \n              END \n    "
 & "      FI \n      END; \n      path := CDR(path) \n  OD \nEND;\n\n(* App"
 & "end the path \"path\" to the current path; \n   \"path\" should be a pa"
 & "th description as returned \n   by the \"PS.CurrentPath()\" procedure. "
 & "*)\n\nPROC segs := ToSegments(p) IS \n  VAR firstP, currP, offset, end,"
 & " len IN \n    segs, offset := NIL, 0; \n    firstP, currP := NIL, NIL; "
 & "\n    DO \n      p # NIL -> \n        VAR op, args IN \n          (op, "
 & "args) = CAR(p) -> \n            IF \n              op = \"MoveTo\" -> \n"
 & "                firstP := CAR(args); \n                currP := firstP "
 & "\n            | op = \"LineTo\" -> \n                len := \n         "
 & "         Geometry.Dist(currP, CAR(args)); \n                end := offs"
 & "et + len; \n                segs, offset, currP := \n                  "
 & "(([offset, end, len], \n                    [\"Straight\", currP, CAR(a"
 & "rgs)]), \n                   segs), end, CAR(args) \n            | op ="
 & " \"CurveTo\" -> \n                VAR p1, p2, p3 IN \n                 "
 & " args = [p1, p2, p3] -> \n                    len := \n                "
 & "      Bezier.Length(currP, p1";

CONST E32_1 =
   ", p2, \n                                    p3); \n                    "
 & "end := offset + len; \n                    segs, offset, currP := \n   "
 & "                   (([offset, end, len], \n                        [\"C"
 & "urve\", currP, p1, p2, p3]), \n                       segs), end, p3 \n"
 & "                END \n            | op = \"Close\" -> \n               "
 & " len := Geometry.Dist(currP, firstP); \n                end := offset +"
 & " len; \n                segs, offset, firstP, currP := \n              "
 & "    (([offset, end, len], \n                    [\"Straight\", currP, f"
 & "irstP]), \n                   segs), end, NIL, firstP \n            FI "
 & "\n        END; \n        p := CDR(p) \n    OD \n  END; \n  segs := BST."
 & "FromList(List.Reverse(segs)) \nEND;\n\n(* Set \"segs\" to a list of seg"
 & "ments that \n   represents the straight and curved segments of \n   the"
 & " path \"p\", which should be a path as \n   returned by the \"PS.Curren"
 & "tPath()\" procedure. \n   The \"segs\" result can be passed to the \n  "
 & " \"Length\", \"AtT\", and \"TangentAtT\" procedures \n   below. See the"
 & " private view for a description \n   of how \"segs\" is represented. *)"
 & "\n\n/* The \"segs\" result is a binary search tree of \n   the form: \n"
 & "\n|    segs     ::= tree\n|    tree     ::= ( seg, ( tree, tree ) ) | N"
 & "IL\n|    seg      ::= ( interval, value )\n|    interval ::= [ start, e"
 & "nd, len ]\n|    value    ::= [ type, pt, ... ]\n|    type     ::= \"Str"
 & "aight\" | \"Curved\"\n|    pt       ::= ( x, y )\n\n   In each interval"
 & ", \"start + len = end\", and \n   \"len\" is the length of that segment"
 & ". The \n   segments are arranged in a binary search tree: \n   for all "
 & "nodes \"n\", the interval for \"n\" is at \n   least the interval of it"
 & "s left child, and at \n   most the interval of its right child. The \n "
 & "  proceudure \"BST.FromList\" is used to construct \n   \"segs\", and t"
 & "he procedure \"BST.FindInterval\" is \n   used to search for the segmen"
 & "t containing a \n   given time \"t\". \n\n   If the segment\'s \"type\""
 & " is \"Straight\", then \n   \"pts\" is a list of two points, namely, th"
 & "e \n   segment\'s start and end points. If \"type\"";

CONST E32_2 =
   " is \n   \"Curved\", then \"pts\" is a list of the four \n   points def"
 & "ining the Bezier curve for that \n   segment. */\n\nPROC len := Length("
 & "segs) IS \n  IF \n    segs = NIL -> len := 0 \n  | IF \n      VAR start"
 & ", end, len1, val, l, r IN \n        segs = (([start, end, len1], val), "
 & "(l, r)) -> \n          len := len1 + Length(l) + Length(r) \n      END "
 & "\n    FI \n  FI \nEND;\n\n(* Set \"len\" to the total length of the seg"
 & "ments \n   \"segs\". *)\n\nPROC pt := AtT(segs, t) IS \n  VAR seg IN \n"
 & "    seg := BST.FindInterval(t, segs); \n    IF \n      VAR start, end, "
 & "len, value IN \n        seg = ([start, end, len], value) -> \n         "
 & " IF \n            VAR from, to IN \n              value = [\"Straight\""
 & ", from, to] -> \n                pt := \n                  ((t - start)"
 & " / len, 0) REL \n                  (from, to) \n            END \n     "
 & "     | VAR p0, p1, p2, p3 IN \n              value = [\"Curve\", p0, p1"
 & ", p2, p3] -> \n                pt := \n                  Bezier.AtT(p0,"
 & " p1, p2, p3, \n                             (t - start) / len) \n      "
 & "      END \n          FI \n      END \n    FI \n  END \nEND;\n\n(* Set "
 & "\"pt\" to the point on the path \"segs\" at \n   time \"t\". Requires \""
 & "0 <= t <= Length(segs)\". *)\n\nPROC tangent := TangentAtT(segs, t) IS "
 & "\n  VAR seg IN \n    seg := BST.FindInterval(t, segs); \n    IF \n     "
 & " VAR from, to IN \n        CDR(seg) = [\"Straight\", from, to] -> \n   "
 & "       tangent := R2.Minus(to, from) \n      END \n    | VAR start, end"
 & ", len, p0, p1, p2, p3 IN \n        seg = \n          ([start, end, len]"
 & ", \n           [\"Curve\", p0, p1, p2, p3]) -> \n          tangent := \n"
 & "            Bezier.PrimeAtT(p0, p1, p2, p3, \n                         "
 & "   (t - start) / len) \n      END \n    FI \n  END \nEND;\n\n(* Set \"p"
 & "t\" to the tangent vector to the point on \n   the path \"segs\" at tim"
 & "e \"t\". Requires \"0 <= t \n   <= Length(segs)\". *)\n\n";

CONST E33 =
   "P4\n11 8\n\000\000\000\000\377\340\177\300?\200\037\000\016\000\004\000"
;

CONST E34 =
   "MODULE Arc;\n\n(* Procedures for drawing circular \n   arcs. *)\n\nIMPO"
 & "RT Math, PS, Circle, Geometry, Angle;\n\nPRIVATE FUNC d = ArcPoint(a, b"
 & ", c) IS \n  d ~ c AND \n  (a, b) CONG (b, d) AND \n  Geometry.Colinear("
 & "b, d, c) \nEND;\n\nPRIVATE FUNC \n  e = RightIntersect(a, b, d) IS \n  "
 & "e ~ (0.5, 0.5) REL (a, d) AND \n  Angle.Right(b, a, e) AND \n  Angle.Ri"
 & "ght(b, d, e) \nEND;\n\nPRIVATE CONST MaxCurveRatio = 0.05;\n\n/* If the"
 & " ratio of the distance \n   between endpoints to the radius of \n   cur"
 & "vature is at most \n   \"MaxCurveRatio\", then a straight \n   line is "
 & "drawn instead of a curve. */\n\nPRIVATE PROC SmallArc(b, c) IS \n  VAR "
 & "a, d IN \n    a := PS.CurrentPoint(); \n    d := ArcPoint(a, b, c); \n "
 & "   IF \n      Geometry.Dist(a, d) / \n      Geometry.Dist(a, b) < \n   "
 & "     MaxCurveRatio -> PS.LineTo(d) \n    | VAR \n        e = RightInter"
 & "sect(a, b, d), \n        f ~ Geometry.Mid(a, e), \n        g ~ Geometry"
 & ".Mid(d, e) \n      IN \n        VAR \n          h ~ Geometry.Mid(a, f),"
 & " \n          i ~ Geometry.Mid(f, g), \n          j ~ Geometry.Mid(g, d)"
 & ", \n          k ~ Geometry.Mid(h, i), \n          l ~ Geometry.Mid(i, j"
 & "), \n          m ~ Geometry.Mid(k, l) \n        IN \n          h = Geom"
 & "etry.Mid(a, f) AND \n          i = Geometry.Mid(f, g) AND \n          j"
 & " = Geometry.Mid(g, d) AND \n          k = Geometry.Mid(h, i) AND \n    "
 & "      l = Geometry.Mid(i, j) AND \n          m = Geometry.Mid(k, l) AND"
 & " \n          Geometry.Colinear(a, f, e) AND \n          Geometry.Coline"
 & "ar(d, g, e) AND \n          (a, f) CONG (d, g) AND \n          (a, b) C"
 & "ONG (b, m) -> \n            PS.CurveTo(f, g, d) \n        END \n      E"
 & "ND \n    FI\n  END \nEND;\n\nPRIVATE PROC y := PosAngle(x) IS \n  IF \n"
 & "    x < 0 -> y := x + 2 * Math.Pi \n  | y := x \n  FI \nEND;\n\nPRIVATE"
 & " CONST \n  HalfPi = Math.Pi / 2, \n  Epsilon = 0.001, \n  HalfPiEps = H"
 & "alfPi - Epsilon;\n\nPROC Draw(a, b) IS \n  VAR c, theta IN \n    c := P"
 & "S.CurrentPoint(); \n    theta := \n      PosAngle(Angle.CC(b, a, c)); \n"
 & "    DO \n      theta >= HalfPiEps -> \n        Circle.DrawQuarter(a); \n"
 & "        theta := theta - Ha";

CONST E34_0 =
   "lfPi \n    OD; \n    IF \n      theta > Epsilon -> SmallArc(a, b) \n   "
 & " | SKIP \n    FI \n  END \nEND;\n\nPROC DrawCC(a, b) IS \n  VAR c, thet"
 & "a IN \n    c := PS.CurrentPoint(); \n    theta := \n      PosAngle(Angl"
 & "e.CC(c, a, b)); \n    DO \n      theta >= HalfPiEps -> \n        Circle"
 & ".DrawQuarterCC(a); \n        theta := theta - HalfPi \n    OD; \n    IF"
 & " \n      theta > Epsilon -> SmallArc(a, b) \n    | SKIP \n    FI \n  EN"
 & "D \nEND;\n\nUI PointTool(Draw);\n\nUI PointTool(DrawCC);\n\n(* Add a cl"
 & "ockwise or \n   counter-clockwise circular arc, \n   respectively, to t"
 & "he current path. \n   In each case, the arc starts at the \n   current "
 & "point, has center \"a\", and \n   ends at a point along the ray \"ab\"."
 & " \n*)\n";

CONST E35 =
   "MODULE Rel;\n\n(* Functions for specifying \n   coordinates relative to"
 & " some \n   other coordinate system. *)\n\nIMPORT R2;\n\nFUNC q = C1(p, "
 & "a) IS \n  q = R2.Plus(p, a) \nEND;\n\nUI PointTool(C1);\n\n(* \"q\" is "
 & "\"a\" shifted by \"p\". *)\n\nFUNC q = C2(p, a, b) IS \n  q = p REL (a,"
 & " b) \nEND;\n\nUI PointTool(C2);\n\n(* For completeness, \"q\" is \"p RE"
 & "L \n   (a, b)\", namely \"q\" is the point \n   \"p\" in the coordinate"
 & " system in \n   which \"a\" is the origin and \"b\" \n   is the tip of "
 & "the unit x-vector. \n*)\n\nFUNC q = C3(p, a, b, c) IS \n  (E xVec, yVec"
 & ", px, py :: \n    p = (px, py) AND \n    xVec = \n      R2.Times(px, R2"
 & ".Minus(b, a)) AND \n    yVec = \n      R2.Times(py, R2.Minus(c, a)) AND"
 & " \n    q = \n      R2.Plus(a, R2.Plus(xVec, yVec))) \nEND;\n\nUI PointT"
 & "ool(C3);\n\n(* \"q\" is the point \"p\" in the \n   skewed coordinate s"
 & "ystem in \n   which \"a\" is the origin, \"b\" is \n   the tip of the u"
 & "nit x-vector, \n   and \"c\" is the tip of the unit \n   y-vector. *)\n"
 & "\nFUNC q = Inv(p, a, b) IS \n  (E ab, ac, ap, abLen, abLen2,\n     qx, "
 & "qy :: \n    ab = R2.Minus(b, a) AND \n    ac = (-CDR(ab), CAR(ab)) AND "
 & "\n    ap = R2.Minus(p, a) AND \n    abLen = R2.Length(ab) AND \n    abL"
 & "en2 = abLen * abLen AND \n    q = (qx, qy) AND \n    qx = R2.Dot(ap, ab"
 & ") / abLen2 AND \n    qy = R2.Dot(ap, ac) / abLen2) \nEND;\n\nUI PointTo"
 & "ol(Inv);\n\n(* This function is equivalent to \n   \"p = q REL (a, b)\""
 & ", but it can \n   be used functionally to \n   establish useful hints i"
 & "f \"p\", \n   \"a\", and \"b\" are already hinted. \n*)\n\nFUNC x = Inv"
 & "X(p, a, b) IS \n  (E ab, ap, abLen2 :: \n    ab = R2.Minus(b, a) AND \n"
 & "    ap = R2.Minus(p, a) AND \n    abLen2 = R2.Length2(ab) AND \n    x ="
 & " R2.Dot(ap, ab) / abLen2) \nEND;\n\n(* This function is equivalent to \n"
 & "   \"(E y :: p = (x, y) REL (a, b))\".\n   It can be used functionally "
 & "to \n   establish useful hints if \"p\", \n   \"a\", and \"b\" are alre"
 & "ady hinted. \n*)\n\nFUNC y = InvY(p, a, b) IS \n  (E abx, aby, ac, ap, "
 & "acLen2 :: \n    (abx, aby) = R2.Minus(b, a) AND \n    ac = (-aby, abx) "
 & "AND \n    ap = R2.Minus(p, a) AND \n    acLen2 = R2.Length2(ac) AND \n "
 & "   y ";

CONST E35_0 =
   "= R2.Dot(ap, ac) / acLen2) \nEND;\n\n(* This function is equivalent to "
 & "\n   \"(E x :: p = (x, y) REL (a, b))\".\n   It can be used functionall"
 & "y to \n   establish useful hints if \"p\", \n   \"a\", and \"b\" are al"
 & "ready hinted. \n*)\n\nPRED X(p, a, b, x) IS \n  (E y = InvY(p, a, b) ::"
 & " \n    p = (x, y) REL (a, b)) \nEND;\n\nUI PointTool(X);\n\n(* This con"
 & "straint is equivalent to\n   \"(E y :: p = (x, y) REL (a, b))\",\n   ex"
 & "cept that it picks a smart hint\n   for \"y\". *)\n\nPRED Y(p, a, b, y)"
 & " IS \n  (E x = InvX(p, a, b) :: \n    p = (x, y) REL (a, b)) \nEND;\n\n"
 & "UI PointTool(Y);\n\n(* This constraint is equivalent to\n   \"(E x :: p"
 & " = (x, y) REL (a, b))\",\n   except that it picks a smart hint\n   for "
 & "\"x\". *)\n";

CONST E36 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Thu May 26 17:01:53 PDT "
 & "1994 by heydon                   \n\n(Rim (Pen 5)\n  (Macro Gap () \'(G"
 & "lue 5))\n  (BrowserShape\n    (VBox (MyBrowserFont)\n      (DirMenu (Fo"
 & "r savePSBrowser))\n      (Gap)\n      (Border\n        (FileBrowser %sa"
 & "vePSBrowser\n          (BgColor \"White\")\n          (Suffixes \".ps\""
 & ")\n        )\n      )\n      (Gap)\n      (HBox\n        \"File:\"\n   "
 & "     (Glue 2)\n        (Frame Lowered\n          (Helper FirstFocus (Bg"
 & "Color \"White\") (For savePSBrowser))\n        )\n      )\n    )\n  )\n"
 & ")\n";

CONST E37 =
   "MODULE Geometry;\n\n(* Geometric predicates and functions. *)\n\nIMPORT"
 & " Math, R2;\n\nPRED Equal(a, b) IS a = b END;\n\nUI PointTool(Equal);\n\n"
 & "(* The points \"a\" and \"b\" are the same. *)\n\nFUNC p = Mid(a, b) IS"
 & " \n  p = R2.Times(0.5, R2.Plus(a, b)) \nEND;\n\nUI PointTool(Mid);\n\n("
 & "* \"p\" is the midpoint of the segment \n   \"(a, b)\". *)\n\nPRED Coli"
 & "near(a, b, c) IS \n  (a, b) PARA (a, c) \nEND;\n\nUI PointTool(Colinear"
 & ");\n\n(* The points \"a\", \"b\", and \"c\" are \n   colinear. *)\n\nFU"
 & "NC p = HorVer(h, v) IS \n  (E hx, hy, vx, vy :: \n    h = (hx, hy) AND "
 & "\n    v = (vx, vy) AND \n    p = (vx, hy)) \nEND;\n\nUI PointTool(HorVe"
 & "r);\n\n(* \"p\" is the intersection point of the \n   horizontal line t"
 & "hrough \"h\" and the \n   vertical line through \"v\". *)\n\nFUNC d2 = "
 & "Dist2(p, q) IS \n  d2 = R2.Length2(R2.Minus(p, q)) \nEND;\n\n(* \"d2\" "
 & "is the square of the distance \n   between the points \"p\" and \"q\". "
 & "*)\n\nFUNC d = Dist(p, q) IS \n  d = R2.Length(R2.Minus(p, q)) \nEND;\n"
 & "\n(* \"d\" is the distance between the points \n   \"p\" and \"q\". *)\n"
 & "\nFUNC d2 = DistX2(p, q) IS \n  (E px, py, qx, qy, dx :: \n    p = (px,"
 & " py) AND \n    q = (qx, qy) AND \n    dx = px - qx AND \n    d2 = dx * "
 & "dx) \nEND;\n\n(* \"d\" is the square of the distance \n   between the p"
 & "rojections of the points \n   \"p\" and \"q\" onto the X axis. *)\n\nFU"
 & "NC d = DistX(p, q) IS \n  d = Math.Sqrt(DistX2(p, q)) \nEND;\n\n(* \"d\""
 & " is the distance between the \n   projections of the points \"p\" and \""
 & "q\" \n   onto the X axis. *)\n\nFUNC d2 = DistY2(p, q) IS \n  (E px, py"
 & ", qx, qy, dy :: \n    p = (px, py) AND \n    q = (qx, qy) AND \n    dy "
 & "= py - qy AND \n    d2 = dy * dy) \nEND;\n\n(* \"d2\" is the square of "
 & "the distance \n   between the projections of the points \n   \"p\" and "
 & "\"q\" onto the Y axis. *)\n\nFUNC d = DistY(p, q) IS \n  d = Math.Sqrt("
 & "DistY2(p, q)) \nEND;\n\n(* \"d\" is the distance between the \n   proje"
 & "ctions of the points \"p\" and \"q\" \n   onto the Y axis. *)\n\nFUNC l"
 & "en2 = SegLength2(s) IS \n  (E p, q :: \n    s = (p, q) AND len2 = Dist2"
 & "(p, q)) \nEND;\n\n(* \"len2\" is the square of the length of \n   the s"
 & "egment \"s\", where \"s\" is a ";

CONST E37_0 =
   "pair \n   of points \"(p, q)\". *)\n\nFUNC len = SegLength(s) IS \n  (E"
 & " p, q :: \n    s = (p, q) AND len = Dist(p, q)) \nEND;\n\n(* \"len\" is"
 & " the length of the segment \n   \"s\", where \"s\" is a pair of points "
 & "\n   \"(p, q)\". *)\n\nPRED CongX(a, b, c, d) IS \n  (E ax, ay, bx, by,"
 & " cx, cy, dx, dy, s1x, \n     s2x :: \n    a = (ax, ay) AND \n    b = (b"
 & "x, by) AND \n    c = (cx, cy) AND \n    d = (dx, dy) AND \n    s1x = ax"
 & " - bx AND \n    s2x = cx - dx AND \n    s1x * s1x = s2x * s2x) \nEND;\n"
 & "\nUI PointTool(CongX);\n\n(* The projections of the segments \"ab\" \n "
 & "  and \"cd\" onto the X axis are \n   congruent. *)\n\nPRED CongY(a, b,"
 & " c, d) IS \n  (E ax, ay, bx, by, cx, cy, dx, dy, s1y, \n     s2y :: \n "
 & "   a = (ax, ay) AND \n    b = (bx, by) AND \n    c = (cx, cy) AND \n   "
 & " d = (dx, dy) AND \n    s1y = ay - by AND \n    s2y = cy - dy AND \n   "
 & " s1y * s1y = s2y * s2y) \nEND;\n\nUI PointTool(CongY);\n\n(* The projec"
 & "tions of the segments \"ab\" \n   and \"cd\" onto the Y axis are \n   c"
 & "ongruent. *)\n\nPRED CongXY(a, b, c, d) IS \n  (E ax, ay, bx, by, cx, c"
 & "y, dx, dy, s1x, \n     s2y :: \n    a = (ax, ay) AND \n    b = (bx, by)"
 & " AND \n    c = (cx, cy) AND \n    d = (dx, dy) AND \n    s1x = ax - bx "
 & "AND \n    s2y = cy - dy AND \n    s1x * s1x = s2y * s2y) \nEND;\n\nUI P"
 & "ointTool(CongXY);\n\n(* The projection of the segment \"ab\" \n   onto "
 & "the X axis is congruent to the \n   projection of the segment \"cd\" on"
 & "to \n   the Y axis. *)\n\nPRED VerSym(a, b, p) IS \n  (E x, ay, by, px,"
 & " py :: \n    a = (x, ay) AND \n    b = (x, by) AND \n    p = (px, py) A"
 & "ND \n    by - py = py - ay) \nEND;\n\nUI PointTool(VerSym);\n\n(* The p"
 & "oints \"a\" and \"b\" are vertically \n   symmetric about the horizonta"
 & "l line \n   through the point \"p\". *)\n\nPRED HorSym(a, b, p) IS \n  "
 & "(E ax, bx, y, px, py :: \n    a = (ax, y) AND \n    b = (bx, y) AND \n "
 & "   p = (px, py) AND \n    bx - px = px - ax) \nEND;\n\nUI PointTool(Hor"
 & "Sym);\n\n(* The points \"a\" and \"b\" are \n   horizontally symmetric "
 & "about the \n   vertical line through the point \"p\". *)\n\nPRED LineSy"
 & "m(a, b, p, q) IS \n  (a, p) CONG (p, b) AND \n  (a, q) CONG (q, b) \nEN"
 & "D;";

CONST E37_1 =
   "\n\nUI PointTool(LineSym);\n\n(* The points \"a\" and \"b\" are symmetr"
 & "ic \n   about the line through the points \"p\" \n   and \"q\". *)\n\n";

CONST E38 =
   "MODULE TypeLinesR;\n\n(* The procedures in this module \n   type a righ"
 & "t-justified block of \n   text lines relative to a \n   specified point"
 & ". Each procedure \n   takes a reference point and a \n   single text, w"
 & "hich is converted \n   to a list of texts by the \n   \"TextList.FromTe"
 & "xt\" procedure. \n   One line is displayed in the \n   block per elemen"
 & "t of this list. \n\n   The lines in each block are \n   separated verti"
 & "cally by the \n   height of the current font plus \n   the current line"
 & " skip value \n   (maintained by the \"LineSkip\" \n   module). \n\n   T"
 & "he text block is actually \n   translated in the appropriate \n   direc"
 & "tion away from the \n   reference point by the current \n   horizontal "
 & "and/or vertical \n   offset values (maintained by the \n   \"Offset\" m"
 & "odule). For example, \n   the \"South\" procedure translates \n   the t"
 & "ext block up by the current \n   vertical offset, and the \"NE\" \n   p"
 & "rocedure translates it down by \n   the current vertical offset and \n "
 & "  to the left by the current \n   horizontal offset. The \"Center\" \n "
 & "  procedure ignores the current \n   offset values. *)\n\nIMPORT LineSk"
 & "ip, Offset, PS, \n       R2, TextList, Type;\n\nPRIVATE PROC TypeBlockR"
 & "(p, l) IS \n  VAR asc, dec, d IN \n    asc, dec := PS.FontHeight(); \n "
 & "   d := asc + dec + LineSkip.Get(); \n    p := (CAR(p), CDR(p) - asc); "
 & "\n    DO \n      l # NIL -> \n        Type.R(p, CAR(l)); \n        p :="
 & " (CAR(p), CDR(p) - d); \n        l := CDR(l) \n    OD \n  END \nEND;\n\n"
 & "/* Type the right-justified block \n   of text lines \"l\" such that \""
 & "p\" \n   is the northwest corner of the \n   box\'s bounding-box. */\n\n"
 & "PROC North(p, txt) IS \n  VAR l, w, h, dh IN \n    l := TextList.FromTe"
 & "xt(txt); \n    w, h := TextList.Size(l); \n    dh := Offset.GetVer(); \n"
 & "    TypeBlockR(R2.Plus(p, \n                       (w / 2, -dh)), \n   "
 & "            l) \n  END \nEND;\n\nPROC South(p, txt) IS \n  VAR l, w, h,"
 & " dh IN \n    l := TextList.FromText(txt); \n    w, h := TextList.Size(l"
 & "); \n    dh := Offset.GetVer(); \n    TypeBlockR(R2.Plus(p, \n         "
 & "              (w / 2, \n        ";

CONST E38_0 =
   "                h + dh)), l) \n  END \nEND;\n\nPROC East(p, txt) IS \n "
 & " VAR l, w, h, dw IN \n    l := TextList.FromText(txt); \n    w, h := Te"
 & "xtList.Size(l); \n    dw := Offset.GetHor(); \n    TypeBlockR(R2.Plus(p"
 & ", \n                       (-dw, h / 2)), \n               l) \n  END \n"
 & "END;\n\nPROC West(p, txt) IS \n  VAR l, w, h, dw IN \n    l := TextList"
 & ".FromText(txt); \n    w, h := TextList.Size(l); \n    dw := Offset.GetH"
 & "or(); \n    TypeBlockR(R2.Plus(p, \n                       (w + dw, \n "
 & "                       h / 2)), l) \n  END \nEND;\n\nPROC Center(p, txt"
 & ") IS \n  VAR l, w, h IN \n    l := TextList.FromText(txt); \n    w, h :"
 & "= TextList.Size(l); \n    TypeBlockR(R2.Plus(p, \n                     "
 & "  (w / 2, \n                        h / 2)), l) \n  END \nEND;\n\nPROC "
 & "NW(p, txt) IS \n  VAR l, w, h, dw, dh IN \n    l := TextList.FromText(t"
 & "xt); \n    w, h := TextList.Size(l); \n    dw, dh := Offset.GetHorVer()"
 & "; \n    TypeBlockR(R2.Plus(p, \n                       (w + dw, -dh)), "
 & "\n               l) \n  END \nEND;\n\nPROC NE(p, txt) IS \n  VAR l, dw,"
 & " dh IN \n    l := TextList.FromText(txt); \n    dw, dh := Offset.GetHor"
 & "Ver(); \n    TypeBlockR(R2.Plus(p, (-dw, -dh)), \n               l) \n "
 & " END \nEND;\n\nPROC SE(p, txt) IS \n  VAR l, w, h, dw, dh IN \n    l :="
 & " TextList.FromText(txt); \n    w, h := TextList.Size(l); \n    dw, dh :"
 & "= Offset.GetHorVer(); \n    TypeBlockR(R2.Plus(p, \n                   "
 & "    (-dw, h + dh)), \n               l) \n  END \nEND;\n\nPROC SW(p, tx"
 & "t) IS \n  VAR l, w, h, dw, dh IN \n    l := TextList.FromText(txt); \n "
 & "   w, h := TextList.Size(l); \n    dw, dh := Offset.GetHorVer(); \n    "
 & "TypeBlockR(R2.Plus(p, \n                       (w + dw, \n             "
 & "           h + dh)), l) \n  END \nEND;\n\nUI TextTool(North);\n\nUI Tex"
 & "tTool(South);\n\nUI TextTool(East);\n\nUI TextTool(West);\n\nUI TextToo"
 & "l(Center);\n\nUI TextTool(NW);\n\nUI TextTool(NE);\n\nUI TextTool(SE);\n"
 & "\nUI TextTool(SW);\n\n(* Display the \"\\\"-separated texts \n   in \"t"
 & "\" as a right-justified \n   block such that \"p\" is at the \n   locat"
 & "ion of the block\'s bounding \n   box named by ";

CONST E38_1 =
   "the procedure. *)\n\n";

CONST E39 =
   "MODULE Proj3D;\n\n(* A module that computes perspective projections in "
 & "\n   3-space. *)\n\nIMPORT R2, R3;\n\n(* This procedure provides a sing"
 & "le function, \"Project\", for \n   mapping points in 3-space to points "
 & "in 2-space according \n   to a simple perspective projection. \n\n   Th"
 & "e \"Project\" function is parameterized by the point in \n   3-space to"
 & " project, the location of the camera, and a \n   point in 2-space to wh"
 & "ich the 3-space origin should be \n   mapped. In this model, the camera"
 & "\'s viewing direction is \n   the one that causes it to point at the 3-"
 & "space origin, \n   and the view plane is taken to be a fixed distance f"
 & "rom \n   the camera orthogonal to the viewing direction. The \"up\" \n "
 & "  direction of the camera is the direction of the z-axis; \n   hence, t"
 & "his mapping is undefined when the camera is \n   located on the z-axis."
 & " *)\n\nPRIVATE CONST PlaneDist = 100, Scale = 10;\n\nPRIVATE FUNC \n  Q"
 & " = ProjectToPlane(P, camDir, camLoc, viewP0) IS \n  (E lineDir = R3.Min"
 & "us(P, camLoc), \n     denom = R3.Dot(camDir, lineDir), \n     Num = R3."
 & "Dot(camDir, R3.Minus(camLoc, viewP0)), \n     t = -(Num / denom) :: \n "
 & "   Q = R3.Plus(camLoc, R3.Times(t, lineDir))) \nEND;\n\nFUNC q = Projec"
 & "t(Q, org, camLoc) IS \n  (E camDist = R3.Length(camLoc), \n     camDir "
 & "= R3.Times(1 / camDist, camLoc), \n     viewP0 = R3.Times(camDist - Pla"
 & "neDist, camDir), \n     zPt = ProjectToPlane([0, 0, 1], camDir, camLoc,"
 & " viewP0), \n     upVec = R3.Normalize(R3.Minus(zPt, viewP0)), \n     xV"
 & "ec = R3.Normalize(R3.Cross(upVec, camDir)), qx, qy, \n     Q1 = Project"
 & "ToPlane(Q, camDir, camLoc, viewP0), \n     vec = R3.Minus(Q1, viewP0) :"
 & ": \n    q = R2.Plus(org, (qx, qy)) AND \n    qx = Scale * R3.Dot(xVec, "
 & "vec) AND \n    qy = Scale * R3.Dot(upVec, vec)) \nEND;\n\n(* \"q\" is t"
 & "he perspective projection of the point \"Q\" in \n   3-space. \"org\" i"
 & "s the point in 2-space to which the point \n   \"[0,0,0]\" is mapped. \""
 & "camLoc\" is the location of the \n   camera in 3-space. *)\n\n";

CONST E40 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Sat May 28 18:13:26 1994"
 & " by heydon                       \n\n(Border (Pen 2)\n (VBox\n  (Insert"
 & " \"Macros.fv\")\n  (MyLabelFont)\n    (Menu \n      (Shape (Height + 0)"
 & " (ButtonLabel (HBox\n        (Text %toolboxName LeftAlign \"\")\n      "
 & "  Fill\n        (FixedWidth (Pixmap \"MenuArrow.pbm\"))\n        (Space"
 & "))))\n      (VBox\n        (MButton %help (TextL \"Help...\"))\n       "
 & " (LinkMButton (For toolboxButtons) (TextL \"Expand\"))\n        (LinkMB"
 & "utton (For noButtons) (TextL \"Collapse\"))\n        (MButton %close (T"
 & "extL \"Close\"))\n    ))\n  (MyRidge)\n  (TSplit Flex (Which toolboxBut"
 & "tons)\n    (Generic %toolboxButtons)\n    (Glue %noButtons 0 + 0 - 0)\n"
 & "  )\n))\n";

CONST E41 =
   "MODULE C;\n\n(* Defines procedures for complex arithmetic. *)\n\n(* The"
 & " procedures in this module represent a \n   complex number as a pair of"
 & " reals. However, all \n   procedures can accept either reals or pairs o"
 & "f \n   reals as arguments. \n\n   See also: \"R2\". *)\n\nPROC r := Rea"
 & "l(c) IS \n  IF PAIR(c) -> r := CAR(c) | REAL(c) -> r := c FI \nEND;\n\n"
 & "(* Set \"r\" to the real part of the complex number \n   \"c\". This is"
 & " a checked run-time error if \"c\" is \n   not a real number or a pair."
 & " *)\n\nPROC i := Imag(c) IS \n  IF PAIR(c) -> i := CDR(c) FI \nEND;\n\n"
 & "(* Set \"i\" to the imaginary part of the complex \n   number \"c\". Th"
 & "is is a checked run-time error if \n   \"c\" is not a pair. *)\n\nPRIVA"
 & "TE PROC res := ToPair(c) IS \n  IF \n    PAIR(c) -> res := c | REAL(c) "
 & "-> res := (c, 0) \n  FI \nEND;\n\n/* Set \"res\" to the complex represe"
 & "ntation of \"c\", \n   which must be either a real number or a pair. */"
 & "\n\nPROC res := Plus(c1, c2) IS \n  c1 := ToPair(c1); \n  c2 := ToPair("
 & "c2); \n  res := (CAR(c1) + CAR(c2), CDR(c1) + CDR(c2)) \nEND;\n\n(* Set"
 & " \"res\" to the complex sum of \"c1\" and \"c2\". \n*)\n\nPROC res := T"
 & "imes(c1, c2) IS \n  c1 := ToPair(c1); \n  c2 := ToPair(c2); \n  IF \n  "
 & "  VAR a1, b1, a2, b2 IN \n      c1 = (a1, b1) AND c2 = (a2, b2) -> \n  "
 & "      res := \n          (a1 * a2 - b1 * b2, a1 * b2 + b1 * a2) \n    E"
 & "ND \n  FI \nEND;\n\n(* Set \"res\" to the complex product of \"c1\" and"
 & " \n   \"c2\". *)\n\n";

CONST E42 =
   "MODULE Square;\n\n(* Procedures and predicates for arbitrarily \n   ori"
 & "ented squares. *)\n\nIMPORT Geometry, PS;\n\n(* \\section{Adjacent Corn"
 & "er Representation} *)\n\nPROC Draw(a, b) IS \n  PS.MoveTo(a); \n  PS.Li"
 & "neTo(b); \n  PS.LineTo((1, 1) REL (a, b)); \n  PS.LineTo((0, 1) REL (a,"
 & " b)); \n  PS.Close() \nEND;\n\nUI PointTool(Draw);\n\n(* Append a close"
 & "d square path with edge \"ab\" to \n   the current path. The square is "
 & "constructed \n   to the left of the ray from \"a\" to \"b\". *)\n\nFUNC"
 & " area = Area(a, b) IS \n  area = Geometry.Dist2(a, b) \nEND;\n\n(* \"ar"
 & "ea\" is the area of the square with edge \n   \"ab\". *)\n\n(* \\sectio"
 & "n{Center-Corner Representation} *)\n\nPROC DrawC(c, b) IS \n  PS.MoveTo"
 & "(b); \n  PS.LineTo((0, 1) REL (c, b)); \n  PS.LineTo((-1, 0) REL (c, b)"
 & "); \n  PS.LineTo((0, -1) REL (c, b)); \n  PS.Close() \nEND;\n\nUI Point"
 & "Tool(DrawC);\n\n(* Append a closed square path with center \"c\" \n   a"
 & "nd corner vertex \"b\" to the current path. *)\n\nFUNC area = AreaC(c, "
 & "b) IS \n  area = 2 * Geometry.Dist2(c, b) \nEND;\n\n(* \"area\" is the "
 & "area of the square with center \n   \"c\" and corner vertex \"b\". *)\n"
 & "\n";

CONST E43 =
   "\n% -------------------------------------------------------------------"
 & "----------\n% Inserted file: juno-app/src/rsrc/showerror.ps\n% Last mod"
 & "ified on Tue Dec 20 15:27:20 PST 1994 by heydon\n\n% PostScript code re"
 & "ad in to display a run-time error message in PostScript\n% output. This"
 & " code assumes that PostScript code has already been executed\n% that de"
 & "fines the identifier \"str\" as the error message string, and\n% \"xCen"
 & "ter\" and \"yCenter\" as the x- and y-coordinates of the center of\n% t"
 & "he page.\n\n% define font height and border width\n/fontheight 14 def\n"
 & "/border 8 def\n\n% drawbox\n%\n% Draw a white-filled box with size \"wi"
 & "dth\" x \"fontheight\" (plus an extra\n% strip of width \"border\" all "
 & "the way around) centered about the current\n% point. This procedure ass"
 & "umes that \"width\" has been defined.\n/drawbox {\n  /bwidth width bord"
 & "er 2 mul add def\n  /bheight fontheight border 2 mul add def\n  bwidth "
 & "2 div neg bheight 2 div neg rmoveto\n  bwidth 0 rlineto\n  0 bheight rl"
 & "ineto\n  bwidth neg 0 rlineto\n  closepath\n  gsave 1 setgray fill gres"
 & "tore\n  0 setgray 2 setlinewidth stroke\n} def\n\n% boxshow: str => <em"
 & "pty>\n%\n% Show the string \"str\" inside a white-filled box centered a"
 & "bout the current\n% point.\n/boxshow {\n  dup stringwidth pop /width ex"
 & "ch def % get length of string\n  gsave drawbox grestore              % "
 & "draw box first\n  width 2 div neg                     % delta X\n  font"
 & "height 2 div neg                % delta Y\n  rmoveto                   "
 & "          % move left/down by 1/2 str width/height\n  1 0 0 setrgbcolor"
 & " show              % show string in red\n} def\n\n% select Helvetica-Bo"
 & "ld 14 pt\n/Helvetica-Bold findfont\nfontheight scalefont\nsetfont\n\n% "
 & "show the string\nxCenter\nyCenter 11 72 mul 4 div sub\nmoveto\nstr boxs"
 & "how\n\n% end showerror.ps\n% ------------------------------------------"
 & "-----------------------------------\n";

CONST E44 =
   "MODULE Math;\n\n(* Common math functions *)\n\nCONST \n  Pi = ATAN(0, -"
 & "1), \n  ToDegrees = 180 / Pi, \n  ToRadians = Pi / 180, \n  Exp = EXP(1"
 & "), \n  Phi = (1 + Sqrt(5))/2;\n\n(* \"Exp\" is the value \"e\", or the "
 & "\n   base of natural logarithms. \n   \"Phi\" is the golden ratio. *)\n"
 & "\nFUNC z = Pow(x, y) IS \n  z = EXP(y * LN(x)) \nEND;\n\n(* \"z\" is \""
 & "x\" raised to the \"y\" \n   power. *)\n\nFUNC y = LogBase(x, base) IS "
 & "\n  y * LN(base) = LN(x) \nEND;\n\n(* \"y\" is the logarithm base \"bas"
 & "e\" \n   of \"x\". *)\n\nFUNC y = Log(x) IS \n  y = LogBase(x, 10) \nEN"
 & "D;\n\n(* \"y\" is the logarithm base 10 of \n   \"x\". *)\n\nFUNC y = S"
 & "qrt(x) IS \n  y ~ 1000 AND y * y = x \nEND;\n\n(* \"y\" is the positive"
 & " square root \n   of \"x\". This version may fail \n   for large values"
 & " of \"x\" (in \n   excess of 1e10). *)\n\nFUNC y = Sqrt2(x) IS \n  y = "
 & "Pow(x, 0.5) \nEND;\n\n(* \"y\" is the positive square root \n   of \"x\""
 & ". This version is quite \n   fast and does not use the \n   constraint "
 & "solver, but it fails \n   when \"x = 0\". *)\n\nFUNC y = Abs(x) IS \n  "
 & "y = Sqrt(x * x) \nEND;\n\n(* \"y\" is the absolute value of \n   \"x\"."
 & " *)\n\nFUNC y = Sin(x) IS y = SIN(x) END;\n\nFUNC y = Cos(x) IS y = COS"
 & "(x) END;\n\nFUNC y = Tan(x) IS \n  y = SIN(x) / COS(x) \nEND;\n\n(* \"y"
 & "\" is the sine, cosine, and \n   tangent, respectively, of \"x\" \n   r"
 & "adians. *)\n\nFUNC y = SinD(x) IS \n  y = SIN(ToRadians * x) \nEND;\n\n"
 & "FUNC y = CosD(x) IS \n  y = COS(ToRadians * x) \nEND;\n\nFUNC y = TanD("
 & "x) IS \n  (E deg :: \n    deg = ToRadians * x AND \n    y = SIN(deg) / "
 & "COS(deg)) \nEND;\n\n(* \"y\" is the sine, cosine, and \n   tangent, res"
 & "pectively, of \"x\" \n   degrees. *)\n\n";

CONST E45 =
   "P6\n# CREATOR: XV Version 3.10a  Rev: 12/29/94\n128 24\n255\n\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\316\316\316\347\234\234\347\234\234\347\234\234\347c\234\347cc\347cc\347"
 & "cc\347cc\347c\234\347\234\234\347c\234\347cc\347c\234\265\265\265\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\265\265\265\347\316\234\347c\234"
 & "\347cc\347cc\316c1\316\030c\347cc\347c\234\347\234\234\336\336\336\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\336\336\336\347\234\234\347\234\234\347\234\234\347c\234\347\234\234"
 & "\347\234\234\316\316\316\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\347\234\234"
 & "\347\234\234\347c\234\347\234\234\347\234\234\347\234\234\265\265\265\336"
 & "\336\336\377\377\377\377\265\316\347\234\234\347\234\234\347\234\234\347"
 & "\234\234\347\234\234\347\234\234\265\265\265\347\234\234\265\265\265\347"
 & "\234\234\265\265\265\347\234\234\265\265\265\336\336\336\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\336\336\336\347\234\234\347c\234\347cc\347\234\234"
 & "\347c\234\347cc\347\234\234\336\336\336\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\347\234\234\347\234"
 & "\234\347cc\275\003\013\316c1\275\003\013\316\000\000\275\003\013\316\000"
 & "\000\275\003\013\316\030c\347c\234\347\316\234\367\367\336\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\265\265\265\316\030c\316\000\000\275\003\013\316\000"
 & "\000\275\003\013\316\000\000\275\003\013\275\003\013\275\003\013\275\003"
 & "\013\316\000\000\275\003\013\316\000\000\275\003\013\275\003\013\347\234"
 & "\234\377\377\377\316\316\316\316c1\316\030c\316\000\000\275\003\013\316"
 & "\000\000\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\316\000\000\316\030c\347cc\367\367\336\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\347cc\316\000\000\275\003\013\316\000"
 & "\000\275\003\013\316\000\000\275\003\013\316\000\000\316c1\336\336\336\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\265\265\265\316"
 & "\030c\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\275\003"
 & "\013\316c1\367\367\336\377\377\377\347\234\234\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\275\003\013\316\000\000\275\003\013\275\003\013\275"
 & "\003\013\275\003\013\275\003\013\275\003\013\275\003\013\316c1\347\234\234"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\336\336\336\347cc\275\003\013\316\000\000\275\003\013\275\003\013\316\000"
 & "\000\275\003\013\275\003\013\275\003\013\367\367\336\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\265\265\265\316\030c\316\000\000"
 & "\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013"
 & "\316\000\000\275\003\013\316\000\000\316c1\316\000\000\275\003\013\275\003"
 & "\013\347\234\234\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\347\234\234\316c1\316\000\000\275\003\013\316"
 & "\000\000\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\316"
 & "\030c\377\377\377\336\336\336\316c1\316\030c\316\000\000\275\003\013\275"
 & "\003\013\275\003\013\316\000\000\275\003\013\275\003\013\275\003\013\316"
 & "\000\000\275\003\013\275\003\013\275\003\013\316\000\000\275\003\013\316"
 & "\030c\377\377\377\377\377\377\377\377\377\265\265\265\275\003\013\275\003"
 & "\013\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\275\003"
 & "\013\316\030c\316c1\377\377\377\377\377\377\377\377\377\377\377\377\347"
 & "\234\234\316\030c\316\000\000\275\003\013\316\000\000\275\003\013\316\000"
 & "\000\275\003\013\316\000\000\347cc\377\377\377\377\377\377\275\003\013\275"
 & "\003\013\316\000\000\275\003\013\275\003\013\275\003\013\275\003\013\316"
 & "\000\000\275\003\013\316\000\000\316\000\000\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\275\003\013\347\234\234\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\316c1\275\003\013\316\000\000\275\003\013"
 & "\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\316\030c\367"
 & "\367\336\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\275"
 & "\003\013\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\275\003\013\275\003\013\316\000\000\275\003\013\316"
 & "\000\000\275\003\013\316\000\000\275\003\013\275\003\013\347\234\234\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\336\336\336\275"
 & "\003\013\275\003\013\316\000\000\275\003\013\275\003\013\275\003\013\316"
 & "\000\000\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013\316"
 & "\000\000\275\003\013\316\000\000\275\003\013\265\265\265\377\377\377\347"
 & "cc\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013"
 & "\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013"
 & "\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\347\234\234"
 & "\377\377\377\377\377\377\347\234\234\316\000\000\275\003\013\275\003\013"
 & "\316\000\000\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000"
 & "\316\030c\336\336\336\377\377\377\377\377\377\336\336\336\275\003\013\275"
 & "\003\013\316\000\000\275\003\013\275\003\013\275\003\013\316\000\000\275"
 & "\003\013\275\003\013\265\265\265\377\377\377\377\265\316\275\003\013\275"
 & "\003\013\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013\275"
 & "\003\013\316c1\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000"
 & "\275\003\013\316\000\000\316\030c\336\336\336\377\377\377\377\377\377\377"
 & "\377\377\347\234\234\275\003\013\275\003\013\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\275\003\013\316\000\000\275\003\013\316c1\316\316\316"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\347cc\275\003\013\316\000"
 & "\000\316\000\000\275\003\013\275\003\013\275\003\013\275\003\013\275\003"
 & "\013\275\003\013\316c1\275\003\013\275\003\013\275\003\013\275\003\013\275"
 & "\003\013\316\030c\316\000\000\316c1\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\347cc\275\003\013\316\000\000\275\003\013\316\000"
 & "\000\275\003\013\316\000\000\275\003\013\275\003\013\275\003\013\275\003"
 & "\013\275\003\013\275\003\013\275\003\013\316c1\275\003\013\275\003\013\347"
 & "\234\234\265\265\265\316\000\000\275\003\013\316\000\000\275\003\013\316"
 & "\000\000\275\003\013\347cc\336\336\336\347\234\234\265\265\265\347\234\234"
 & "\347c\234\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\275"
 & "\003\013\347cc\377\377\377\377\377\377\316c1\316\030c\275\003\013\316\000"
 & "\000\275\003\013\275\003\013\316\000\000\275\003\013\275\003\013\316\000"
 & "\000\275\003\013\347\234\234\377\377\377\336\336\336\316c1\316\030c\316"
 & "\000\000\275\003\013\275\003\013\316\000\000\275\003\013\275\003\013\316"
 & "\000\000\275\003\013\367\367\336\377\377\377\347\234\234\275\003\013\316"
 & "\000\000\275\003\013\316\000\000\275\003\013\347cc\377\265\316\347\234\234"
 & "\377\265\316\377\265\316\377\265\316\275\003\013\275\003\013\275\003\013"
 & "\316\000\000\275\003\013\316\000\000\347\316\234\377\377\377\377\377\377"
 & "\316\316\316\316\030c\316\000\000\275\003\013\316\000\000\275\003\013\275"
 & "\003\013\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013\336"
 & "\336\336\377\377\377\377\377\377\377\377\377\265\265\265\275\003\013\316"
 & "\000\000\275\003\013\275\003\013\275\003\013\316\000\000\347\234\234\377"
 & "\265\316\316\316\316\316\316\316\347c\234\347\234\234\275\003\013\275\003"
 & "\013\316\000\000\275\003\013\316\000\000\316\000\000\316\030c\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\265\265\265\275\003\013\316\000\000"
 & "\275\003\013\275\003\013\275\003";

CONST E45_0 =
   "\013\316\000\000\347cc\265\265\265\347\316\234\265\265\265\377\265\316\265"
 & "\265\265\377\265\316\265\265\265\316\316\316\265\265\265\367\367\336\377"
 & "\377\377\347cc\275\003\013\275\003\013\275\003\013\316\000\000\275\003\013"
 & "\347cc\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\336\336"
 & "\336\347cc\316\000\000\275\003\013\275\003\013\275\003\013\316\000\000\347"
 & "\234\234\377\377\377\377\265\316\316\030c\316\000\000\316\000\000\275\003"
 & "\013\316\000\000\316\000\000\275\003\013\275\003\013\316\000\000\275\003"
 & "\013\316\000\000\377\265\316\377\377\377\347\234\234\316\000\000\316\000"
 & "\000\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000\316\000"
 & "\000\275\003\013\347cc\377\377\377\377\377\377\316c1\316\000\000\275\003"
 & "\013\275\003\013\275\003\013\316\000\000\265\265\265\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\347c\234\316\000\000\316\000\000"
 & "\275\003\013\275\003\013\275\003\013\265\265\265\377\377\377\377\377\377"
 & "\347cc\316\000\000\275\003\013\316\000\000\275\003\013\347cc\347cc\316\000"
 & "\000\275\003\013\275\003\013\275\003\013\275\003\013\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\347cc\275\003\013\275\003\013\275\003\013\316"
 & "\000\000\316\000\000\347cc\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\347c\234\316\000\000\275\003\013\316\000\000\275"
 & "\003\013\316\030c\347cc\336\336\336\377\377\377\377\377\377\377\377\377"
 & "\347\234\234\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000"
 & "\275\003\013\347\234\234\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\265\265\265\275\003\013\316\000\000\316\000\000\275\003\013\275\003\013"
 & "\275\003\013\265\265\265\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\336\336\336\316\030c\316\000\000\275\003\013\316\000\000\275"
 & "\003\013\275\003\013\347\234\234\377\377\377\347\234\234\316\000\000\275"
 & "\003\013\275\003\013\275\003\013\275\003\013\275\003\013\275\003\013\316"
 & "\000\000\275\003\013\316\000\000\275\003\013\347\234\234\265\265\265\275"
 & "\003\013\316\030c\275\003\013\275\003\013\275\003\013\275\003\013\275\003"
 & "\013\275\003\013\275\003\013\316\000\000\347\234\234\377\377\377\336\336"
 & "\336\316\030c\275\003\013\316\000\000\316\000\000\275\003\013\275\003\013"
 & "\367\367\336\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\347\234\234\275\003\013\275\003\013\316\000\000\275\003\013\275\003\013"
 & "\367\367\336\377\377\377\265\265\265\275\003\013\316\000\000\275\003\013"
 & "\275\003\013\316\000\000\347\234\234\347\234\234\275\003\013\316\000\000"
 & "\275\003\013\316\000\000\316\030c\377\265\316\377\377\377\377\377\377\336"
 & "\336\336\316\030c\316\000\000\275\003\013\316\000\000\275\003\013\275\003"
 & "\013\316\316\316\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\347cc\275\003\013\316\000\000\275\003\013\316\000\000\275"
 & "\003\013\347cc\377\377\377\377\377\377\377\377\377\377\377\377\347cc\275"
 & "\003\013\316\000\000\275\003\013\316\000\000\275\003\013\347\234\234\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\347\234\234\316"
 & "\000\000\275\003\013\275\003\013\316\000\000\316\000\000\316\030c\367\367"
 & "\336\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\265"
 & "\316\316\000\000\316\030c\316\000\000\275\003\013\316\000\000\316\000\000"
 & "\265\265\265\377\377\377\347cc\316\000\000\316\000\000\275\003\013\316\000"
 & "\000\316\000\000\347\234\234\347cc\316\030c\275\003\013\275\003\013\316"
 & "\000\000\347cc\275\003\013\275\003\013\316\000\000\275\003\013\347c\234"
 & "\316c1\275\003\013\316\000\000\316\000\000\275\003\013\275\003\013\377\265"
 & "\316\377\377\377\347\234\234\275\003\013\316\000\000\275\003\013\275\003"
 & "\013\316\000\000\347cc\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\336\336\336\347cc\316\000\000\275\003\013\275\003\013\316\000\000"
 & "\347cc\377\377\377\377\377\377\347cc\316\000\000\275\003\013\316\000\000"
 & "\275\003\013\275\003\013\377\377\377\347\234\234\275\003\013\275\003\013"
 & "\316\000\000\275\003\013\316c1\316\316\316\377\377\377\377\377\377\347\234"
 & "\234\316\000\000\275\003\013\316\000\000\275\003\013\275\003\013\275\003"
 & "\013\336\336\336\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\347cc\316\000\000\275\003\013\316\000\000\275\003\013\316"
 & "\000\000\347\234\234\377\377\377\377\377\377\377\377\377\336\336\336\275"
 & "\003\013\316\000\000\275\003\013\275\003\013\275\003\013\275\003\013\336"
 & "\336\336\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\347"
 & "cc\275\003\013\275\003\013\316\000\000\275\003\013\275\003\013\347cc\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\347"
 & "\234\234\275\003\013\316\000\000\275\003\013\275\003\013\275\003\013\275"
 & "\003\013\377\265\316\377\377\377\316\030c\316c1\275\003\013\275\003\013"
 & "\275\003\013\275\003\013\377\377\377\347cc\316\000\000\275\003\013\316\000"
 & "\000\275\003\013\275\003\013\275\003\013\275\003\013\316\000\000\347\234"
 & "\234\336\336\336\275\003\013\316\000\000\275\003\013\275\003\013\275\003"
 & "\013\347cc\377\377\377\377\377\377\316c1\316\000\000\275\003\013\275\003"
 & "\013\275\003\013\316\000\000\347c\234\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\347\316\234\275\003\013\316\000\000\275\003\013"
 & "\316\000\000\275\003\013\347cc\377\377\377\347\234\234\275\003\013\316\000"
 & "\000\275\003\013\316\000\000\275\003\013\347\234\234\377\377\377\347\234"
 & "\234\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013\367\367"
 & "\336\377\377\377\377\377\377\347cc\275\003\013\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\347cc\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\265\265\265\316c1\275\003\013\316\000\000\275\003"
 & "\013\275\003\013\275\003\013\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\347\234\234\275\003\013\275\003\013\275\003\013\316\000\000\316\000"
 & "\000\347cc\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\265"
 & "\265\265\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013\316"
 & "\000\000\377\265\316\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\347c\234\316\000\000\275\003\013\316\000\000\275\003"
 & "\013\316\000\000\347cc\377\377\377\265\265\265\316c1\316\000\000\316\000"
 & "\000\275\003\013\316\000\000\347cc\377\377\377\347\234\234\275\003\013\316"
 & "\000\000\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000\347"
 & "cc\377\377\377\347\234\234\275\003\013\275\003\013\275\003\013\316\000\000"
 & "\316\000\000\347\234\234\377\377\377\377\265\316\316\030c\275\003\013\316"
 & "\000\000\316\000\000\275\003\013\275\003\013\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\336\336\336\316\030c\316\000\000\275\003"
 & "\013\316\000\000\275\003\013\275\003\013\347\316\234\336\336\336\275\003"
 & "\013\316\000\000\275\003\013\275\003\013\275\003\013\347cc\367\367\336\377"
 & "\377\377\347c\234\316\000\000\275\003\013\316\000\000\275\003\013\316c1"
 & "\336\336\336\377\377\377\336\336\336\347cc\316\000\000\275\003\013\275\003"
 & "\013\316\000\000\275\003\013\316\316\316\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\347\234\234\275\003\013\316\000"
 & "\000\275\003\013\316\000\000\316c1\316\030c\367\367\336\377\377\377\377"
 & "\377\377\377\377\377\347cc\316\000\000\316\000\000\275\003\013\275\003\013"
 & "\275\003\013\347\234\234\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\347c\234\316\000\000\275\003\013\275\003\013\275\003\013\316"
 & "\000\000\275\003\013\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\336\336\336\347cc\316";

CONST E45_1 =
   "\000\000\275\003\013\275\003\013\316\000\000\275\003\013\347\234\234\377"
 & "\377\377\347c\234\316\000\000\275\003\013\275\003\013\316\000\000\316\030"
 & "c\347\234\234\377\377\377\265\265\265\275\003\013\316\000\000\316\000\000"
 & "\275\003\013\316\000\000\316\030c\275\003\013\377\377\377\377\377\377\347"
 & "c\234\316\000\000\275\003\013\316\000\000\275\003\013\275\003\013\347\234"
 & "\234\377\377\377\347\234\234\316\000\000\316\030c\275\003\013\316\000\000"
 & "\275\003\013\316\030c\367\367\336\377\377\377\367\367\336\377\377\377\316"
 & "\316\316\347cc\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000"
 & "\347cc\377\377\377\347cc\275\003\013\316\000\000\275\003\013\316\000\000"
 & "\316\000\000\265\265\265\377\377\377\377\377\377\347\234\234\275\003\013"
 & "\275\003\013\275\003\013\275\003\013\275\003\013\367\367\336\377\377\377"
 & "\347\234\234\316\000\000\275\003\013\316\000\000\275\003\013\275\003\013"
 & "\275\003\013\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\347c\234\275\003\013\316\000\000\275\003\013\275"
 & "\003\013\316\000\000\347cc\377\377\377\377\377\377\377\377\377\377\265\316"
 & "\316c1\275\003\013\316\000\000\275\003\013\316\000\000\316c1\265\265\265"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\347cc\275\003"
 & "\013\316\000\000\316\000\000\275\003\013\275\003\013\347cc\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\265\265\265\275"
 & "\003\013\275\003\013\275\003\013\316\000\000\316c1\275\003\013\377\265\316"
 & "\377\377\377\347cc\275\003\013\316\000\000\275\003\013\316\030c\316\000"
 & "\000\377\377\377\377\377\377\367\367\336\275\003\013\275\003\013\275\003"
 & "\013\316\000\000\275\003\013\275\003\013\347\316\234\377\377\377\377\377"
 & "\377\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000\275\003"
 & "\013\377\377\377\377\377\377\347cc\275\003\013\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\316c1\316\030c\316c1\316\030c\316c1\275\003\013\275"
 & "\003\013\316\000\000\316\000\000\275\003\013\316\000\000\275\003\013\265"
 & "\265\265\377\265\316\316\000\000\275\003\013\316\000\000\275\003\013\275"
 & "\003\013\347\234\234\377\377\377\377\377\377\377\377\377\347\234\234\316"
 & "\000\000\275\003\013\316\000\000\275\003\013\275\003\013\336\336\336\377"
 & "\377\377\347c\234\316\000\000\275\003\013\275\003\013\316\000\000\316\000"
 & "\000\347cc\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\347cc\316\000\000\275\003\013\316\000\000\275\003\013"
 & "\275\003\013\265\265\265\377\377\377\377\377\377\377\377\377\265\265\265"
 & "\316\030c\316\000\000\275\003\013\316\000\000\275\003\013\316\030c\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\347\234\234\275\003"
 & "\013\316\000\000\275\003\013\275\003\013\275\003\013\316\000\000\265\265"
 & "\265\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\347\234\234\316\000\000\275\003\013\316\000\000\316\030c\316\000\000"
 & "\347cc\377\377\377\336\336\336\275\003\013\316\000\000\275\003\013\275\003"
 & "\013\316\000\000\347cc\377\377\377\377\377\377\336\336\336\316c1\275\003"
 & "\013\316\000\000\275\003\013\275\003\013\347\234\234\377\377\377\377\377"
 & "\377\347\234\234\316\000\000\275\003\013\316\000\000\275\003\013\275\003"
 & "\013\347cc\377\377\377\336\336\336\316\030c\316c1\316\000\000\275\003\013"
 & "\275\003\013\316\000\000\275\003\013\316\000\000\316\030c\316\000\000\275"
 & "\003\013\275\003\013\316\000\000\275\003\013\275\003\013\316\030c\275\003"
 & "\013\347\234\234\377\377\377\275\003\013\275\003\013\316\000\000\275\003"
 & "\013\316\000\000\275\003\013\265\265\265\377\265\316\377\377\377\377\265"
 & "\316\347\234\234\275\003\013\316\000\000\275\003\013\316\000\000\275\003"
 & "\013\367\367\336\377\377\377\316c1\316\000\000\316\030c\316\000\000\275"
 & "\003\013\275\003\013\347\234\234\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\347\234\234\275\003\013\316\000\000\275"
 & "\003\013\275\003\013\275\003\013\275\003\013\367\367\336\377\377\377\377"
 & "\377\377\377\377\377\347cc\275\003\013\316\000\000\275\003\013\275\003\013"
 & "\275\003\013\347\234\234\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\347\234\234\275\003\013\275\003\013\275\003\013\316\000\000"
 & "\275\003\013\275\003\013\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\316\030c\316\000\000\275\003\013\275"
 & "\003\013\316\000\000\275\003\013\347c\234\377\377\377\347\234\234\316\000"
 & "\000\275\003\013\275\003\013\316\000\000\275\003\013\347c\234\377\377\377"
 & "\377\377\377\377\377\377\316\030c\316\000\000\275\003\013\316\000\000\347"
 & "\234\234\377\377\377\377\377\377\377\377\377\347\234\234\275\003\013\275"
 & "\003\013\275\003\013\316\000\000\316\000\000\265\265\265\377\377\377\265"
 & "\265\265\316c1\316\000\000\275\003\013\316\000\000\275\003\013\275\003\013"
 & "\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013"
 & "\316\000\000\275\003\013\316\000\000\316\000\000\347c\234\377\377\377\347"
 & "\234\234\316\000\000\275\003\013\275\003\013\275\003\013\316\000\000\275"
 & "\003\013\275\003\013\347cc\316c1\316\030c\275\003\013\316\000\000\275\003"
 & "\013\316\000\000\275\003\013\316c1\265\265\265\377\265\316\316\030c\275"
 & "\003\013\316\000\000\275\003\013\316\000\000\275\003\013\377\265\316\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\336\336\336\347"
 & "cc\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\347cc\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\316c1\316\000\000\275\003\013"
 & "\316\000\000\316\000\000\275\003\013\347\234\234\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\316c1\316\000\000\316\000\000\275\003"
 & "\013\316\000\000\275\003\013\347cc\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\347\316\234\275\003\013\275\003\013\316"
 & "\000\000\275\003\013\275\003\013\275\003\013\347\234\234\377\377\377\347"
 & "cc\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013\347\316\234"
 & "\377\377\377\377\377\377\377\377\377\347cc\275\003\013\316\000\000\347c"
 & "c\377\377\377\377\377\377\377\377\377\336\336\336\347cc\316\000\000\316"
 & "\000\000\275\003\013\275\003\013\275\003\013\377\377\377\377\377\377\347"
 & "c\234\316\000\000\275\003\013\275\003\013\275\003\013\316\000\000\275\003"
 & "\013\316\000\000\275\003\013\275\003\013\316\000\000\275\003\013\316\000"
 & "\000\275\003\013\275\003\013\347cc\347\234\234\377\377\377\336\336\336\275"
 & "\003\013\275\003\013\316\000\000\316\000\000\275\003\013\275\003\013\275"
 & "\003\013\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\275"
 & "\003\013\275\003\013\275\003\013\275\003\013\316\030c\367\367\336\377\265"
 & "\316\316\000\000\275\003\013\275\003\013\316\000\000\275\003\013\347cc\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\275\003\013\275\003\013\316\000\000\275\003\013\316\030c\316\000"
 & "\000\347\234\234\377\377\377\377\377\377\377\377\377\377\377\377\275\003"
 & "\013\275\003\013\316\000\000\275\003\013\275\003\013\316\000\000\347\234"
 & "\234\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\347cc\275"
 & "\003\013\316\030c\275\003\013\275\003\013\316\000\000\347\234\234\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\347c\234"
 & "\275\003\013\316\000\000\275\003\013\275\003\013\316\000\000\316\030c\377"
 & "\377\377\377\377\377\275\003\013\275\003\013\275\003\013\316\000\000\316"
 & "\030c\316c1\377\377\377\377\377\377\377\377\377\377\377\377\347\234\234"
 & "\275\003\013\316\030c\336\336\336\377\377\377\377\377\377\377\377\377\377"
 & "\265\316\275\003\013\275\003\013\275\003\013";

CONST E45_2 =
   "\275\003\013\316\000\000\347cc\377\377\377\377\377\377\347cc\275\003\013"
 & "\316\000\000\316\000\000\275\003\013\316\000\000\347\234\234\265\265\265"
 & "\316\316\316\377\265\316\265\265\265\377\265\316\377\265\316\377\265\316"
 & "\347\234\234\377\377\377\377\377\377\377\377\377\347cc\316\000\000\275\003"
 & "\013\275\003\013\275\003\013\316\000\000\275\003\013\316\000\000\275\003"
 & "\013\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\275\003"
 & "\013\316\000\000\316\000\000\275\003\013\367\367\336\347\234\234\275\003"
 & "\013\316\000\000\275\003\013\275\003\013\275\003\013\316\030c\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\347\234\234"
 & "\275\003\013\316\000\000\275\003\013\275\003\013\316\000\000\275\003\013"
 & "\336\336\336\377\377\377\377\377\377\377\377\377\377\377\377\316\000\000"
 & "\316\000\000\275\003\013\275\003\013\316\000\000\275\003\013\316\030c\347"
 & "\234\234\367\367\336\336\336\336\377\377\377\336\336\336\377\377\377\347"
 & "\234\234\265\265\265\347c\234\265\265\265\377\377\377\347cc\275\003\013"
 & "\316\000\000\275\003\013\316\000\000\275\003\013\347c\234\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\275\003\013\275"
 & "\003\013\316\000\000\275\003\013\316\000\000\275\003\013\347\234\234\377"
 & "\377\377\265\265\265\275\003\013\275\003\013\316\000\000\275\003\013\275"
 & "\003\013\347c\234\377\377\377\377\377\377\377\377\377\377\377\377\265\265"
 & "\265\316c1\336\336\336\377\377\377\377\377\377\377\377\377\377\377\377\347"
 & "\234\234\275\003\013\275\003\013\316\000\000\316\000\000\275\003\013\347"
 & "\234\234\377\377\377\367\367\336\275\003\013\275\003\013\275\003\013\275"
 & "\003\013\316\000\000\347cc\336\336\336\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\347\234\234\275\003\013\275\003\013\316\000\000\275\003\013"
 & "\316\000\000\275\003\013\347\234\234\347\234\234\347\234\234\347\234\234"
 & "\347\234\234\347\234\234\347cc\316\000\000\275\003\013\316\000\000\275\003"
 & "\013\275\003\013\377\265\316\347\234\234\275\003\013\316\000\000\275\003"
 & "\013\316\000\000\316\000\000\347cc\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\316\316\316\275\003\013\316\000\000\275\003\013\275"
 & "\003\013\316\000\000\275\003\013\347c\234\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\275\003\013\275\003\013\316\000\000\275\003"
 & "\013\316\000\000\275\003\013\316\000\000\275\003\013\275\003\013\316c1\316"
 & "\030c\275\003\013\275\003\013\316c1\275\003\013\316\000\000\347\234\234"
 & "\377\377\377\347cc\316\000\000\275\003\013\316\000\000\275\003\013\316\000"
 & "\000\347cc\347\234\234\316\316\316\316\316\316\377\265\316\265\265\265\275"
 & "\003\013\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013\275"
 & "\003\013\316\316\316\377\377\377\347cc\316\000\000\316\000\000\275\003\013"
 & "\316\000\000\316\000\000\336\336\336\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\336\336\336\347cc\275\003\013\316\000\000\275\003\013\275\003"
 & "\013\275\003\013\336\336\336\377\377\377\347\234\234\275\003\013\316\000"
 & "\000\275\003\013\316\000\000\275\003\013\347cc\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\336\336\336\316\030c\316\000\000\316\000\000\275\003"
 & "\013\275\003\013\275\003\013\377\265\316\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\347\234\234\275\003\013\275\003"
 & "\013\316\000\000\275\003\013\316c1\336\336\336\347\234\234\316\000\000\275"
 & "\003\013\275\003\013\275\003\013\316\030c\275\003\013\316c1\347\234\234"
 & "\347c\234\347\234\234\316\030c\316c1\275\003\013\275\003\013\347cc\275\003"
 & "\013\316\000\000\275\003\013\347cc\347\234\234\347\234\234\347\234\234\265"
 & "\265\265\347\234\234\316\000\000\275\003\013\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\316"
 & "\000\000\275\003\013\316\000\000\275\003\013\316\000\000\275\003\013\377"
 & "\265\316\377\377\377\265\265\265\275\003\013\316\000\000\275\003\013\316"
 & "\000\000\275\003\013\316\000\000\275\003\013\275\003\013\275\003\013\275"
 & "\003\013\275\003\013\316\000\000\275\003\013\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\347cc\377\377\377\377\265\316\275\003\013\275\003\013"
 & "\275\003\013\275\003\013\275\003\013\347cc\336\336\336\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\316c1\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\347cc\377\377\377\377\377\377\316c1\316\030c\316\000"
 & "\000\275\003\013\275\003\013\316\000\000\347\234\234\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\347\234\234\275\003\013\275\003\013\275\003"
 & "\013\316\000\000\275\003\013\316c1\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\265\265\265\316\000\000\275"
 & "\003\013\275\003\013\316\000\000\275\003\013\377\377\377\377\377\377\275"
 & "\003\013\275\003\013\316\000\000\316\000\000\316\000\000\316\030c\316\000"
 & "\000\275\003\013\316\000\000\275\003\013\275\003\013\347c\234\347\234\234"
 & "\347cc\347cc\275\003\013\275\003\013\316\000\000\275\003\013\275\003\013"
 & "\275\003\013\316\000\000\275\003\013\316\000\000\347\234\234\275\003\013"
 & "\316\000\000\316\030c\275\003\013\275\003\013\316\000\000\275\003\013\316"
 & "\000\000\275\003\013\275\003\013\316\000\000\275\003\013\275\003\013\275"
 & "\003\013\347cc\377\377\377\377\377\377\377\265\316\347cc\275\003\013\316"
 & "\000\000\275\003\013\275\003\013\275\003\013\316\000\000\316\000\000\275"
 & "\003\013\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000\275"
 & "\003\013\316\000\000\347cc\377\377\377\377\377\377\347\316\234\316c1\275"
 & "\003\013\316\000\000\275\003\013\316\000\000\347cc\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\347c\234\275\003\013\316\000\000\275"
 & "\003\013\275\003\013\275\003\013\347c\234\377\377\377\377\377\377\316\030"
 & "c\316\000\000\275\003\013\316\000\000\275\003\013\275\003\013\347\234\234"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\336\336\336\275\003\013\316\000\000"
 & "\316\000\000\275\003\013\275\003\013\275\003\013\377\265\316\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\347\234\234\275\003\013\316\000\000\275\003\013\275\003\013\275\003\013"
 & "\347\234\234\377\377\377\347cc\316\000\000\275\003\013\275\003\013\275\003"
 & "\013\316\000\000\275\003\013\316\000\000\275\003\013\347c\234\367\367\336"
 & "\265\265\265\347cc\275\003\013\316\000\000\275\003\013\316\000\000\275\003"
 & "\013\316\000\000\316\000\000\275\003\013\316\000\000\275\003\013\347cc\377"
 & "\377\377\347\234\234\316\000\000\275\003\013\316\000\000\316\000\000\275"
 & "\003\013\316\000\000\275\003\013\275\003\013\316\000\000\275\003\013\316"
 & "\000\000\275\003\013\316\000\000\347\234\234\377\377\377\377\377\377\377"
 & "\377\377\265\265\265\347cc\316\000\000\275\003\013\275\003\013\316\000\000"
 & "\275\003\013\275\003\013\316\000\000\275\003\013\275\003\013\275\003\013"
 & "\316\000\000\275\003\013\275\003\013\347cc\336\336\336\377\377\377\336\336"
 & "\336\347c\234\316\000\000\275\003\013\316\000\000\275\003\013\316\000\000"
 & "\347\234\234\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\316c1\316\000\000\275\003\013\275\003\013\316\000\000\275\003\013\347\316"
 & "\234\377\377\377\265\265\265\316\000\000\275\003\013\316\000\000\275\003"
 & "\013\316\000\000\347cc\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\316"
 & "c1\275\003\013\275\003\013\275\003\013\316\000\000\316\000\000\347c";

CONST E45_3 =
   "\234\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\347\234\234\316\000\000\275\003\013\316\000"
 & "\000\275\003\013\316c1\316\316\316\377\377\377\377\377\377\347\234\234\275"
 & "\003\013\275\003\013\316\000\000\275\003\013\275\003\013\275\003\013\347"
 & "\316\234\377\377\377\347c\234\316\000\000\275\003\013\316\000\000\275\003"
 & "\013\316\030c\275\003\013\316\000\000\275\003\013\275\003\013\316\000\000"
 & "\275\003\013\316\000\000\347\234\234\377\377\377\377\377\377\377\265\316"
 & "\347cc\347cc\347cc\347cc\275\003\013\347cc\275\003\013\347cc\347cc\347c"
 & "\234\347cc\347cc\367\367\336\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\347\234\234\347cc\347cc\347cc\347cc\275\003\013\347cc\347"
 & "cc\316c1\347cc\347cc\347c\234\367\367\336\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\347\234\234\347\234\234\347\234\234\347\234\234\347\234"
 & "\234\347c\234\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\336\336\336\377\265\316\347\234\234\265\265\265\377\265\316"
 & "\336\336\336\377\377\377\377\377\377\377\265\316\347\234\234\377\265\316"
 & "\265\265\265\347\234\234\377\265\316\336\336\336\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\336\336\336\377\265\316\347\234\234\347\316\234\265\265\265"
 & "\347\234\234\336\336\336\336\336\336\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\265\316\265\265\265\377\265\316\377\265\316\367\367\336\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\367\367\336\347\234\234\347cc\347c"
 & "c\347\234\234\316\316\316\377\377\377\347cc\275\003\013\275\003\013\347"
 & "cc\347cc\347cc\347\234\234\347cc\347c\234\347cc\347cc\347c\234\347cc\347"
 & "c\234\377\265\316\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\265\316\336\336\336\377\377\377\336\336\336\377\377\377\377\377"
 & "\377\377\377\377\367\367\336\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\336\336\336\377\377\377\377\377\377\336\336\336\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\347\234"
 & "\234\316\000\000\347\234\234\336\336\336\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\316\030c\377\265\316\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"
 & "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377";

CONST E46 =
   "% Last modified on Fri Feb  4 11:42:24 PST 2000 by heydon\n\n% This is "
 & "the configuration file for the bundled modules. Each line is\n% the nam"
 & "e of a Juno module; the corresponding file is formed from the\n% module"
 & " name by appending the \".juno\" extension. The modules must be\n% list"
 & "ed in a total order consistent with the partial order incuded by\n% the"
 & " IMPORT relation.\n\n% If a module name is followed by the text \"(buil"
 & "tin)\", the scope formed\n% from that module is used to augment an exis"
 & "ting built-in scope.\n\n% See the file \"juno-src/bundled/README\" for "
 & "a description of each of\n% the bundled modules and their import depend"
 & "encies.\n\n% Level 0\nC.juno\nJunoUI.juno (builtin)\nLineSkip.juno\nLis"
 & "t.juno\nMath.juno\nOffset.juno\nPrint.juno (builtin)\nR3.juno\nRandom.j"
 & "uno (builtin)\nText.juno (builtin)\nTime.juno (builtin)\nUnit.juno (bui"
 & "ltin)\n\n% Level 1\nBST.juno\nColor.juno\nR2.juno\nUnparse.juno\n\n% Le"
 & "vel 2\nGeometry.juno\nProj3D.juno\nPS.juno (builtin)\nRel.juno\nXform2."
 & "juno\n\n% Level 3\nAngle.juno\nAnim.juno\nArrow.juno\nBezier.juno\nCirc"
 & "le.juno\nEllipse.juno\nLine.juno\nPen.juno\nPtLoc.juno\nShadow.juno\nSh"
 & "ow.juno\nSquare.juno\nTextList.juno\nType.juno\nVPrint.juno\n\n% Level "
 & "4\nArc.juno\nCurve.juno\nDash.juno\nPath.juno\nPlot.juno\nPtLabel.juno\n"
 & "Rect.juno\nShowLine.juno\nTriangle.juno\nTypeLinesC.juno\nTypeLinesL.ju"
 & "no\nTypeLinesR.juno\n\n% Level 5\nCharSet.juno\nDiGraph.juno\nOutline.j"
 & "uno\nPieChart.juno\nSlider.juno\n\n% Extras\nEOF\nDijkstra.juno\nFont.j"
 & "uno\nUserFont.juno\n";

CONST E47 =
   "MODULE R3;\n\n(* Functions on 3D real vectors. *)\n\nCONST Origin = [0,"
 & " 0, 0];\n(* \"Origin\" is the origin in 3-space. *)\n\n(* \\section{Ari"
 & "thmetic Functions} *)\n\nFUNC r = Plus(p, q) IS \n  (E px, py, pz, qx, "
 & "qy, qz :: \n    p = [px, py, pz] AND \n    q = [qx, qy, qz] AND \n    r"
 & " = [px + qx, py + qy, pz + qz]) \nEND;\n\n(* \"r\" is the vector sum \""
 & "p\" + \"q\". *)\n\nFUNC r = Minus(p, q) IS \n  (E px, py, pz, qx, qy, q"
 & "z :: \n    p = [px, py, pz] AND \n    q = [qx, qy, qz] AND \n    r = [p"
 & "x - qx, py - qy, pz - qz]) \nEND;\n\n(* \"r\" is the vector difference "
 & "\"p\" - \n   \"q\". *)\n\nFUNC p = Times(t, q) IS \n  (E qx, qy, qz :: "
 & "\n    q = [qx, qy, qz] AND \n    p = [t * qx, t * qy, t * qz]) \nEND;\n"
 & "\n(* \"p\" is the product of the scalar \"t\" \n   and the vector \"q\""
 & ". *)\n\nFUNC len2 = Length2(v) IS \n  (E vx, vy, vz :: \n    v = [vx, v"
 & "y, vz] AND \n    len2 = \n      (vx * vx) + (vy * vy) + (vz * vz)) \nEN"
 & "D;\n\n(* \"len2\" is the square of the L2 norm \n   of the vector \"v\""
 & ". *)\n\nFUNC len = Length(v) IS \n  len = Math.Sqrt(Length2(v)) \nEND;\n"
 & "\n(* \"len\" is the L2 norm of the vector \n   \"v\", namely, its Eucli"
 & "dean length. *)\n\nFUNC u = Normalize(v) IS\n  Times(Length(v), u) = v\n"
 & "END;\n\n(* \"u\" is the vector \"v\" normalized\n   to have unit length"
 & ". *)\n\nFUNC t = Dot(p, q) IS \n  (E px, py, pz, qx, qy, qz :: \n    p "
 & "= [px, py, pz] AND \n    q = [qx, qy, qz] AND \n    t = \n      (px * q"
 & "x) + (py * qy) + (pz * qz)) \nEND;\n\n(* The scalar \"t\" is the dot-pr"
 & "oduct of \n   \"p\" and \"q\". *)\n\nFUNC r = Cross(p, q) IS \n  (E px,"
 & " py, pz, qx, qy, qz :: \n    p = [px, py, pz] AND \n    q = [qx, qy, qz"
 & "] AND \n    r = \n      [(py * qz) - (qy * pz), \n       (pz * qx) - (q"
 & "z * px), \n       (px * qy) - (qx * py)]) \nEND;\n\n(* \"r\" is the cro"
 & "ss-product of \"p\" and \n   \"q\". *)\n\n(* \\section{Projection Funct"
 & "ions} *)\n\nFUNC x = X(p) IS \n  (E y, z :: p = [x, y, z]) \nEND;\n\n(*"
 & " \"x\" is the x-coordinate of the 3D \n   point \"p\". *)\n\nFUNC y = Y"
 & "(p) IS \n  (E x, z :: p = [x, y, z]) \nEND;\n\n(* \"y\" is the y-coordi"
 & "nate of the 3D \n   point \"p\". *)\n\nFUNC z = Z(p) IS \n  (E x, y :: "
 & "p = [x, y, z]) \nEND;\n\n(*";

CONST E47_0 =
   " \"z\" is the y-coordinate of the 3D \n   point \"p\". *)\n\nFUNC r = F"
 & "romR2(p) IS \n  (E px, py :: \n    p = (px, py) AND r = [px, py, 0]) \n"
 & "END;\n\n(* Convert the R2 point \"p\" to an R3 \n   point whose \"z\" c"
 & "oordinate is 0. *)\n\nFUNC r = ToR2(p) IS \n  (E px, py, pz :: \n    p "
 & "= [px, py, pz] AND r = (px, py)) \nEND;\n\n(* \"r\" is the R2 projectio"
 & "n of the R3 \n   point \"p\" onto the XY-plane. *)\n\n";

CONST E48 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Thu May 26 16:59:56 PDT "
 & "1994 by heydon                   \n\n(Rim (Pen 5)\n  (Macro Gap () \'(G"
 & "lue 5))\n  (BrowserShape\n    (VBox (MyBrowserFont)\n      (DirMenu (Fo"
 & "r loadBrowser))\n      (Gap)\n      (Border\n        (FileBrowser %load"
 & "Browser\n          (BgColor \"White\")\n          (Suffixes \".juno\")\n"
 & "        )\n      )\n      (Gap)\n      (HBox\n        \"File:\"\n      "
 & "  (Glue 2)\n        (Frame Lowered\n          (Helper FirstFocus (BgCol"
 & "or \"White\") (For loadBrowser))\n        )\n      )\n    )\n  )\n)\n";

CONST E49 =
   "MODULE Dash;\n\n(* A module for drawing dashed lines. *)\n\nIMPORT R2, "
 & "Geometry, PS, Arrow;\n\nCONST \n  Tiny = ([3], 1.5), \n  Small = ([5], "
 & "2.5), \n  Medium = ([10], 5), \n  Big = ([20], 10), \n  Huge = ([40], 2"
 & "0), \n  DefaultPattern = Medium;\n\n(* This modules maintains a dash pa"
 & "ttern, which is a \n   pair \"(dashlist, offset)\". These dash patterns"
 & " \n   are based on the PostScript model for dashed \n   lines. The \"da"
 & "shlist\" is a list of non-negative \n   values that specify alternating"
 & " distances of dash \n   and gap lengths. The values in the \"dashlist\""
 & " are \n   used cyclically: after reaching the end of the \n   list, the"
 & " procedures in this module start back at \n   the beginning, alternatin"
 & "g the dash parity. \n   Hence, a \"dashlist\" that contains a single \n"
 & "   element alternates drawing dashes and gaps of the \n   same size. \n"
 & "\n   The dash \"offset\" may be thought of as the \n   ``phase\'\' of t"
 & "he dash pattern relative to the \n   start of the segment or curve. It "
 & "specifies the \n   distance into the dash pattern at which the \n   pat"
 & "tern should be started. Before beginning to \n   draw a dashed segment "
 & "or curve, the procedures in \n   this module cycle through the elements"
 & " of the \n   dash pattern, adding up distances and alternating \n   das"
 & "hes and gaps as usual, but without generating \n   any output. When the"
 & "y have travelled the offset \n   distance into the dash pattern, they s"
 & "tart adding \n   segments to the path from the point in the dash \n   p"
 & "attern that has been reached. *)\n\nPRIVATE VAR \n  dashList := CAR(Def"
 & "aultPattern), \n  offset := CDR(DefaultPattern);\n\n/* \"dashList\" and"
 & " \"offset\" are the current dash list \n   and offset values. */\n\nPRI"
 & "VATE PROC res := IsNonNegList(list) IS \n  IF \n    list # NIL -> \n   "
 & "   DO \n        list # NIL -> \n          IF CAR(list) >= 0 -> list := "
 & "CDR(list) FI \n      OD \n  FI; \n  res := NIL \nEND;\n\n/* Fail if \"l"
 & "ist\" contains anything other than \n   non-negative reals. Return \"NI"
 & "L\" otherwise. */\n\nPROC SetPattern(dashpat) IS \n  IF \n    VAR list,"
 & " num IN \n      dashpat = ";

CONST E49_0 =
   "(list, num) -> \n        IF \n          num >= 0 AND IsNonNegList(list)"
 & " = NIL -> \n            dashList := list; offset := num \n        FI \n"
 & "    END \n  FI \nEND;\n\nUI SetTool(SetPattern);\n\n(* Sets the dash pa"
 & "ttern to \"dashpat\", which must be \n   a pair \"(dashlist, offset)\"."
 & " The \"dashlist\" must \n   be a non-NIL list of non-negative reals. Th"
 & "e \n   \"offset\" must be a non-negative real. *)\n\nUI Param(SetPatter"
 & "n, DefaultPattern);\n\nUI Param(SetPattern, Tiny);\n\nUI Param(SetPatte"
 & "rn, Small);\n\nUI Param(SetPattern, Medium);\n\nUI Param(SetPattern, Bi"
 & "g);\n\nUI Param(SetPattern, Huge);\n\nPROC dashpat := GetPattern() IS \n"
 & "  dashpat := (dashList, offset) \nEND;\n\n(* Set \"dashpat\" to the cur"
 & "rent dash pattern. *)\n\nPRIVATE PROC (pattern, parity):Advance(amt) IS"
 & " \n  DO \n    amt >= CAR(pattern) -> \n      amt := amt - CAR(pattern);"
 & " \n      parity := -parity; \n      pattern := CDR(pattern); \n      IF"
 & " \n        pattern = NIL -> pattern := dashList | SKIP \n      FI \n  O"
 & "D; \n  IF \n    amt > 0 -> \n      pattern := (CAR(pattern) - amt, CDR("
 & "pattern)) \n  | SKIP \n  FI \nEND;\n\n/* Let \"dashes\" denote the logi"
 & "cally infinite stream \n   of dashes represented by the initial value o"
 & "f \n   \"pattern\" concatenated with \"dash\" repeated an \n   infinite"
 & " number of times. Then set \"pattern\" and \n   \"parity\" to reflect t"
 & "he position reached by \n   advancing through \"dashes\" by the distanc"
 & "e \"amt\". \n*/\n\nPRIVATE VAR currPat, parity;\n\n/* While constructin"
 & "g a dashed path, \"currPat\" and \n   \"parity\" denote the current das"
 & "h pattern and \n   drawing parity. The \"MoveTo\" procedure resets \n  "
 & " these values according to \"dash\" and \"indent\". */\n\nPRIVATE PROC "
 & "Move(p) IS \n  PS.MoveTo(p); \n  currPat := dashList; \n  parity := 1; "
 & "\n  (currPat, parity):Advance(offset) \nEND;\n\n/* Start a new dashed p"
 & "ath at \"p\" using the current \n   dash pattern. */\n\nPRIVATE PROC Li"
 & "ne(p, q) IS \n  VAR r, dv, len, u, dist IN \n    dv := R2.Minus(q, p); "
 & "\n    len := Geometry.Dist(p, q); \n    u := R2.Times(1 / len, dv); \n "
 & "   dist := CAR(currPat); \n    DO \n      (dist < len) -> \n";

CONST E49_1 =
   "        r := R2.Plus(p, R2.Times(dist, u)); \n        IF \n          pa"
 & "rity < 0 -> PS.MoveTo(r) | PS.LineTo(r) \n        FI; \n        (currPa"
 & "t, parity):Advance(CAR(currPat)); \n        dist := dist + CAR(currPat)"
 & " \n    OD; \n    IF parity > 0 -> PS.LineTo(q) | PS.MoveTo(q) FI; \n   "
 & " VAR amt IN \n      amt := len - (dist - CAR(currPat)); \n      (currPa"
 & "t, parity):Advance(amt) \n    END \n  END \nEND;\n\n/* Extend the curre"
 & "nt path with a dashed line \n   segment from \"p\" to \"q\"; \"q\" beco"
 & "mes the current \n   point. The style of the dash is determined by the "
 & "\n   current dash pattern. It is a checked run-time \n   error for the "
 & "current point to be undefined. */\n\nPRIVATE PROC Curve(p, q, r, s) IS "
 & "\n  VAR t, amt IN \n    t := 0; \n    DO \n      t < 1 -> \n        amt"
 & " := CAR(currPat); \n        (t, amt):CurvedDash(p, q, r, s, parity); \n"
 & "        (currPat, parity):Advance(amt) \n    OD \n  END \nEND;\n\n/* Ex"
 & "tend the current path with a dashed Bezier \n   curve determined by \"p"
 & "\", \"q\", \"r\", and \"s\"; \"s\" \n   becomes the current point. The "
 & "style of the dash \n   is determined by the current dash pattern. It is"
 & " \n   a checked run-time error for the current point to \n   be undefin"
 & "ed. */\n\nPRIVATE PRED \n  Trellis(t, p, q, r, s, pq, qr, rs, pqr, qrs,"
 & " pqrs) IS \n  pq = (t, 0) REL (p, q) AND \n  qr = (t, 0) REL (q, r) AND"
 & " \n  rs = (t, 0) REL (r, s) AND \n  pqr = (t, 0) REL (pq, qr) AND \n  q"
 & "rs = (t, 0) REL (qr, rs) AND \n  pqrs = (t, 0) REL (pqr, qrs) \nEND;\n\n"
 & "PRIVATE PROC \n  (t, len):CurvedDash(p, q, r, s, parity) IS \n  IF \n  "
 & "  VAR \n      pq, qr, rs, pqr, qrs, pqrs, velocity, speed, \n      endt"
 & " \n    IN \n      Trellis(t, p, q, r, s, pq, qr, rs, pqr, qrs, \n      "
 & "        pqrs) AND \n      velocity = R2.Times(3, R2.Minus(qrs, pqr)) AN"
 & "D \n      speed = R2.Length(velocity) AND \n      endt = t + len / spee"
 & "d -> \n        IF \n          endt > 1 -> \n            len := len * (1"
 & " - t) / (endt - t); \n            endt := 1 | SKIP \n        FI; \n    "
 & "    VAR t2 IN \n          t2 := (endt - t) / (1 - t); \n          Curve"
 & "dDashBit(pqrs, qrs, rs, s";

CONST E49_2 =
   ", t2, parity) \n        END; \n        t := endt \n    END \n  FI \nEND"
 & ";\n\n/* CurvedDash draws a piece of the Bezier \n   \"[p,q,r,s]\" start"
 & "ing from \"t\" of length \"len\", \n   and advances \"t\". However, if "
 & "a piece of length \n   \"len\" would extend past \"s\", the piece is dr"
 & "awn \n   to \"s\", and \"len\" is set to the length of the \n   segment"
 & " that was drawn. */\n\nPRIVATE PROC CurvedDashBit(p, q, r, s, t, parity"
 & ") IS \n  IF \n    VAR pq, qr, rs, pqr, qrs, pqrs IN \n      Trellis(t, "
 & "p, q, r, s, pq, qr, rs, pqr, qrs, \n              pqrs) -> \n        IF"
 & " \n          parity > 0 -> PS.CurveTo(pq, pqr, pqrs) \n        | PS.Mov"
 & "eTo(pqrs) \n        FI \n    END \n  FI \nEND;\n\n/* CurvedDashBit(p,q,"
 & "r,s,t) draws the piece of \n   Bezier(p,q,r,s) from 0 to t. */\n\nPROC "
 & "Stroke() IS \n  VAR path, currPt, startPt IN \n    path := PS.CurrentPa"
 & "th(); \n    PS.NewPath(); \n    currPt, startPt := NIL, NIL; \n    DO \n"
 & "      path # NIL -> \n        IF \n          VAR op, args IN \n        "
 & "    CAR(path) = (op, args) -> \n              IF \n                op ="
 & " \"MoveTo\" -> \n                  startPt := CAR(args); \n            "
 & "      Move(startPt); \n                  currPt := startPt \n          "
 & "    | op = \"LineTo\" -> \n                  Line(currPt, CAR(args)); \n"
 & "                  currPt := CAR(args) \n              | op = \"CurveTo\""
 & " -> \n                  VAR b, c, d IN \n                    args = [b,"
 & " c, d] -> \n                      Curve(currPt, b, c, d); \n           "
 & "           currPt := d \n                  END \n              | op = \""
 & "Close\" -> \n                  Line(currPt, startPt); \n               "
 & "   currPt, startPt := NIL, NIL \n              FI \n          END \n   "
 & "     FI; \n        path := CDR(path) \n    OD; \n    PS.Stroke() \n  EN"
 & "D \nEND;\n\nUI PointTool(Stroke);\n\n(* Stroke the current path in the "
 & "current line width \n   using this module\'s current dash pattern. *)\n"
 & "\nPROC Straight1(a, b) IS \n  VAR c IN \n    c := Arrow.StraightEnd(a, "
 & "b, Arrow.HeadSize()); \n    PS.MoveTo(a); \n    PS.LineTo(c); \n    Str"
 & "oke(); \n    Arrow.Head(a, b) \n  END \nE";

CONST E49_3 =
   "ND;\n\nUI PointTool(Straight1);\n\n(* Draw a dashed directed line from "
 & "\"a\" to \"b\". The \n   arrow head size is determined using the \n   \""
 & "Arrow.HeadSize\" procedure. *)\n\nPROC Straight2(a, b) IS \n  VAR sz, c"
 & ", d IN \n    sz := Arrow.HeadSize(); \n    c := Arrow.StraightEnd(b, a,"
 & " sz); \n    d := Arrow.StraightEnd(a, b, sz); \n    Arrow.Head(b, a); \n"
 & "    PS.MoveTo(c); \n    PS.LineTo(d); \n    Stroke(); \n    Arrow.Head("
 & "a, b) \n  END \nEND;\n\nUI PointTool(Straight2);\n\n(* Draw a dashed di"
 & "rected line between \"a\" and \"b\". \n   The arrow head size is determ"
 & "ined using the \n   \"Arrow.HeadSize\" procedure. *)\n\nPROC Curved1(a,"
 & " b, c, d) IS \n  VAR e IN \n    e := Arrow.StraightEnd(c, d, Arrow.Head"
 & "Size()); \n    PS.MoveTo(a); \n    PS.CurveTo(b, c, e); \n    Stroke();"
 & " \n    Arrow.Head(c, d) \n  END \nEND;\n\nUI PointTool(Curved1);\n\n(* "
 & "Draw a dashed directed curve from \"a\" to \"d\" \n   using \"b\" and \""
 & "c\" as control points. The arrow \n   head size is determined using the"
 & " \n   \"Arrow.HeadSize\" procedure. *)\n\nPROC Curved2(a, b, c, d) IS \n"
 & "  VAR sz, e, f IN \n    sz := Arrow.HeadSize(); \n    e := Arrow.Straig"
 & "htEnd(b, a, sz); \n    f := Arrow.StraightEnd(c, d, sz); \n    Arrow.He"
 & "ad(b, a); \n    PS.MoveTo(e); \n    PS.CurveTo(b, c, f); \n    Stroke()"
 & "; \n    Arrow.Head(c, d) \n  END \nEND;\n\nUI PointTool(Curved2);\n\n(*"
 & " Draw a dashed directed curve between \"a\" and \"d\" \n   using \"b\" "
 & "and \"c\" as control points. The arrow \n   head size is determined usi"
 & "ng the \n   \"Arrow.HeadSize\" procedure. *)\n\nPRIVATE VAR history := "
 & "NIL;\n\nPROC Save() IS \n  history := ((dashList, offset), history) \nE"
 & "ND;\n\nPROC Restore() IS \n  VAR state IN \n    state := CAR(history); "
 & "\n    dashList := CAR(state); \n    offset := CDR(state); \n    history"
 & " := CDR(history) \n  END \nEND;\n\nUI PointTool(Save);\n\nUI PointTool("
 & "Restore);\n\n(* Save/restore the \"Dash\" state, namely the dash \n   p"
 & "attern and offset. *)\n\n";

CONST E50 =
   "MODULE Type;\n\n(* The procedures in this module type a \n   single lin"
 & "e of text relative to a \n   specified point. *)\n\nIMPORT PS;\n\nPROC "
 & "L(p, txt) IS PS.Type(p, txt) END;\n\nUI TextTool(L);\n\n(* Equivalent t"
 & "o \"PS.Type(p, txt)\". *)\n\nPROC C(p, txt) IS \n  VAR w IN\n    w := P"
 & "S.StringWidth(txt);\n    PS.Type((CAR(p) - w / 2, CDR(p)), txt) \n  END"
 & " \nEND;\n\nUI TextTool(C);\n\n(* Like \"PS.Type\", but \"txt\" is cente"
 & "red \n   around \"p\". *)\n\nPROC R(p, txt) IS \n  VAR w IN\n    w := P"
 & "S.StringWidth(txt);\n    PS.Type((CAR(p) - w, CDR(p)), txt) \n  END \nE"
 & "ND;\n\nUI TextTool(R);\n\n(* Like \"PS.Type\", but \"txt\" is \n   righ"
 & "t-justifed off \"p\". *)\n\n";

CONST E51 =
   "MODULE PieChart;\n\nIMPORT Color, LineSkip, List, Math;\n\nIMPORT PS, R"
 & "2, Unparse, Circle, Arc, Rect;\n\n(* A module for drawing pie charts an"
 & "d their legends. *)\n\n(* \\section{Pie Chart Colors} *)\n\nVAR Saturat"
 & "ion := 1, Brightness := 1;\n\n(* The \"Draw\" procedure below for drawi"
 & "ng pie charts chooses the \n   hue of each wedge so that subsequent hue"
 & "s are distinct. The \n   saturation and value (or brightness) of each w"
 & "edge are \n   controlled by the current values of the global variables "
 & "\n   \"Saturation\" and \"Brightness\". See the description of the \n  "
 & " procedure \"Color.FromHSV\" of the hue-saturation-value color \n   mod"
 & "el. *)\n\nPRIVATE PROC c := ColorN(i) IS \n  c := Color.FromHSV(Color.H"
 & "ueN(i), Saturation, Brightness) \nEND;\n\n(* \\section{Pie Charts} *)\n"
 & "\nPRIVATE CONST OuterLineWidth = 2, InnerLineWidth = 1;\n\n/* The outer"
 & " circumference of the pie is stroked in a line of \n   width \"OuterLin"
 & "eWidth\". The divisions between the pie slices \n   are stroked with li"
 & "nes of width \"InnerLineWidth\". */\n\nPRIVATE FUNC p = Loc(a, b, k) IS"
 & " \n  (E theta = -k * 2 * Math.Pi, q = (COS(theta), SIN(theta)) :: \n   "
 & " p = q REL (a, b)) \nEND;\n\n/* \"p\" is the point on the circumference"
 & " of the pie with center \n   \"a\" starting at \"b\" a fraction \"k\" o"
 & "f the way around the pie \n   (in the clockwise direction). */\n\nPRIVA"
 & "TE PROC DrawWedge(a, b, from, to, i) IS \n  SAVE PS IN \n    VAR p, q I"
 & "N \n      p, q := Loc(a, b, from), Loc(a, b, to); \n      SAVE PS IN \n"
 & "        PS.MoveTo(a); \n        PS.LineTo(p); \n        Arc.Draw(a, q);"
 & " \n        PS.Close(); \n        PS.SetColor(ColorN(i)); \n        PS.F"
 & "ill() \n      END; \n      PS.MoveTo(p); \n      PS.LineTo(a); \n      "
 & "PS.LineTo(q); \n      PS.SetEndStyle(PS.ButtEnds); \n      PS.SetJointS"
 & "tyle(PS.BevelJoints); \n      PS.Stroke() \n    END \n  END \nEND;\n\n/"
 & "* Draw a wedge from \"Loc(a,b,from)\" to \"Loc(a,b,to)\" filled \n   wi"
 & "th the color corresponding to index \"i\". */\n\nPRIVATE PROC sum := To"
 & "tal(data) IS \n  sum := 0; \n  DO \n    data # NIL -> sum := sum + CAR("
 & "CAR(data)); data := CDR(data) \n  OD \nE";

CONST E51_0 =
   "ND;\n\n/* Return the sum of the \"CAR\"\'s of the elements of the list "
 & "\n   \"data\". */\n\nPROC Draw(a, b, data) IS \n  SAVE PS IN \n    PS.S"
 & "etWidth(InnerLineWidth); \n    VAR sum, item, curr = 0, i = 0 IN \n    "
 & "  sum := Total(data); \n      DO \n        data # NIL -> \n          it"
 & "em := CAR(data); \n          data := CDR(data); \n          VAR new IN "
 & "\n            new := curr + (CAR(item) / sum); \n            DrawWedge("
 & "a, b, curr, new, i); \n            curr := new \n          END; \n     "
 & "     i := i + 1 \n      OD \n    END; \n    Circle.Draw(a, b); \n    PS"
 & ".SetWidth(OuterLineWidth); \n    PS.Stroke() \n  END \nEND;\n\n(* Draw "
 & "a pie chart with center \"a\" and circumference starting \n   point \"b"
 & "\" on the given \"data\". \"Data\" must be a list of \n   \"(value, nam"
 & "e)\" pairs. The \"name\" parts of the data are \n   ignored by this pro"
 & "cedure, but they are used by the \"Legend\" \n   procedure below. *)\n\n"
 & "(* \\section{Pie Chart Legends} *)\n\nPRIVATE CONST \n  LegendLineWidth"
 & " = 1, SquareScale = 0.7, LegendGap = 5;\n\nPRIVATE PROC LegendSquare(p,"
 & " ht, i) IS \n  VAR center, ht2, delta IN \n    ht2 := ht / 2; \n    del"
 & "ta := (ht2, -ht2); \n    center := R2.Plus(p, delta); \n    Rect.DrawC("
 & "center, \n               R2.Plus(center, R2.Times(SquareScale, delta)))"
 & "; \n    SAVE PS IN PS.SetColor(ColorN(i)); PS.Fill() END; \n    PS.Stro"
 & "ke() \n  END \nEND;\n\nPRIVATE PROC p:LegendItem(asc, ht, label, i) IS "
 & "\n  LegendSquare(p, ht, i); \n  PS.Type(R2.Plus(p, (ht + LegendGap, -as"
 & "c)), label); \n  p := R2.Minus(p, (0, ht + LineSkip.Get())) \nEND;\n\nP"
 & "ROC Legend(a, data, labelCl) IS \n  SAVE PS IN \n    PS.SetWidth(Legend"
 & "LineWidth); \n    VAR asc, dec, ht, vert, sum, i = 0 IN \n      asc, de"
 & "c := PS.FontHeight(); \n      ht := asc + dec; \n      vert := \n      "
 & "  List.Length(data) * (ht + LineSkip.Get()) - \n        LineSkip.Get();"
 & " \n      sum := Total(data); \n      a := R2.Plus(a, (0, vert / 2)); \n"
 & "      DO \n        data # NIL -> \n          a:LegendItem(asc, ht, APPL"
 & "Y(labelCl, CAR(data), sum), i); \n          data := CDR(data); \n      "
 & "    i := i + 1 \n      OD \n    EN";

CONST E51_1 =
   "D \n  END \nEND;\n\n(* Draw a legend for the given \"data\" located so "
 & "its west edge \n   is centered at \"a\". The \"data\" should be a list "
 & "of \"(value, \n   name)\" pairs. \n\n   The call \"APPLY(labelCl, item,"
 & " sum)\" must return the textual \n   label associated with the given \""
 & "item\" (which is a name-value \n   pair), given that \"sum\" is the sum"
 & " of the values of all the \n   items. There are predefined label closur"
 & "es defined below for \n   common cases. \n\n   The legend names are pri"
 & "nted in the current font, separated \n   by the nominal height of the f"
 & "ont plus the current \"LineSkip\" \n   value (as maintained by the \"Li"
 & "neSkip\" module). *)\n\nPROC res := OnlyLabel(item, sum) IS res := CDR("
 & "item) END;\n\n(* A label closure that returns only the name of the labe"
 & "l *)\n\nPROC res := AbsoluteLabel(item, sum) IS \n  res := CDR(item) & "
 & "\" (\" & Unparse.Value(CAR(item)) & \")\" \nEND;\n\n(* A label closure "
 & "that returns the name of the label and its \n   associated value. *)\n\n"
 & "PROC res := PercentLabel(item, sum) IS \n  res := \n    CDR(item) & \" "
 & "(\" & Unparse.Value(100 * CAR(item) / sum) & \n    \"%)\" \nEND;\n\n(* "
 & "A label closure that returns the name of the label and its \n   associa"
 & "ted percentage. *)\n\n";

CONST E52 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Thu Mar 28 17:28:49 PST "
 & "1996 by heydon\n\n; Macros for particular shape constraints\n;\n(Macro "
 & "Width2 BOA (w)  `(Width ,w + Inf - ,w))\n(Macro Height2 BOA (h) `(Heigh"
 & "t ,h + Inf - ,h))\n(Macro FixedHeight BOA (ch) `(Shape (Height + 0 - 0)"
 & " ,ch))\n(Macro FixedWidth BOA (ch) `(Shape (Width + 0 - 0) ,ch))\n(Macr"
 & "o FixedSize BOA (ch) `(Shape (Height + 0 - 0) (Width + 0 - 0) ,ch))\n\n"
 & "; Shape macros for particular generics\n;\n(Macro Drawing BOA (ch) `(Sh"
 & "ape (Width2 350) (Height2 0) ,ch))\n(Macro Sources BOA (ch) `(Shape (Wi"
 & "dth2 350) ,ch))\n(Macro Module  BOA (ch) `(Shape (Height2 295) ,ch))\n("
 & "Macro CCmd    BOA (ch) `(Shape (Height2 295) ,ch))\n\n; Macros for the "
 & "various \"File\" menu pop-ups\n(Macro BrowserAt BOA () \'(At 71 20 NW A"
 & "bsolute))\n(Macro BrowserShape BOA (ch) `(Shape (Height2 300) (Width2 2"
 & "00) ,ch))\n\n; MyBar, MyRidge, Space == misc spaces of fixed width\n;\n"
 & "(Macro MyBar   () \'(Bar 1))\n(Macro MyRidge () \'(Bar 1))\n(Macro Spac"
 & "e   () \'(Glue 3))\n(Macro SmallSpace () \'(Glue 1))\n\n; HTile2(ch1,ch"
 & "2) == like (HTile ch1 ch2), only puts (MyBar) on either side of\n;   th"
 & "e bar separating the children\n;\n(Macro HTile2 BOA (ch1 ch2)\n  `(HTil"
 & "e (HBox ,ch1 (MyBar)) (HBox (MyBar) ,ch2)))\n(Macro VTile2 BOA (ch1 ch2"
 & ")\n  `(VTile (VBox ,ch1 (MyBar)) (VBox (MyBar) ,ch2)))\n\n; ButtonLabel"
 & "(lbl) == \"lbl\" with space on either side\n;\n(Macro ButtonLabel BOA ("
 & "lbl)\n  `(HBox (SmallSpace) ,lbl (SmallSpace)))\n\n; MenuLabel(lbl) == "
 & "\"lbl\" followed by \"MenuArrow\"\n;\n(Macro MenuLabel BOA (lbl)\n  `(B"
 & "uttonLabel\n    (HBox\n     ,lbl\n     (SmallSpace)\n     (FixedWidth ("
 & "Pixmap \"MenuArrow.pbm\"))\n     (Space))))\n\n; TextL == left-aligned "
 & "text\n;\n(Macro TextL BOA (txt)\n  `(Text LeftAlign ,txt))\n\n; MyLabel"
 & "Font == set part";

CONST E52_0 =
   "icular LabelFont\n;\n(Macro MyLabelFont ()\n  \'(LabelFont\n     (Famil"
 & "y \"Helvetica\")\n     (WeightName \"bold\")\n     (Slant \"r\")\n     "
 & "(PointSize 100)))\n\n; MyBrowserFont == set font for file browser windo"
 & "ws\n;\n(Macro MyBrowserFont ()\n  \'(Font\n     (Family \"Helvetica\")\n"
 & "     (WeightName \"bold\")\n     (Slant \"r\")\n     (Width \"normal\")"
 & "\n     (PointSize 100)))\n\n(Macro MyBrowserLabelFont ()\n  \'(LabelFon"
 & "t\n     (Family \"Helvetica\")\n     (WeightName \"bold\")\n     (Slant"
 & " \"r\")\n     (PointSize 100)))\n\n; ZChassis look-alikes with named \""
 & "Cancel\" buttons\n;\n(Macro If BOA (bool x y)\n  (IF bool x y))\n(Macro"
 & " MyZChassis\n  ((At (0.5 0.5))\n   (CancelBox TRUE)\n   (CancelName \"\""
 & ")\n   (GrowBox TRUE)\n   Name\n   Title\n   Child)\n `(ZChild %,Name\n "
 & "   (At ,@At)\n    (MyBrowserLabelFont)\n    (Border\n      (VBox\n     "
 & "   (HBox\n          (If ,CancelBox\n            (CloseButton %,CancelNa"
 & "me\n              (Rim (Pen 2) (Pixmap \"UpArrow.pbm\")))\n            "
 & "(Glue 0)\n          )\n          (Bar)\n          (Shape (Width + Inf) "
 & "(ZMove ,Title))\n          (Bar)\n          (If ,GrowBox\n            ("
 & "ZGrow (Rim (Pen 2) (Pixmap \"Grow.pbm\")))\n            (Glue 0)\n     "
 & "     )\n        )\n        (Bar)\n        (Frame ,Child)\n      )\n    "
 & ")\n  )\n)\n";

CONST E53 =
   "MODULE Bezier;\n\n(* Bezier curve predicates and procedures. *)\n\nIMPO"
 & "RT R2, Geometry;\n\n(* A Bezier curve is defined by a univariate cubic "
 & "polynomial \n   \"F(t)\": \n\n|  F(t) = p0 + t*p1 + t^2*p2 + t^3*p3,\n\n"
 & "   where \"t\" is a scalar, and the coefficients \"p_i\" are vectors \n"
 & "   (pairs of real numbers). Here, \"*\" denotes the multiplication \n  "
 & " of a vector by a scalar, and \"+\" denotes vector addition. \n\n   Alt"
 & "ernatively, a Bezier curve \"a\", \"b\", \"c\", \"d\" may be \n   speci"
 & "fied by its two endpoints \"a\" and \"d\" and its two \n   control poin"
 & "ts \"b\" and \"c\". Since \"t = 0\" corresponds to the \n   first endpo"
 & "int \"a\", and \"F(0) = p0\", we have that \"a = p0\". \n   The \"MapRe"
 & "p\" predicate below defines the mapping between the \n   two representa"
 & "tions. *)\n\n(* MAPPING BETWEEN REPRESENTATIONS *)\n\nPRED MapRep(a, b,"
 & " c, d, p1, p2, p3) IS \n  (E ba, bc, b2, ab2, bc3, ab2c, bc3d :: \n    "
 & "ba = R2.Minus(b, a) AND \n    bc = R2.Minus(b, c) AND \n    b2 = R2.Tim"
 & "es(2, b) AND \n    ab2 = R2.Minus(a, b2) AND \n    bc3 = R2.Times(3, bc"
 & ") AND \n    ab2c = R2.Plus(ab2, c) AND \n    bc3d = R2.Plus(bc3, d) AND"
 & " \n    p1 = R2.Times(3, ba) AND \n    p2 = R2.Times(3, ab2c) AND \n    "
 & "p3 = R2.Minus(bc3d, a)) \nEND;\n\n(* The curve defined by the points \""
 & "a\", \"b\", \"c\", and \"d\" \n   corresponds to the univariate cubic p"
 & "olynomial \"F\" with \n   coefficients \"a\", \"p1\", \"p2\", and \"p3\""
 & ". *)\n\n(* COEFFICIENT REPRESENTATION *)\n\nPRIVATE FUNC r = Sum3(a, b,"
 & " c) IS \n  r = R2.Plus(a, R2.Plus(b, c)) \nEND;\n\n/* \"r\" is the vect"
 & "or sum of \"a\", \"b\", and \"c\", which are 2D \n   points. */\n\nPRIV"
 & "ATE FUNC r = Sum4(a, b, c, d) IS \n  r = R2.Plus(a, R2.Plus(b, R2.Plus("
 & "c, d))) \nEND;\n\n/* \"r\" is the vector sum of \"a\", \"b\", \"c\", an"
 & "d \"d\", which are 2D \n   points. */\n\nFUNC p = AtTFromCoeffs(p0, p1,"
 & " p2, p3, t) IS \n  (E t2, t3, s1, s2, s3 :: \n    t2 = t * t AND \n    "
 & "t3 = t * t2 AND \n    s1 = R2.Times(t, p1) AND \n    s2 = R2.Times(t2, "
 & "p2) AND \n    s3 = R2.Times(t3, p3) AND \n    p = Sum4(p0, s1, s2, s3))"
 & " \nEND;\n\n(* If \"F\" is the Bezier curve defined by the four coeffici"
 & "ents \n   \"";

CONST E53_0 =
   "p0\", \"p1\", \"p2\", and \"p3\", then \"p = F(t)\". *)\n\nFUNC p = Pri"
 & "meAtTFromCoeffs(p0, p1, p2, p3, t) IS \n  p = Sum3(p1, R2.Times(2 * t, "
 & "p2), R2.Times(3 * t * t, p3)) \nEND;\n\n(* If \"F\" is the Bezier curve"
 & " defined by the four coefficients \n   \"p0\", \"p1\", \"p2\", and \"p3"
 & "\", then \"p = F\'(t)\", where \"F\'\" \n   denotes the first derivativ"
 & "e of the polynomial \"F\" with \n   respect to \"t\". *)\n\n(* POINT RE"
 & "PRESENTATION *)\n\nFUNC p = AtT(a, b, c, d, t) IS \n  (E p1, p2, p3 :: "
 & "\n    MapRep(a, b, c, d, p1, p2, p3) AND \n    p = AtTFromCoeffs(a, p1,"
 & " p2, p3, t)) \nEND;\n\n(* If \"F\" is the Bezier curve defined by the f"
 & "our points \"a\", \n   \"b\", \"c\", and \"d\", then \"p = F(t)\". *)\n"
 & "\nFUNC p = PrimeAtT(a, b, c, d, t) IS \n  (E p1, p2, p3 :: \n    MapRep"
 & "(a, b, c, d, p1, p2, p3) AND \n    p = PrimeAtTFromCoeffs(a, p1, p2, p3"
 & ", t)) \nEND;\n\n(* If \"F\" is the Bezier curve defined by the four poi"
 & "nts \"a\", \n   \"b\", \"c\", and \"d\", then \"p = F\'(t)\", where \"F"
 & "\'\" denotes the \n   first derivative of the polynomial \"F\" with res"
 & "pect to \"t\". *)\n\nPRIVATE PROC p := EvalAtT(p0, p1, p2, p3, t) IS \n"
 & "  VAR t2, t3, s1, s2, s3 IN \n    t2 := t * t; \n    t3 := t * t2; \n  "
 & "  s1 := R2.Times(t, p1); \n    s2 := R2.Times(t2, p2); \n    s3 := R2.T"
 & "imes(t3, p3); \n    p := Sum4(p0, s1, s2, s3) \n  END \nEND;\n\nPROC cl"
 & " := Closure(a, b, c, d) IS \n  IF \n    VAR p1, p2, p3 IN \n      MapRe"
 & "p(a, b, c, d, p1, p2, p3) -> \n        cl := CLOSE(EvalAtT, a, p1, p2, "
 & "p3) \n    END \n  FI \nEND;\n\n(* Return a closure taking a single argu"
 & "ment \"t\" and returning \n   the point \"F(t)\", where \"F\" is the Be"
 & "zier curve defined by \n   the points \"a\", \"b\", \"c\", and \"d\". *"
 & ")\n\nPRIVATE FUNC t = EstimateT(p, a, b, c, d) IS \n  (E ab = (0.5, 0) "
 & "REL (a, b), bc = (0.5, 0) REL (b, c), \n     cd = (0.5, 0) REL (c, d), "
 & "abc = (0.5, 0) REL (ab, bc), \n     bcd = (0.5, 0) REL (bc, cd), \n    "
 & " abcd = (0.5, 0) REL (abc, bcd), x, y :: \n    p = (x, y) REL (abcd, bc"
 & "d) AND t = 0.5 + x / 6) \nEND;\n\nPRED On(p, a, b, c, d) IS \n  (E t ~ "
 & "EstimateT(p, a, b, c, d), ab ~ (t, 0) REL (a, b), \n     bc ~ (t, 0) RE"
 & "L (b, c), c";

CONST E53_1 =
   "d ~ (t, 0) REL (c, d), \n     abc ~ (t, 0) REL (ab, bc), bcd ~ (t, 0) R"
 & "EL (bc, cd) :: \n    ab = (t, 0) REL (a, b) AND \n    bc = (t, 0) REL ("
 & "b, c) AND \n    cd = (t, 0) REL (c, d) AND \n    abc = (t, 0) REL (ab, "
 & "bc) AND \n    bcd = (t, 0) REL (bc, cd) AND \n    p = (t, 0) REL (abc, "
 & "bcd)) \nEND;\n\nUI PointTool(On);\n\n(* The point \"p\" lies on the Bez"
 & "ier curve \"a\", \"b\", \"c\", \"d\". *)\n\nPROC p1, p2, p3, p4, p5 := "
 & "Split(a, b, c, d) IS \n  IF \n    VAR \n      ab = Geometry.Mid(a, b), "
 & "bc = Geometry.Mid(b, c), \n      cd = Geometry.Mid(c, d), abc = Geometr"
 & "y.Mid(ab, bc), \n      bcd = Geometry.Mid(bc, cd), abcd = Geometry.Mid("
 & "abc, bcd) \n    IN \n      p1, p2, p3, p4, p5 := ab, abc, abcd, bcd, cd"
 & " \n    END \n  FI \nEND;\n\n(* Set the output parameters so that \n\n| "
 & "   PS.MoveTo(a);\n|    PS.CurveTo(p1, p2, p3);\n|    PS.CurveTo(p4, p5,"
 & " d)\n\n   produces a path equivalent to \n\n|    PS.MoveTo(a);\n|    PS"
 & ".CurveTo(b, c, d).\n\n   The point \"p3\" is the midpoint of the curve "
 & "\"a\", b\", \"c\", \n   \"d\". That is, \"p3 = AtT(a, b, c, d, 0.5)\". "
 & "*)\n\nPRIVATE CONST MinDist = 8, MaxRatio = 0.004;\n\nPRIVATE PROC Ck, "
 & "Pk := LengthAux(a, b, c, d, depth, max) IS \n  VAR split = 1 IN \n    I"
 & "F \n      depth < max -> SKIP \n    | Ck, Pk := \n        Geometry.Dist"
 & "(a, d), \n        Geometry.Dist(a, b) + Geometry.Dist(b, c) + \n       "
 & " Geometry.Dist(c, d); \n      IF \n        Pk < MinDist OR (Pk - Ck) / "
 & "Pk < MaxRatio -> split := NIL \n      | SKIP \n      FI \n    FI; \n   "
 & " IF \n      split # NIL -> \n        VAR p1, p2, p3, p4, p5, Ck2, Pk2 I"
 & "N \n          p1, p2, p3, p4, p5 := Split(a, b, c, d); \n          Ck, "
 & "Pk := LengthAux(a, p1, p2, p3, depth + 1, max); \n          Ck2, Pk2 :="
 & " LengthAux(p3, p4, p5, d, depth + 1, max); \n          Ck, Pk := Ck + C"
 & "k2, Pk + Pk2 \n        END | SKIP \n    FI \n  END \nEND;\n\n/* Sets \""
 & "Ck\" and \"Pk\" to a lower- and upper-bound, respectively, \n   on the "
 & "length of the Bezier curve defined by the points \"a\", \n   \"b\", \"c"
 & "\", and \"d\". Recursion proceeds so long as the relative \n   differen"
 & "ce between the upper and lower bound is grea";

CONST E53_2 =
   "ter than \n   the constant \"Epsilon\". */\n\nPROC len := Length(a, b, "
 & "c, d) IS \n  VAR Ck, Pk IN \n    Ck, Pk := LengthAux(a, b, c, d, 0, 3);"
 & " len := (Ck + Pk) / 2 \n  END \nEND;\n\n(* Set \"len\" to an approximat"
 & "ion of the length (in points) of \n   the Bezier curve defined by the f"
 & "our points \"a\", \"b\", \"c\", \n   \"d\". *)\n\n";

CONST E54 =
   "MODULE Show;\n\n(* Procedures to display a single \n   line of text rel"
 & "ative to the \n   current point. All procedures in \n   this module req"
 & "uire that the \n   current point is defined. *)\n\nIMPORT PS;\n\nPROC L"
 & "(txt) IS \n  VAR p, w IN \n    p := PS.CurrentPoint(); \n    w := PS.St"
 & "ringWidth(txt); \n    PS.Type(p, txt); \n    PS.MoveTo((CAR(p) + w, CDR"
 & "(p))) \n  END \nEND;\n\nUI TextTool(L);\n\n(* Types \"txt\" left-justif"
 & "ied off \n   the current point, then moves \n   the current point to th"
 & "e right \n   by the width of \"txt\". *)\n\nPROC C(txt) IS \n  VAR p, w"
 & " IN \n    p := PS.CurrentPoint(); \n    w := PS.StringWidth(txt); \n   "
 & " PS.Type((CAR(p) - w / 2, CDR(p)), \n            txt) \n  END \nEND;\n\n"
 & "UI TextTool(C);\n\n(* Types \"txt\" centered about the \n   current poi"
 & "nt. This procedure \n   does not change the current \n   point. *)\n\nP"
 & "ROC R(txt) IS \n  VAR p, w IN \n    p := PS.CurrentPoint(); \n    w := "
 & "PS.StringWidth(txt); \n    p := (CAR(p) - w, CDR(p)); \n    PS.Type(p, "
 & "txt); \n    PS.MoveTo(p) \n  END \nEND;\n\nUI TextTool(R);\n\n(* Types "
 & "\"txt\" right-justified off \n   the current point, then moves \n   the"
 & " current point to the left\n   by the width of \"txt\". *)\n\n";

CONST E55 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Thu Jan 30 11:34:11 PST "
 & "1997 by heydon                   \n\n(Rim (Pen 5)\n  (Macro VGap () \'("
 & "Glue 5))\n  (Macro TypeinField BOA (label name tabTo (firstFocus FALSE)"
 & ")\n    `(HBox\n       (Shape (Width + 0) (Text ,label))\n       (Glue 2"
 & ")\n       (Frame Lowered (MyBrowserFont) (Shape (Width 120 + Inf)\n    "
 & "     (TypeIn %,name (TabTo ,tabTo) (BgColor \"White\")\n           (Fir"
 & "stFocus ,firstFocus))))))\n  (VBox\n    (TypeinField \"Name:\" animName"
 & " sliderPts TRUE)\n    (VGap)\n    (TypeinField \"Slider Points:\" slide"
 & "rPts animName)\n    (VGap)\n    (HBox Fill (Button %foldAsAnimOk \"  OK"
 & "  \") Fill))\n)\n";

CONST E56 =
   "MODULE Line;\n\n(* Procedures and predicates for \n   lines and line se"
 & "gments. *)\n\nIMPORT Geometry, PS;\n\n(* A line segment \"[a, b]\" is \n"
 & "   defined by its two endpoints \"a\" \n   and \"b\". *)\n\nPROC Draw(a"
 & ", b) IS \n  PS.MoveTo(a); PS.LineTo(b) \nEND;\n\nUI PointTool(Draw);\n\n"
 & "(* Add the line segment \"[a, b]\" to \n   the current path. The curren"
 & "t \n   point becomes \"b\". *)\n\nPRED On(p, a, b) IS \n  Geometry.Coli"
 & "near(a, p, b) \nEND;\n\nUI PointTool(On);\n\n(* The point \"p\" is on t"
 & "he line \n   \"[a, b]\". *)\n\n";

CONST E57 =
   "MODULE Unparse;\n\n(* Procedures for converting Juno values to texts *)"
 & "\n\nIMPORT Text;\n\nCONST DefaultNumPrec = 4;\n\nPRIVATE VAR prec := De"
 & "faultNumPrec - 1;\n\n(* This module maintains a current numeric precisi"
 & "on, \n   which is the precision it uses when unparsing \n   numbers. A "
 & "number\'s \"precision\" is defined to be its \n   number of significant"
 & " digits. *)\n\nPROC SetNumPrec(p) IS prec := p - 1 END;\n\nPROC p := Ge"
 & "tNumPrec() IS p := prec + 1 END;\n\nUI SetTool(SetNumPrec);\n\n(* Set/g"
 & "et the current numeric precision. *)\n\nUI Param(SetNumPrec, DefaultNum"
 & "Prec);\n\nUI Param(SetNumPrec, 0);\n\nUI Param(SetNumPrec, 1);\n\nUI Pa"
 & "ram(SetNumPrec, 2);\n\nUI Param(SetNumPrec, 3);\n\nUI Param(SetNumPrec,"
 & " 4);\n\nUI Param(SetNumPrec, 5);\n\nCONST DefaultBreakDepth = 0;\n\nPRI"
 & "VATE VAR breakDepth := DefaultBreakDepth;\n\n(* This module maintains a"
 & " list-breaking depth. *)\n\nPROC SetBreakDepth(d) IS breakDepth := d EN"
 & "D;\n\nPROC d := GetBreakDepth() IS d := breakDepth END;\n\nUI SetTool(S"
 & "etBreakDepth);\n\n(* Set/get the list break depth. *)\n\nUI Param(SetBr"
 & "eakDepth, DefaultBreakDepth);\n\nUI Param(SetBreakDepth, 0);\n\nUI Para"
 & "m(SetBreakDepth, 1);\n\nUI Param(SetBreakDepth, 2);\n\nUI Param(SetBrea"
 & "kDepth, 1000);\n\nPROC t := Point(p) IS \n  t := \n    \"(\" & Text.Fro"
 & "mNum(CAR(p), prec) & \", \" & \n    Text.FromNum(CDR(p), prec) & \")\" "
 & "\nEND;\n\n(* Return a textual representation of the point \"p\". It \n "
 & "  is a checked run-time error for \"p\" not to be a pair \n   of number"
 & "s. *)\n\nPROC t := Value(val) IS t := ValueToDepth(val, 0) END;\n\n(* S"
 & "et \"t\" to a textual representation of \"val\". By \n   default, \"t\""
 & " will not contain any added newline \n   characters. However, if \"val\""
 & " is a list and the \n   current list break depth is positive, then list"
 & " \n   elements nested to a depth up to the current list \n   break dept"
 & "h will be separated by newlines and enough \n   spaces so they will be "
 & "nicely formatted if rendered \n   in a fixed-width font using any of th"
 & "e procedures in \n   the \"TypeLinesL\" module. *)\n\nPRIVATE PROC t :="
 & " ValueToDepth(val, depth) IS \n  IF \n    val = ";

CONST E57_0 =
   "NIL -> t := \"NIL\" | TEXT(val) -> t := val \n  | REAL(val) -> t := Tex"
 & "t.FromNum(val, prec) \n  | PAIR(val) -> \n      IF \n        IsList(CDR"
 & "(val)) # NIL -> \n          t := ListVal(val, depth) | t := Pair(val) \n"
 & "      FI \n  FI \nEND;\n\nPRIVATE PROC res := IsList(v) IS \n  IF \n   "
 & " v = NIL -> res := 0 \n  | PAIR(v) -> res := IsList(CDR(v)) | res := NI"
 & "L \n  FI \nEND;\n\n/* Return non-NIL iff \"v\" is a list. */\n\nPRIVATE"
 & " PROC t := Pair(pr) IS \n  t := \n    \"(\" & ValueToDepth(CAR(pr), bre"
 & "akDepth) & \", \" & \n    ValueToDepth(CDR(pr), breakDepth) & \")\" \nE"
 & "ND;\n\n/* Return the textual representation of \"pr\", which is \n   kn"
 & "own to be a pair. */\n\nPRIVATE PROC t := ListVal(l, depth) IS \n  t :="
 & " \n    \"[\" & ValueToDepth(CAR(l), depth + 1) & \n    ListBody(CDR(l),"
 & " depth) & \"]\" \nEND;\n\n/* Return a textual representation of \"l\", "
 & "which is \n   known to be a list. */\n\nPRIVATE PROC t := ListBody(l, d"
 & "epth) IS \n  IF \n    l = NIL -> t := \"\" \n  | depth < breakDepth -> "
 & "\n      t := \n        \",\\n \" & Spaces(depth) & \n        ValueToDep"
 & "th(CAR(l), depth + 1) & \n        ListBody(CDR(l), depth) \n  | t := \n"
 & "      \", \" & ValueToDepth(CAR(l), depth) & \n      ListBody(CDR(l), d"
 & "epth) \n  FI \nEND;\n\nPRIVATE CONST SpacesStr = \"          \";\n\nPRI"
 & "VATE VAR spacesStrLen := Text.Length(SpacesStr);\n\nPRIVATE PROC t := S"
 & "paces(n) IS \n  t := \"\"; \n  DO \n    n > spacesStrLen -> \n      t :"
 & "= t & SpacesStr; n := n - spacesStrLen \n  OD; \n  t := t & Text.Sub(Sp"
 & "acesStr, 0, n) \nEND;\n\n/* Set \"t\" to a string of \"n\" spaces. */\n"
 & "\nPRIVATE VAR history := NIL;\n\nPROC Save() IS \n  history := ((prec, "
 & "breakDepth), history) \nEND;\n\nPROC Restore() IS \n  VAR head IN \n   "
 & " head := CAR(history); \n    prec := CAR(head); \n    breakDepth := CDR"
 & "(head) \n  END; \n  history := CDR(history) \nEND;\n\nUI PointTool(Save"
 & ");\n\nUI PointTool(Restore);\n\n(* Save/restore the current state of th"
 & "is module. *)\n\n";

CONST E58 =
   "MODULE PtLabel;\n\n(* Module for annotating points in a \n   drawing fo"
 & "r inclusion in figures. *)\n\nIMPORT R2, PS, Circle;\n\nCONST DefaultDo"
 & "tSize = 2;\n\nPRIVATE VAR dotSize := DefaultDotSize;\n\n(* This module "
 & "maintains a ``current \n   dot size\'\', which is the radius of \n   th"
 & "e dot drawn to label a point. The \n   dot size is measured in points. "
 & "*)\n\nPROC SetDotSize(sz) IS \n  dotSize := sz \nEND;\n\nUI SetTool(Set"
 & "DotSize);\n\n(* Set the current dot size to \"sz\". *)\n\nUI Param(SetD"
 & "otSize, DefaultDotSize);\n\nUI Param(SetDotSize, 0);\n\nUI Param(SetDot"
 & "Size, 0.5);\n\nUI Param(SetDotSize, 1);\n\nUI Param(SetDotSize, 1.5);\n"
 & "\nUI Param(SetDotSize, 2);\n\nUI Param(SetDotSize, 2.5);\n\nUI Param(Se"
 & "tDotSize, 3);\n\nUI Param(SetDotSize, 4);\n\nUI Param(SetDotSize, 5);\n"
 & "\nPROC sz := GetDotSize() IS \n  sz := dotSize \nEND;\n\n(* Set \"sz\" "
 & "to the current dot size. *)\n\nCONST DefaultOffset = 5;\n\n(* This modu"
 & "le maintains a label \n   offset, which is the size in points \n   of a"
 & "ny extra horizontal and \n   vertical space inserted between a \n   poi"
 & "nt and its label. *)\n\nPRIVATE VAR \n  horOffset := DefaultOffset, \n "
 & " verOffset := DefaultOffset;\n\n/* The current label offset. We \n   ma"
 & "intain both a horizontal and \n   vertical offset in case we want to \n"
 & "   generalize the interface to make a \n   distinction between them in "
 & "the \n   future. */\n\nPROC SetOffset(sz) IS \n  horOffset := sz; verOf"
 & "fset := sz \nEND;\n\nUI SetTool(SetOffset);\n\n(* Set the current label"
 & " offset to \n   \"sz\" points. *)\n\nUI Param(SetOffset, DefaultOffset)"
 & ";\n\nUI Param(SetOffset, 0);\n\nUI Param(SetOffset, 2);\n\nUI Param(Set"
 & "Offset, 4);\n\nUI Param(SetOffset, 6);\n\nUI Param(SetOffset, 8);\n\nUI"
 & " Param(SetOffset, 10);\n\nPROC sz := GetOffset() IS \n  sz := horOffset"
 & " \nEND;\n\n(* Set \"sz\" to the current label \n   offset in points. *)"
 & "\n\nPRIVATE PROC DrawDot(p) IS \n  IF \n    dotSize > 0 -> \n      Circ"
 & "le.Draw(p, \n                  R2.Plus(p, \n                          ("
 & "dotSize, 0))); \n      PS.Fill() | SKIP \n  FI \nEND;\n\n/* Draw a roun"
 & "d dot with diameter \n   \"dotSize\" at the point \"p\". This \n  ";

CONST E58_0 =
   " procedure does not preserve the \n   PostScript state. */\n\nPROC None"
 & "(p) IS \n  SAVE PS IN DrawDot(p) END \nEND;\n\n(* Draw a dot at \"p\" i"
 & "n the current \n   dot size. *)\n\nUI PointTool(None);\n\nPROC SW(p, tx"
 & "t) IS \n  SAVE PS IN \n    DrawDot(p); \n    VAR asc, dec, w IN \n     "
 & " asc, dec := PS.FontHeight(); \n      w := PS.StringWidth(txt); \n     "
 & " PS.Type(R2.Minus(p, \n                       (w + horOffset, \n       "
 & "                 asc)), txt) \n    END \n  END \nEND;\n\nPROC NW(p, txt"
 & ") IS \n  SAVE PS IN \n    DrawDot(p); \n    VAR asc, dec, w IN \n      "
 & "asc, dec := PS.FontHeight(); \n      w := PS.StringWidth(txt); \n      "
 & "PS.Type(R2.Plus(p, \n                      (-w - horOffset, \n         "
 & "              dec + verOffset)), \n              txt) \n    END \n  END"
 & " \nEND;\n\nPROC SE(p, txt) IS \n  SAVE PS IN \n    DrawDot(p); \n    VA"
 & "R asc, dec IN \n      asc, dec := PS.FontHeight(); \n      PS.Type(R2.P"
 & "lus(p, \n                      (verOffset, -asc)), \n              txt)"
 & " \n    END \n  END \nEND;\n\nPROC NE(p, txt) IS \n  SAVE PS IN \n    Dr"
 & "awDot(p); \n    VAR asc, dec IN \n      asc, dec := PS.FontHeight(); \n"
 & "      PS.Type(R2.Plus(p, \n                      (horOffset, \n        "
 & "               verOffset + dec)), \n              txt) \n    END \n  EN"
 & "D \nEND;\n\nPROC East(p, txt) IS \n  SAVE PS IN \n    DrawDot(p); \n   "
 & " VAR asc, dec IN \n      asc, dec := PS.FontHeight(); \n      PS.Type(R"
 & "2.Plus(p, \n                      (2 * horOffset, \n                   "
 & "    (dec - asc) / 2)), \n              txt) \n    END \n  END \nEND;\n\n"
 & "PROC West(p, txt) IS \n  SAVE PS IN \n    DrawDot(p); \n    VAR asc, de"
 & "c, w IN \n      w := PS.StringWidth(txt); \n      asc, dec := PS.FontHe"
 & "ight(); \n      PS.Type(R2.Plus(p, \n                      (-w - \n    "
 & "                   2 * horOffset, \n                       (dec - asc) "
 & "/ 2)), \n              txt) \n    END \n  END \nEND;\n\nPROC North(p, t"
 & "xt) IS \n  SAVE PS IN \n    DrawDot(p); \n    VAR asc, dec, w IN \n    "
 & "  w := PS.StringWidth(txt); \n      asc, dec := PS.FontHeight(); \n    "
 & "  PS.Type(R2.Plus(p, \n                  ";

CONST E58_1 =
   "    (-w / 2, \n                       dec + verOffset)), \n            "
 & "  txt) \n    END \n  END \nEND;\n\nPROC South(p, txt) IS \n  SAVE PS IN"
 & " \n    DrawDot(p); \n    VAR asc, dec, w IN \n      w := PS.StringWidth"
 & "(txt); \n      asc, dec := PS.FontHeight(); \n      PS.Type(R2.Plus(p, "
 & "\n                      (-w / 2, \n                       -asc - verOff"
 & "set)), \n              txt) \n    END \n  END \nEND;\n\nUI TextTool(SW)"
 & ";\n\nUI TextTool(NW);\n\nUI TextTool(SE);\n\nUI TextTool(NE);\n\nUI Tex"
 & "tTool(East);\n\nUI TextTool(West);\n\nUI TextTool(North);\n\nUI TextToo"
 & "l(South);\n\n(* Draw a dot at \"p\" with label \"txt\". \n   The dot is"
 & " drawn in the current dot \n   size. In each case, the name of the \n  "
 & " procedure indicates the location of \n   the label relative to the dot"
 & ". Both \n   the dot and the label are drawn in \n   the current color. "
 & "*)\n\nPRIVATE VAR history := NIL;\n\nPROC Save() IS \n  history := \n  "
 & "  ([dotSize, horOffset, verOffset], \n     history) \nEND;\n\nPROC Rest"
 & "ore() IS \n  VAR head IN \n    head := CAR(history); \n    dotSize := C"
 & "AR(head); \n    horOffset := CAR(CDR(head)); \n    verOffset := CAR(CDR"
 & "(CDR(head))) \n  END; \n  history := CDR(history) \nEND;\n\nUI PointToo"
 & "l(Save);\n\nUI PointTool(Restore);\n\n(* Save/restore the current dot s"
 & "ize and offsets. \n*)\n\n";

CONST E59 =
   "(Rim\n  (BgColor \"White\")\n  (Pen 10)\n  (VBox\n    (Pixmap \"Juno2Lo"
 & "go.ppm\")\n    (Glue 5)\n    (Text %version \"\")\n    \"By Allan Heydo"
 & "n and Greg Nelson\"\n    (Glue 5)\n    (Bar 1)\n    (Glue 5)\n    \"htt"
 & "p://www.research.digital.com/SRC/juno-2/\"\n    \"Please send comments "
 & "to gnelson@pa.dec.com\"\n    (Glue 5)\n    (Pixmap \"CompaqLogo.ppm\")\n"
 & "    (Text \"Systems Research Center\")\n  )\n)\n";

CONST E60 =
   "MODULE Circle;\n\n(* Procedures and predicates for \n   circles. *)\n\n"
 & "IMPORT Math, R2, PS;\n\n(* QUARTER CIRCLES *)\n\n(* A quarter circle is"
 & " defined by its \n   center of curvature \"a\", the \n   current point,"
 & " and a direction \n   (clockwise or counter-clockwise). *)\n\nPRIVATE C"
 & "ONST K = 0.5519149706;\n/* This constant is used to position the contro"
 & "l\n   points for drawing a quarter circle. It was\n   provided by Lyle "
 & "Ramshaw. It produces a Bezier\n   curve approximation to a true quarter"
 & " circle that\n   coincides with the circle at the endpoints and at\n   "
 & "two other points. The Bezier curve starts and ends\n   going outside th"
 & "e circle, but the midpoint of the\n   curve is inside the circle. The w"
 & "orst relative error\n   between the curve and the constant is slightly "
 & "less\n   than 2 parts in 10,000. */\n\nPROC DrawQuarter(a) IS \n  VAR b"
 & " IN \n    b := PS.CurrentPoint(); \n    IF \n      VAR \n        c = (1"
 & ", -K) REL (a, b), \n        d = (K, -1) REL (a, b), \n        e = (0, -"
 & "1) REL (a, b) \n      IN \n        PS.CurveTo(c, d, e) \n      END \n  "
 & "  FI \n  END \nEND;\n\nPROC DrawQuarterCC(a) IS \n  VAR b IN \n    b :="
 & " PS.CurrentPoint(); \n    IF \n      VAR \n        c = (1, K) REL (a, b"
 & "), \n        d = (K, 1) REL (a, b), \n        e = (0, 1) REL (a, b) \n "
 & "     IN \n        PS.CurveTo(c, d, e) \n      END \n    FI \n  END \nEN"
 & "D;\n\nUI PointTool(DrawQuarter);\nUI PointTool(DrawQuarterCC);\n\n(* Ad"
 & "d a clockwise or \n   counter-clockwise quarter-circle, \n   respective"
 & "ly, to the current path. \n   In each case, the quarter-circle \n   sta"
 & "rts at the current point and has \n   center \"a\". *)\n\n(* CIRCLES *)"
 & "\n\n(* A circle \"[a, b]\" is defined by its \n   center \"a\" and a po"
 & "int \"b\" on the \n   circle. *)\n\nPROC Draw(a, b) IS \n  IF \n    VAR"
 & " \n      c ~ (0, -1) REL (a, b), \n      d ~ (-1, 0) REL (a, b), \n    "
 & "  e ~ (0, 1) REL (a, b) \n    IN \n      PS.MoveTo(b); \n      DrawQuar"
 & "ter(a); \n      DrawQuarter(a); \n      DrawQuarter(a); \n      DrawQua"
 & "rter(a); \n      PS.Close() \n    END \n  FI \nEND;\n\nPROC DrawCC(a, b"
 & ") IS \n  IF \n    VAR \n      c ~ (0, 1) RE";

CONST E60_0 =
   "L (a, b), \n      d ~ (-1, 0) REL (a, b), \n      e ~ (0, -1) REL (a, b"
 & ") \n    IN \n      PS.MoveTo(b); \n      DrawQuarterCC(a); \n      Draw"
 & "QuarterCC(a); \n      DrawQuarterCC(a); \n      DrawQuarterCC(a); \n   "
 & "   PS.Close() \n    END \n  FI \nEND;\n\nUI PointTool(Draw);\nUI PointT"
 & "ool(DrawCC);\n\n(* Add a clockwise or\n   counter-clockwise circle \"[a"
 & ", b]\", \n   respectively, to the current path. \n   The current point "
 & "becomes \"b\". *)\n\nPROC DrawR(c, rad) IS\n  Draw(c, R2.PlusX(c, rad))"
 & "\nEND;\n\nPROC DrawCCR(c, rad) IS\n  DrawCC(c, R2.PlusX(c, rad))\nEND;\n"
 & "\n(* Add a clockwise or counter-clockwise circle,\n   respectively, wit"
 & "h center point \"c\" and a\n   radius of \"r\" points to the current pa"
 & "th. *)\n\nPRED On(p, a, b) IS \n  (a, p) CONG (a, b) \nEND;\n\nUI Point"
 & "Tool(On);\n\n(* The point \"p\" is on the circle \"[a, \n   b]\". *)\n\n"
 & "PRIVATE FUNC r2 = Dist2(a, b) IS \n  (E ax, ay, bx, by, dx, dy :: \n   "
 & " a = (ax, ay) AND \n    b = (bx, by) AND \n    dx = ax - bx AND \n    d"
 & "y = ay - by AND \n    r2 = dx * dx + dy * dy) \nEND;\n\n/* \"r2\" is th"
 & "e square of the distance \n   between the points \"a\" and \"b\". */\n\n"
 & "FUNC res = Area(a, b) IS \n  res = Math.Pi * Dist2(a, b) \nEND;\n\n(* \""
 & "res\" is the area of the circle \n   \"[a, b]\". *)\n\n";

CONST E61 =
   "MODULE TextList;\n\n(* Procedures for managing lists of \n   texts. *)\n"
 & "\nIMPORT PS, Text, LineSkip;\n\nPRIVATE CONST BigInt = 1e6;\n\nPRIVATE "
 & "VAR \n  LineBreakChar := Text.GetChar(\"\\n\", 0);\n\nPROC l := FromTex"
 & "t(t) IS \n  VAR i IN \n    i := Text.FindChar(t, LineBreakChar); \n    "
 & "IF \n      i = -1 -> l := [t] \n    | l := \n        (Text.Sub(t, 0, i)"
 & ", \n         FromText(Text.Sub(t, \n                           i + 1, \n"
 & "                           BigInt))) \n    FI \n  END \nEND;\n\n(* Sets"
 & " \"l\" to the list of \n   \'\\n\'-separated texts in \"t\". For \n   e"
 & "xample: \n\n|  FromText(\"abc\") => [\"abc\"]\n|  FromText(\"abc\\ndef\""
 & ") => [\"abc\", \"def\"]\n|  FromText(\"a\\n\\nd\\n\") => [\"a\", \"\", "
 & "\"d\", \"\"]\n\n   A checked run-time error occurs \n   if \"t\" is not"
 & " a text. *)\n\nPROC w, h := Size(l) IS \n  VAR len IN \n    len := 0; \n"
 & "    w := 0; \n    DO \n      l # NIL -> \n        w := \n          MAX("
 & "w, \n          PS.StringWidth(CAR(l))); \n        len := len + 1; \n   "
 & "     l := CDR(l) \n    OD; \n    VAR asc, dec IN \n      asc, dec := PS"
 & ".FontHeight(); \n      h := \n        len * (asc + dec) + \n        (le"
 & "n - 1) * LineSkip.Get() \n    END \n  END \nEND;\n\n(* Set \"w\" and \""
 & "h\" to the width and \n   height, respectively, of the \n   bounding bo"
 & "x of the text lines \n   \"l\" printed as by the \n   \"TypeLinesL\" pr"
 & "ocedures in the \n   current font with the current \n   line skip (as m"
 & "aintained by the \n   \"LineSkip\" module. *)\n\nPROC w, h := SizeNoSki"
 & "p(l) IS \n  SAVE LineSkip IN \n    LineSkip.Set(0); w, h := Size(l) \n "
 & " END \nEND;\n\n(* Line \"Size\" above, but uses a \n   line skip value "
 & "of 0. *)\n\n";

CONST E62 =
   "MODULE Outline;\n\nIMPORT Offset, Text, PS, R2, Circle, Show, TextList,"
 & " Type;\n\nIMPORT TypeLinesC, TypeLinesL, TypeLinesR;\n\nPRIVATE VAR nor"
 & "th, south, east, west;\n\n(* This module maintains a \"current bounding"
 & " box\", which other \n   procedures in the module use to locate the par"
 & "ts of the \n   outline. The bounding box is set by the \"Start\" proced"
 & "ure \n   below. *)\n\n/* These four numerc variables determine the curr"
 & "ent bounding box \n   for the outline. */\n\nCONST TopMDefault = 30, Le"
 & "ftMDefault = 20;\n\nPRIVATE VAR TopM := TopMDefault, LeftM := LeftMDefa"
 & "ult;\n\n(* This module maintains a top and left margin, which specify h"
 & "ow \n   much below and to the right of the northwest corner of the \n  "
 & " bounding box the current point should be positioned at the \n   start "
 & "of each outline. *)\n\nPROC SetTopM(val) IS TopM := val END;\n\nPROC Se"
 & "tLeftM(val) IS LeftM := val END;\n\nUI SetTool(SetTopM);\n\nUI SetTool("
 & "SetLeftM);\n\n(* Set the current top/left margin to \"val\". *)\n\nUI P"
 & "aram(SetTopM, TopMDefault);\n\nUI Param(SetTopM, 0);\n\nUI Param(SetTop"
 & "M, 15);\n\nUI Param(SetTopM, 30);\n\nUI Param(SetTopM, 45);\n\nUI Param"
 & "(SetLeftM, LeftMDefault);\n\nUI Param(SetLeftM, 0);\n\nUI Param(SetLeft"
 & "M, 10);\n\nUI Param(SetLeftM, 20);\n\nUI Param(SetLeftM, 30);\n\nPRIVAT"
 & "E CONST LeftMargin = 15;\n\nPROC Start(corner1, corner2) IS \n  IF \n  "
 & "  VAR x1, y1, x2, y2 IN \n      corner1 = (x1, y1) AND corner2 = (x2, y"
 & "2) -> \n        north := MAX(y1, y2); \n        south := MIN(y1, y2); \n"
 & "        east := MAX(x1, x2); \n        west := MIN(x1, x2); \n        P"
 & "S.MoveTo((west + LeftM, north - TopM)) \n    END \n  FI \nEND;\n\nUI Po"
 & "intTool(Start);\n\n(* Set the current bounding box so \"corner1\" and \""
 & "corner2\" are its \n   opposite corners and set the current point accor"
 & "ding to the \n   current top and left margin values. This procedure mus"
 & "t be \n   called before any calls to the other procedures in this modul"
 & "e. \n*)\n\nPROC Center(txt) IS \n  VAR w, h, pt IN \n    w, h := TextLi"
 & "st.Size(TextList.FromText(txt)); \n    pt := PS.CurrentPoint(); \n    T"
 & "ypeLinesC.North(((west + east) ";

CONST E62_0 =
   "/ 2, CDR(pt)), txt); \n    PS.MoveTo(R2.Plus(pt, (0, -h))) \n  END \nEN"
 & "D;\n\nUI TextTool(Center);\n\n(* Center \"txt\" horzontally in the curr"
 & "ent bounding box so its \n   north edge is horizontal with the current "
 & "point, and advance \n   the current point down by the height of the tex"
 & "t. The text is \n   rendered in the current font face and size. If \"tx"
 & "t\" contains \n   \"\\n\" characters, the lines are typeset as a block."
 & " *)\n\nPROC SkipTo(p) IS \n  VAR curr IN \n    curr := PS.CurrentPoint("
 & "); PS.MoveTo((CAR(curr), CDR(p))) \n  END \nEND;\n\nUI PointTool(SkipTo"
 & ");\n\n(* Set the current point to the point horizontal with \"p\" and \n"
 & "   vertical with the current point. *)\n\nVAR InterpointSkip := (1.1, 0"
 & ");\n\nVAR IntersubpointSkip := (0.3, 0);\n\n(* If the InterpointSkip is"
 & " \"(k, d)\", then the gap before each new \n   outermost item will be k"
 & "*fs+d, where fs is the font point size. \n   The IntersubpointSkip is i"
 & "nterpreted similarly, but applies \n   after subpoints (of any level). "
 & "*)\n\nPRIVATE CONST TabChar = Text.GetChar(\"\\t\", 0);\n\n/* TabChar ="
 & " \'\\t\'. It is the character that users type to indent \n   subitems o"
 & "f the outline. */\n\nPRIVATE CONST TabRatio = 1;\n\n/* TabRatio is the "
 & "ratio between the pointsize of the font and the \n   amount by which su"
 & "bpoints are indented. */\n\nPRIVATE PROC (i, dx, dy):ProcessIndent(txt)"
 & " IS \n  VAR lineskip = InterpointSkip IN \n    DO \n      i < Text.Leng"
 & "th(txt) AND Text.GetChar(txt, i) = TabChar -> \n        dx := dx + PS.G"
 & "etFontPtSize() * TabRatio; \n        i := i + 1; \n        lineskip := "
 & "IntersubpointSkip \n    OD; \n    dy := dy - (PS.GetFontPtSize() * CAR("
 & "lineskip) + CDR(lineskip)) \n  END \nEND;\n\nPRIVATE CONST BulletChar ="
 & " Text.GetChar(\"*\", 0);\n\n/* \"BulletChar\" is the character typed to"
 & " get a bullet on a point. \n   If the next character is \'o\', the resu"
 & "lt will be a black \n   circle. If the next character is \'-\', the res"
 & "ult will be an em \n   dash. Otherwise the next character will be the b"
 & "ullet. */\n\nPRIVATE PROC i:ProcessBullet(txt, dx, dy) IS \n  IF \n    "
 & "i + 1 < Text.Length(txt) AND ";

CONST E62_1 =
   "Text.GetChar(txt, i) = BulletChar -> \n      DrawBullet(Text.GetChar(tx"
 & "t, i + 1), dx, dy); i := i + 2 \n  | SKIP \n  FI \nEND;\n\nPRIVATE CONS"
 & "T DotChar = 183, DashChar = Text.GetChar(\"_\", 0);\n\nPRIVATE PROC Dra"
 & "wBullet(ch, dx, dy) IS \n  VAR bullet, yfudge, p, w IN \n    IF \n     "
 & " ch = Text.GetChar(\"o\", 0) -> bullet := DotChar; yfudge := 0 \n    | "
 & "ch = Text.GetChar(\"-\", 0) -> \n        bullet := DashChar; yfudge := "
 & "0.45 * PS.GetFontPtSize() \n    | bullet := ch; yfudge := 0 \n    FI; \n"
 & "    p := PS.CurrentPoint(); \n    w := PS.StringWidth(\" \"); \n    p :"
 & "= R2.Plus(p, (dx - w, dy + yfudge)); \n    DrawDot(p, bullet) \n  END \n"
 & "END;\n\nPRIVATE PROC DrawDot(p, ch) IS \n  IF \n    ch = DotChar -> \n "
 & "     VAR asc, dec, w IN \n        asc, dec := PS.FontHeight(); \n      "
 & "  w := PS.StringWidth(\"i\"); \n        FilledCirc(R2.Minus(p, (w / 2, "
 & "0.65 * asc)), asc / 8) \n      END | TypeLinesR.NE(p, Text.FromChar(ch)"
 & ") \n  FI \nEND;\n\nPRIVATE PROC FilledCirc(p, rad) IS \n  SAVE PS IN Ci"
 & "rcle.Draw(p, R2.Plus(p, (rad, 0))); PS.Fill() END \nEND;\n\nPRIVATE PRO"
 & "C (i, dx, dy):ProcessBody(txt) IS \n  VAR suffix IN \n    suffix := Tex"
 & "t.Sub(txt, i, 9999); \n    TypeLinesL.NW(R2.Plus(PS.CurrentPoint(), (dx"
 & ", dy)), suffix); \n    VAR width, height IN \n      width, height := Te"
 & "xtList.Size(TextList.FromText(suffix)); \n      dy := dy - height \n   "
 & " END \n  END \nEND;\n\nPROC Item(txt) IS \n  SAVE Offset IN \n    Offse"
 & "t.SetHorVer(0, 0); \n    VAR i = 0, dx = 0, dy = 0 IN \n      (i, dx, d"
 & "y):ProcessIndent(txt); \n      (i):ProcessBullet(txt, dx, dy); \n      "
 & "(i, dx, dy):ProcessBody(txt); \n      PS.MoveTo(R2.Plus(PS.CurrentPoint"
 & "(), (0, dy)))\n    END \n  END \nEND;\n\nUI TextTool(Item);\n\n(* Displ"
 & "ay \"txt\" as an item or sub-item. If \"txt\" begins with a \n   tab (\""
 & "\\t\") character, then the remaining characters are \n   displayed as a"
 & " sub-item. Otherwise, all of \"txt\" is displayed \n   as an item. \n\n"
 & "   If \"txt\" is displayed as an item, the current point is first \n   "
 & "moved down according to the current value of \"InterpointSkip\". \n   T"
 & "he item is then processed as de";

CONST E62_2 =
   "scribed below. \n\n   If \"txt\" is displayed as a sub-item, then the c"
 & "urrent point is \n   first moved down according to the current value of"
 & " \n   \"IntersubpointSkip\". The sub-item is then processed as \n   des"
 & "cribed below, but indented by a fixed amount. \n\n   If the leading cha"
 & "racter of an item or sub-item is an asterisk \n   (\"*\"), then the ite"
 & "m or sub-item will be bulleted. The next \n   character determines the "
 & "kind of bullet: if it is a small oh \n   (\"o\"), the bullet is a fille"
 & "d round dot; if it is a dash (\"-\"), \n   the bullet is a dash; if it "
 & "is any other character, that \n   character serves as the bullet. The b"
 & "ullet is outdented to the \n   left, so that the left edges of bulleted"
 & " and unbulleted items \n   will be aligned. \n\n   Within an item, newl"
 & "ine (\"\\n\") characters cause line breaks. \n   Each new line is left-"
 & "justified with the text of the first line \n   of the item. *)\n\nPRIVA"
 & "TE PROC (i, dx, dy):ProcessBodyCL(txt, cl) IS \n  VAR suffix IN \n    s"
 & "uffix := Text.Sub(txt, i, 9999); \n    SAVE PS IN\n      VAR asc, dec I"
 & "N\n        asc, dec := PS.FontHeight();\n        PS.MoveTo(R2.Plus(PS.C"
 & "urrentPoint(), (dx, dy-asc)))\n      END; \n      Show.L(suffix); \n   "
 & "   APPLY(cl) \n    END; \n    VAR width, height IN \n      width, heigh"
 & "t := TextList.Size(TextList.FromText(suffix)); \n      dy := dy - heigh"
 & "t \n    END \n  END \nEND;\n\nPROC ItemCL(txt, cl) IS \n  SAVE Offset I"
 & "N \n    Offset.SetHorVer(0, 0); \n    VAR i = 0, dx = 0, dy = 0 IN \n  "
 & "    (i, dx, dy):ProcessIndent(txt); \n      (i):ProcessBullet(txt, dx, "
 & "dy); \n      (i, dx, dy):ProcessBodyCL(txt, cl); \n      PS.MoveTo(R2.P"
 & "lus(PS.CurrentPoint(), (0, dy)))\n    END \n  END \nEND;\n\n(* Like \"I"
 & "tem\" above, but newlines are not recognized in \"txt\", \n   and after"
 & " \"txt\" is rendered, \"cl\" is applied with the current \n   point set"
 & " just after the rendered \"txt\". *)\n\n";

CONST E63 =
   "P6\n# CREATOR: XV Version 3.10  Rev: 12/16/94\n275 86\n255\n\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000";

CONST E63_0 =
   "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377";

CONST E63_1 =
   "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377";

CONST E63_2 =
   "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000";

CONST E63_3 =
   "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377";

CONST E63_4 =
   "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377";

CONST E63_5 =
   "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U";

CONST E63_6 =
   "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377";

CONST E63_7 =
   "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377U"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377";

CONST E63_8 =
   "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\000\000\377"
 & "\000\000\377\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\000\000\377\000\000\377\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377\000\377\377\000\377\377U\377\377U\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\000\000\377\000\000\377\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\000\000\377\000\000\377\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377U"
 & "\377\377\000\377\377U\377\377U\377\377U\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377U"
 & "\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377";

CONST E63_9 =
   "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\000\000\377\377\000\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\000\000\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\377\000\000"
 & "\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377\000\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\000\000\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\000\000\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\000\000\377\000\000"
 & "\377\000\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\377"
 & "\000\000\377\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\000\000\377\000\000\377\000\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377U\377\377\000\377\377\000\377\377U\377\377U"
 & "\377\377\000\377\377\000\377\377U\000\000\377\000\000\377\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377\000\377\377\000\377\377U\377\000\000\377\000\000"
 & "\377\000\000\377\377U\377\377U\377\377\000\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\000\000\377\000\000\377\000\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377\000\377\377\000\377\377U\377\377U"
 & "\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377"
 & "U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377U"
 & "\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\000\000\377\000\000"
 & "\377\000\000\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\000\000\377\000\000\377\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377U\377\377\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\000\377\377U\377\377U\377\377U\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\000\000\377\000\000\377\377\377U\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000\377\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377U\377\377U\377\377U\377\377\000\377\000\000\377\000\000"
 & "\377\000\000\377\377";

CONST E63_10 =
   "\000\377\377U\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377U\377\377\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\000\377\377U\377\377U\377\377U\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\000\000\377\000\000\377\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\000\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\000\000\377\000\000\377\377\377U\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\000\377\377U\377\377\000\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377\000\377\377U\377\377\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\000\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\000\000\377\000\000\377\377\377\000\377\377U\377\377U"
 & "\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\000\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\000\000\377\000\000\377\377\377U\377\377U\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\377\000"
 & "\000\377\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377U\377\377U\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\000\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377"
 & "\377\000\377\377U\377\377U\377";

CONST E63_11 =
   "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000"
 & "\377\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377U\377\377\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\000\000\377\000\000\377\377\377\000"
 & "\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\000\000\377\000\000\377\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\000\377\377U\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377U"
 & "\377\377\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377\377\377U\377"
 & "\377\000\377\377U\377\377\000\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377\000"
 & "\377\377U\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377U\377\377\000\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377\000\377\377U\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\000\000\377\000\000\377\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377U\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\000\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U";

CONST E63_12 =
   "\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\000\000"
 & "\377\000\000\377\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377\000\377\377\000\377\377U\000\000\377\000\000\377\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377U\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377\000\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\000\000\377\000\000\377\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\000\000\377\000\000\377\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377U\377\377\000\000\000\377\000\000\377\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\000\000\377\000\000\377\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\000\000\377\000\000\377\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\000\000"
 & "\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377";

CONST E63_13 =
   "U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377U\377\377\000\377\377\000\377\377U\377\377U"
 & "\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377"
 & "U\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\000\000\377\000\000\377\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377\377\000\000\000\377\000\000"
 & "\377\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\000\000\377\000\000\377\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "U\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377U\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377U\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000"
 & "\377\000\000\377\000\000\377\000";

CONST E63_14 =
   "\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377U\377\377\000\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377\000\377\377U\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\000\000\377\000\000\377\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\000\377\377\000\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\000\000\377\000\000\377\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\000\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\000\377\377\000\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000\377\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377U\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377U\377\377U\377\377U\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\000\000\377\000\000\377\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377U\377\377U\377\377U\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377U\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000\377\000\000"
 & "\377\000\000\377";

CONST E63_15 =
   "\000\000\377\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377U\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377U\377\377U\377\377U\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377\000\377\377U"
 & "\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\377\000\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\000\000\377\000\000\377\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377\000\377\377U\377\377\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\000\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377\000\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\000\000\377"
 & "\000\000\377\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\000\000\377\000\000\377\000\000\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\000\000"
 & "\377\000\000\377\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377U\377\377U\377\377\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\000\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\000\000\377\000\000\377\000\000\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\377"
 & "\000\000\377\000\000\377\000\000";

CONST E63_16 =
   "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\000\000\377\000\000\377\000\000\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000\377\000\000"
 & "\377\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\000\000\377\000\000\377\000\000\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\000\000\377\000\000\377\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\000\000\377\000\000\377\000\000\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\000\000\377\000\000\377\000\000\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377\000\377\377U"
 & "\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\000\000\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\000\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000"
 & "\377\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\000\000\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\000\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\000\000\377\000\000\377\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377";

CONST E63_17 =
   "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377\000\377\377U"
 & "\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\000\000\000";

CONST E63_18 =
   "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377";

CONST E63_19 =
   "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377";

CONST E63_20 =
   "\377U\377\377U\377\377\000\377\377U\377\377U\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\000\000\000\000\000\000\000\000\000\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\000\000\000\000"
 & "\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\000"
 & "\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\000\000\377\000\000\377"
 & "\000\000\377\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U";

CONST E63_21 =
   "\377\377U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\000\000\377\000\000\377\000\000\377\377\377U"
 & "\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000\000"
 & "\377\000\000\377\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\000\000\377\000\000\377\000\000\377\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377";

CONST E63_22 =
   "U\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\000\000\377\000\000\377\000\000\377\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377U"
 & "\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\000"
 & "\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\377\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\377U\377\377\000\377\377\000\377";

CONST E63_23 =
   "\377U\377\377U\377\377\000\377\377\000\377\377U\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377\000\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377"
 & "U\377\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377U\377\377\000\377\377\000\377\377U\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U"
 & "\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000";

CONST E63_24 =
   "\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\377\377U\377\377\000\377\377U\377\377\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\377\377U\377\377\000\377\377\000\377\377U\377\377U"
 & "\377\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377"
 & "\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\377\377\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377\000\377\377U\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377";

CONST E63_25 =
   "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377U\377\377\000\377\377\000\377\377U\377\377U"
 & "\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000"
 & "\000\377\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377";

CONST E63_26 =
   "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\000\000\377\000\000\377"
 & "\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\000\000\000\000\000\000\000\000\000\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\000\000\377\000\000\377\000"
 & "\000\377\000\000\377\000\000\377\000\000\377\000\000\377\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\000\000\000"
 & "\000\000\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\000\000\000\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\000\000\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\000\000\000\000\000\000\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\000\000\000\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000"
 & "\000\000\000\000\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U";

CONST E63_27 =
   "\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000"
 & "\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000\377\000\000"
 & "\377\000\000\377\000\000\377\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377";

CONST E63_28 =
   "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\377\377\000\377\377U\377\377U\377\377U"
 & "\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377";

CONST E63_29 =
   "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000";

CONST E63_30 =
   "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377";

CONST E63_31 =
   "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377";

CONST E63_32 =
   "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377"
 & "U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377"
 & "\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377"
 & "U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377"
 & "\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377\377"
 & "U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000\377"
 & "\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377\000"
 & "\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377\377"
 & "\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\377\377U\377"
 & "\377\000\377\377U\377\377U\377\377U\377\377\000\377\377U\377\377U\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377"
 & "U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377"
 & "\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377"
 & "\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377"
 & "\377\000\377\377U\377\377\000\377\377U\377\377\000\377\377U\377\377\000"
 & "\377\377U\377\377\000\377\377U\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000";

CONST E63_33 =
   "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377"
 & "\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377"
 & "\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377"
 & "\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000"
 & "\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000"
 & "\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377"
 & "U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377"
 & "\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377\377\000\377"
 & "\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U\377\377U\377"
 & "\377\000\377\377\000\377\377U\377\377U\377\377\000\377\377\000\377\377U"
 & "\377\377U\377\377\000\377\377\000\377\377U\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000";

CONST E63_34 =
   "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000"
 & "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000";

CONST E64 =
   "MODULE Anim;\n\n(* A module for drawing animations. *)\n\nIMPORT Time, "
 & "PS;\n\n(* PERMANENT OBJECTS *)\n\nPRIVATE VAR permList := NIL;\n\n(* Th"
 & "is module maintains a list of permanent \n   objects, each represented "
 & "by a \n   zero-argument closure. The list is \n   initially empty. *)\n"
 & "\nPROC ClearPerm() IS permList := NIL END;\n\n(* Make the list of perma"
 & "nent objects empty. \n*)\n\nPROC AddPerm(cl) IS \n  permList := (cl, pe"
 & "rmList) \nEND;\n\n(* Add the zero-argument closure \"cl\" to the \n   l"
 & "ist of permanent objects. *)\n\nPRIVATE PROC DrawPerm2(l) IS \n  IF \n "
 & "   l # NIL -> \n      DrawPerm2(CDR(l)); APPLY(CAR(l)) | SKIP \n  FI \n"
 & "END;\n\nPROC DrawPerm() IS DrawPerm2(permList) END;\n\n(* Draw the perm"
 & "anent objects by invoking \n   their closures in the order they were \n"
 & "   added. *)\n\n(* ANIMATION OBJECTS *)\n\n(* An {\\it animation} is a "
 & "pair \"(cl, dur)\", \n   where \"cl\" is a closure for drawing each \n "
 & "  frame of an animation, and \"dur\" is the \n   animation\'s duration."
 & " The \"Play\" procedure \n   below applies \"cl\" with a single time \n"
 & "   argument in the interval \"[0,dur]\". *)\n\nPRIVATE PROC SeqFrame(a1"
 & ", a2, t) IS \n  IF \n    t <= CDR(a1) -> APPLY(CAR(a1), t) \n  | APPLY("
 & "CAR(a2), t - CDR(a1)) \n  FI \nEND;\n\nPROC an := Seq(a1, a2) IS \n  an"
 & " := \n    (CLOSE(SeqFrame, a1, a2), \n     CDR(a1) + CDR(a2)) \nEND;\n\n"
 & "(* \"an\" is the animation that runs \"a1\" \n   followed by \"a2\"; it"
 & "s duration is the sum \n   of the durations of \"a1\" and \"a2\". *)\n\n"
 & "PRIVATE PROC CoFrame(a1, a2, t) IS \n  IF \n    t <= CDR(a1) -> APPLY(C"
 & "AR(a1), t) | SKIP \n  FI; \n  IF \n    t <= CDR(a2) -> APPLY(CAR(a2), t"
 & ") | SKIP \n  FI \nEND;\n\nPROC an := Co(a1, a2) IS \n  an := \n    (CLO"
 & "SE(CoFrame, a1, a2), \n     MAX(CDR(a1), CDR(a2))) \nEND;\n\n(* \"an\" "
 & "is the animation that runs \"a1\" and \n   \"a2\" in parallel; its dura"
 & "tion is the \n   maximum of the durations of \"a1\" and \"a2\". \n   Ea"
 & "ch animation is run for its natural \n   duration, so if one animation\'"
 & "s duration \n   is shorter than the other, it will finish \n   sooner. "
 & "No frames are displayed for the \n   shorter animation once it ";

CONST E64_0 =
   "completes. *)\n\nPRIVATE PROC ScaleFrame(an, dur, t) IS \n  APPLY(CAR(a"
 & "n), CDR(an) * (t / dur)) \nEND;\n\nPROC an := Scale(a, dur) IS \n  an :"
 & "= (CLOSE(ScaleFrame, a, dur), dur) \nEND;\n\n(* \"an\" is the animation"
 & " \"a\" scaled in time \n   to take a total of \"dur\" seconds, \n   reg"
 & "ardless of \"a\"\'s duration. *)\n\nPRIVATE PROC ExtendFrame(an, t) IS "
 & "\n  APPLY(CAR(an), MIN(t, CDR(an))) \nEND;\n\nPROC an := Extend(a, dur)"
 & " IS \n  an := (CLOSE(ExtendFrame, a), dur) \nEND;\n\n(* \"an\" is the a"
 & "nimation \"a\" with a total \n   duration of \"dur\". If \"dur\" is les"
 & "s than \n   \"Dur(a)\", then \"a\"\'s animation is \n   truncated. If \""
 & "dur\" is greater than \n   \"Dur(a)\" then \"a\" is extended by playing"
 & " \n   its last frame an extra \"dur - Dur(a)\" \n   seconds. *)\n\nPRIV"
 & "ATE PROC RepeatFrame(an, dur, t) IS \n  VAR t0 IN \n    t0 := t MOD CDR"
 & "(an); \n    IF \n      t0 = 0 AND t # 0 -> t0 := CDR(an) | SKIP \n    F"
 & "I; \n    APPLY(CAR(an), t0) \n  END \nEND;\n\nPROC an := Repeat(a, n) I"
 & "S \n  IF \n    VAR dur = n * CDR(a) IN \n      an := (CLOSE(RepeatFrame"
 & ", a, dur), dur) \n    END \n  FI \nEND;\n\n(* \"an\" is the animation \""
 & "a\" repeated \"n\" \n   times; its duration is \"n * Dur(a)\". *)\n\nPR"
 & "IVATE PROC ReverseFrame(an, t) IS \n  APPLY(CAR(an), CDR(an) - t) \nEND"
 & ";\n\nPROC an := Reverse(a) IS \n  an := (CLOSE(ReverseFrame, a), CDR(a)"
 & ") \nEND;\n\n(* \"an\" is the animation \"a\" in reverse; its \n   durat"
 & "ion is the same as \"a\"\'s duration. *)\n\nPRIVATE PROC WarpTimeFrame("
 & "an, warp, t) IS \n  APPLY(CAR(an), APPLY(warp, t)) \nEND;\n\nPROC an :="
 & " WarpTime(a, warp) IS \n  an := \n    (CLOSE(WarpTimeFrame, a, warp), C"
 & "DR(a)) \nEND;\n\n(* \"an\" is the animation whose duration is \n   \"Du"
 & "r(a)\" and whose frame at time \"t\" is \n   produced by running \"APPL"
 & "Y(CAR(a), \n   APPLY(warp, t))\". *)\n\nPRIVATE PROC NormalizeFrame(an,"
 & " t) IS \n  APPLY(CAR(an), t / CDR(an)) \nEND;\n\nPROC an := Normalize(a"
 & ") IS \n  an := (CLOSE(NormalizeFrame, a), CDR(a)) \nEND;\n\n(* \"an\" i"
 & "s the animation with duration \n   \"Dur(a)\" whose frame for time \"t\""
 & " is \n   produced by running \"APPLY(CAR(a), \n   t/Dur(a))\". Hence, \""
 & "a\"\'s closure wi";

CONST E64_1 =
   "ll be \n   invoked with values of \"t\" in the interval \n   [0, 1]. *)"
 & "\n\nPRIVATE PROC SkipFrame(t) IS SKIP END;\n\nPROC an := Skip(dur) IS \n"
 & "  an := (SkipFrame, dur) \nEND;\n\n(* \"an\" is the animation that does"
 & " nothing \n   for \"dur\" seconds. *)\n\n(* DRAWING ANIMATIONS *)\n\nCO"
 & "NST DefaultTFactor = 1;\n\n(* This module maintains a current time \n  "
 & " factor, which is the ratio between \n   animation time and real time u"
 & "sed by the \n   procedure \"Play\" below. Time factors less \n   than 1"
 & ".0 cause the animation to run faster \n   than real time. *)\n\nPRIVATE"
 & " VAR tFactor := DefaultTFactor;\n\nPROC SetTFactor(k) IS tFactor := k E"
 & "ND;\n\nUI SetTool(SetTFactor);\n\n(* Set the current time factor to \"k"
 & "\". *)\n\nUI Param(SetTFactor, DefaultTFactor);\n\nUI Param(SetTFactor,"
 & " 0.25);\n\nUI Param(SetTFactor, 0.5);\n\nUI Param(SetTFactor, 1);\n\nUI"
 & " Param(SetTFactor, 2);\n\nUI Param(SetTFactor, 5);\n\nPROC Play(an) IS "
 & "\n  IF \n    VAR t = 0, cl, dur, start, k IN \n      start := Time.Now("
 & "); \n      cl := CAR(an); \n      dur := CDR(an); \n      k := 1 / MAX("
 & "tFactor, 0.0001); \n      DrawPerm(); \n      DO \n        t < dur -> \n"
 & "          APPLY(cl, t); \n          t := k * (Time.Now() - start); \n  "
 & "        PS.ShowPage(); \n          PS.RestorePage(); \n          DrawPe"
 & "rm() \n      OD; \n      APPLY(cl, dur) \n    END \n  FI \nEND;\n\n(* D"
 & "raw the animation \"an\", i.e., invoke the \n   animation\'s closure wi"
 & "th values of \"t\" \n   starting at 0 and ending at the \n   animation\'"
 & "s duration. Before each frame, \n   \"DrawPerm\" is called to draw the "
 & "permanent \n   objects. Between frames, \"PS.ShowPage\" and \n   \"PS.R"
 & "estorePage\" are called to start a new \n   frame. The animation\'s dur"
 & "ation is scaled \n   against real time according to the current \n   ti"
 & "me factor. *)\n\n(* MISC *)\n\nPRIVATE VAR history := NIL;\n\nPROC Save"
 & "() IS \n  history := ((permList, tFactor), history) \nEND;\n\nPROC Rest"
 & "ore() IS \n  VAR new IN \n    new := CAR(history); \n    permList := CA"
 & "R(new); \n    tFactor := CDR(new) \n  END; \n  history := CDR(history) "
 & "\nEND;\n\nUI PointTool(Save);\n\nUI PointTool(Restore);\n";

CONST E64_2 =
   "\n(* Save/Restore the animation state, namely, \n   the list of permane"
 & "nt objects. *)\n\n";

CONST E65 =
   "MODULE Rect;\n\n(* Procedures and predicates for rectangles. *)\n\nIMPO"
 & "RT R2, Geometry, PS, Ellipse;\n\n(* \\section{Opposite Corner Represent"
 & "ation} *)\n\n(* The follow procedures represent a rectangle \n   orient"
 & "ed squarely with the page by two of its \n   opposite corners, \"a\" an"
 & "d \"b\". *)\n\nPROC Draw(a, b) IS \n  IF \n    VAR ax, ay, bx, by IN \n"
 & "      a = (ax, ay) AND b = (bx, by) -> \n        PS.MoveTo(a); \n      "
 & "  PS.LineTo((ax, by)); \n        PS.LineTo(b); \n        PS.LineTo((bx,"
 & " ay)); \n        PS.Close() \n    END \n  FI \nEND;\n\nUI PointTool(Dra"
 & "w);\n\n(* Append a closed rectangular path with opposite \n   corners \""
 & "a\" and \"b\" oriented squarely with the \n   page to the current path."
 & " *)\n\nPRED On(p, a, b) IS \n  (E px, py, ax, ay, bx, by :: \n    p = ("
 & "px, py) AND \n    a = (ax, ay) AND \n    b = (bx, by) AND \n    0 = \n "
 & "     (px - ax) * (px - bx) * (py - ay) * \n      (py - by)) \nEND;\n\nU"
 & "I PointTool(On);\n\n(* The point \"p\" is on the rectangle with \n   op"
 & "posite corners \"a\" and \"b\". \n\n   This constraint is actually true"
 & " if \"p\" is on \n   any of the lines obtained by extending the \n   si"
 & "des of the rectangle infinitely. However, if \n   the hint for \"p\" is"
 & " inside the circle \n   circumscribing the rectangle and is not too \n "
 & "  close to the center of the rectangle, the \n   solver will converge o"
 & "n a solution for \"p\" \n   that is actually on the rectangle. You can "
 & "use \n   the \"OnHint\" function to compute a hint for \n   \"p\" that "
 & "will converge on the actual rectangle \n   in most cases. *)\n\nPRIVATE"
 & " FUNC ecc = Ecc(wh) IS \n  (E w, h :: wh = (w, h) AND ecc = h / w) \nEN"
 & "D;\n\nPRIVATE FUNC p = OnCHint0(c, b, d) IS \n  (E wh = R2.Minus(b, c),"
 & " maj :: \n    maj = R2.Plus(c, (CAR(wh), 0)) AND \n    p ~ (0.5, 0) REL"
 & " (d, c) AND \n    Geometry.Colinear(d, p, c) AND \n    Ellipse.OnEcc(p,"
 & " c, maj, Ecc(wh))) \nEND;\n\n/* See the comment for \"OnCHint\" below. "
 & "This \n   procedure is here because it must preceed \n   \"OnHint\". */"
 & "\n\nFUNC p = OnHint(a, b, d) IS \n  (E c = Geometry.Mid(a, b) :: \n    "
 & "p = OnCHint0(c, b, d)) \nEND;\n\n(* \"p\" is a goo";

CONST E65_0 =
   "d hint for a point on the \n   intersection of the rectangle with corne"
 & "rs \"a\" \n   and \"b\" and the line through \"d\" and the \n   center "
 & "of that rectangle. *)\n\nFUNC res = Area(a, b) IS\n  res = Geometry.Dis"
 & "tX(a,b) * Geometry.DistY(a,b)\nEND;\n\n(* \"res\" is the area of the re"
 & "ctangle with \n   opposite corners \"a\" and \"b\". *)\n\n(* \\section{"
 & "Center-Corner Representation} *)\n\nPRIVATE FUNC a = OtherCorner(c, b) "
 & "IS\n  a = (-1, 0) REL (c, b)\nEND;\n\n/* \"a\" is the opposite corner o"
 & "f the rectangle\n   from the point \"b\", where \"c\" is the center\n  "
 & " of the rectangle. */\n\n(* The following procedures are like the ones "
 & "\n   above, only they represent a rectangle by its \n   center \"c\" an"
 & "d one of its corners \"b\". *)\n\nPROC DrawC(c, b) IS \n  Draw(OtherCor"
 & "ner(c, b), b)\nEND;\n\nUI PointTool(DrawC);\n\n(* Like \"Draw\" above, "
 & "but the rectangle is \n   specified by its center \"c\" and one of its "
 & "\n   corners \"b\". *)\n\nPRED OnC(p, c, b) IS \n  On(p, OtherCorner(c,"
 & " b), b)\nEND;\n\nUI PointTool(OnC);\n\n(* Like \"On\" above, but the re"
 & "ctangle is \n   specified by its center \"c\" and one of its \n   corne"
 & "rs \"b\". The current point becomes \"b\". *)\n\nFUNC p = OnCHint(c, b,"
 & " d) IS \n  p = OnCHint0(c, b, d) \nEND;\n\n(* \"p\" is a good hint for "
 & "a point on the \n   intersection of the line \"cd\" and the \n   rectan"
 & "gle with center \"c\" and corner \"b\". *)\n\nFUNC res = AreaC(c, b) IS"
 & "\n  res = Area(OtherCorner(c, b), b)\nEND;\n\n(* \"res\" is the area of"
 & " the rectangle with\n   center \"c\" and corner \"b\". *)\n\n(* \\secti"
 & "on{Pair representation} *)\n\n(* The following routines encode a rectan"
 & "gle \"r\" \n   as a pair of points denoting two of its \n   opposite co"
 & "rners. \n\n   If \"r = ((x1, y1), (x2, y2)\" and we have: \n\n|    west"
 & " = MIN(x1, x2)\n|    east = MAX(x1, x2)\n|    south = MIN(y1, y2)\n|   "
 & " north = MAX(y1, y2)\n\n   then a point \"p = (px, py)\" is in the \n  "
 & " rectangle \"r\" if: \n\n|    west <= px < east\n|    south <= py < nor"
 & "th\n\n   We impose the restriction that if a rectangle \n   contains no"
 & " points, then it must be equal to \n   \"Rect.Empty\". *)\n\nCONST Empt"
 & "y = ((0, 0), (0,";

CONST E65_1 =
   " 0));\n\n(* The empty rectangle. *)\n\nPROC res := FromCorners(a, b) IS"
 & "\n  res := (a, b)\nEND;\n\n(* \"res\" is the rectangle with opposite co"
 & "rners\n   \"a\" and \"b\". *)\n\nPROC res := FromCenterCorner(c,b) IS\n"
 & "  res := ((-1,0) REL (c,b), b)\nEND;\n\n(* \"res\" is the rectangle wit"
 & "h center \"c\" and\n   corner \"b\". *)\n\nPROC DrawR(r) IS \n  IF \n  "
 & "  VAR r1, r2 IN r = (r1, r2) -> Draw(r1, r2) END \n  FI \nEND;\n\n(* Li"
 & "ke \"Draw\" above, but the rectangle \"r\" is \n   specified by a pair "
 & "of points at opposite \n   corners of the rectangle. *)\n\nPRED OnR(p, "
 & "r) IS \n  (E r1, r2 :: r = (r1, r2) AND On(p, r1, r2)) \nEND;\n\n(* Lik"
 & "e \"On\" above, but the rectangle \"r\" is \n   specified by a pair of "
 & "points at opposite \n   corners of the rectangle. *)\n\nFUNC p = OnRHin"
 & "t(r, d) IS \n  p = OnHint(CAR(r), CDR(r), d) \nEND;\n\n(* Like \"OnHint"
 & "\" above, but the rectangle \"r\" is \n   specified by a pair of points"
 & " at opposite \n   corners of the rectangle. *)\n\nPROC p := North(r) IS"
 & " \n  IF \n    VAR x1, y1, x2, y2 IN \n      r = ((x1, y1), (x2, y2)) ->"
 & " \n        p := ((x1 + x2) / 2, MAX(y1, y2)) \n    END \n  FI \nEND;\n\n"
 & "PROC p := South(r) IS \n  IF \n    VAR x1, y1, x2, y2 IN \n      r = (("
 & "x1, y1), (x2, y2)) -> \n        p := ((x1 + x2) / 2, MIN(y1, y2)) \n   "
 & " END \n  FI \nEND;\n\nPROC p := East(r) IS \n  IF \n    VAR x1, y1, x2,"
 & " y2 IN \n      r = ((x1, y1), (x2, y2)) -> \n        p := (MAX(x1, x2),"
 & " (y1 + y2) / 2) \n    END \n  FI \nEND;\n\nPROC p := West(r) IS \n  IF "
 & "\n    VAR x1, y1, x2, y2 IN \n      r = ((x1, y1), (x2, y2)) -> \n     "
 & "   p := (MIN(x1, x2), (y1 + y2) / 2) \n    END \n  FI \nEND;\n\nFUNC p "
 & "= Center(r) IS \n  (E r1, r2 :: \n    r = (r1, r2) AND p = Geometry.Mid"
 & "(r1, r2)) \nEND;\n\nPROC p := NW(r) IS \n  IF \n    VAR x1, y1, x2, y2 "
 & "IN \n      r = ((x1, y1), (x2, y2)) -> \n        p := (MIN(x1, x2), MAX"
 & "(y1, y2)) \n    END \n  FI \nEND;\n\nPROC p := NE(r) IS \n  IF \n    VA"
 & "R x1, y1, x2, y2 IN \n      r = ((x1, y1), (x2, y2)) -> \n        p := "
 & "(MAX(x1, x2), MAX(y1, y2)) \n    END \n  FI \nEND;\n\nPROC p := SE(r) I"
 & "S \n  IF \n    VAR x1, y1, x2, y2 IN \n      r = ((x1, y1), (x2, y2)) ";

CONST E65_2 =
   "-> \n        p := (MAX(x1, x2), MIN(y1, y2)) \n    END \n  FI \nEND;\n\n"
 & "PROC p := SW(r) IS \n  IF \n    VAR x1, y1, x2, y2 IN \n      r = ((x1,"
 & " y1), (x2, y2)) -> \n        p := (MIN(x1, x2), MIN(y1, y2)) \n    END "
 & "\n  FI \nEND;\n\n(* These procedures set \"p\" to the named \n   charac"
 & "teristic point on the boundry or at the \n   center of the rectangle \""
 & "r\". *)\n\nPROC w := Width(r) IS \n  IF \n    VAR x1, y1, x2, y2 IN \n "
 & "     r = ((x1, y1), (x2, y2)) -> \n        w := ABS(x2 - x1) \n    END "
 & "\n  FI \nEND;\n\n(* \"w\" is the width of \"r\". *)\n\nPROC h := Height"
 & "(r) IS \n  IF \n    VAR x1, y1, x2, y2 IN \n      r = ((x1, y1), (x2, y"
 & "2)) -> \n        h := ABS(y2 - y1) \n    END \n  FI \nEND;\n\n(* \"h\" "
 & "is the height of \"r\". *)\n\nPROC res := Size(r) IS \n  IF \n    VAR x"
 & "1, y1, x2, y2 IN \n      r = ((x1, y1), (x2, y2)) -> \n        res := ("
 & "ABS(x2 - x1), ABS(y2 - y1)) \n    END \n  FI \nEND;\n\n(* \"res\" is a "
 & "pair \"(w, h)\", where \"w\" and \"h\" \n   are the width and height of"
 & " \"r\", respectively. \n*)\n\nPROC res := Plus(r, p) IS \n  IF \n    r "
 & "= Empty -> res := Empty \n  | VAR r1, r2 IN \n      r = (r1, r2) -> \n "
 & "       res := (R2.Plus(r1, p), R2.Plus(r2, p)) \n    END \n  FI \nEND;\n"
 & "\n(* \"res\" is the rectangle obtained by translating \n   \"r\" by the"
 & " vector \"p\". *)\n\nPROC w, e, s, n := Edges(r) IS \n  IF \n    VAR r1"
 & "x, r1y, r2x, r2y IN \n      r = ((r1x, r1y), (r2x, r2y)) -> \n        w"
 & " := MIN(r1x, r2x); \n        e := MAX(r1x, r2x); \n        s := MIN(r1y"
 & ", r2y); \n        n := MAX(r1y, r2y) \n    END \n  FI \nEND;\n\n(* Set "
 & "\"w\" and \"e\" to the x-coordinates of the\n   west and east edges of "
 & "\"r\", and \"s\" and \"n\"\n   to the y-coordinates of the south and no"
 & "rth\n   edges of \"r\". *)\n\nPROC res := Inset(r, d) IS \n  VAR w, e, "
 & "s, n IN \n    w, e, s, n := Edges(r); \n    w, s := w + d, s + d; \n   "
 & " e, n := e - d, n - d; \n    IF \n      e < w OR n < s -> res := Empty "
 & "\n    | res := ((w, s), (e, n)) \n    FI \n  END \nEND;\n\n(* \"res\" i"
 & "s the rectangle \"r\" inset by \"d\" \n   points. If \"r\" does not hav"
 & "e width and height \n   at least \"2*d\", \"res\" is set to \"Empty\". "
 & "*)\n\nPROC res := Join";

CONST E65_3 =
   "(r, s) IS \n  IF \n    r = Empty -> res := s | s = Empty -> res := r \n"
 & "  | VAR rW, rE, rS, rN, sW, sE, sS, sN IN \n      rW, rE, rS, rN := Edg"
 & "es(r); \n      sW, sE, sS, sN := Edges(s); \n      res := \n        ((M"
 & "IN(rW, sW), MIN(rS, sS)), \n         (MAX(rE, sE), MAX(rN, sN))) \n    "
 & "END \n  FI \nEND;\n\n(* \"res\" is the smallest rectangle containing \n"
 & "   both \"r\" and \"s\". *)\n\nPROC res := Meet(r, s) IS \n  IF \n    r"
 & " = Empty OR s = Empty -> res := Empty \n  | VAR \n      rW, rE, rS, rN,"
 & " sW, sE, sS, sN, resW, resE, \n      resS, resN \n    IN \n      rW, rE"
 & ", rS, rN := Edges(r); \n      sW, sE, sS, sN := Edges(s); \n      resW "
 & ":= MAX(rW, sW); \n      resE := MIN(rE, sE); \n      resS := MAX(rS, sS"
 & "); \n      resN := MIN(rN, sN); \n      IF \n        resW >= resE OR re"
 & "sS >= resN -> \n          res := Empty \n      | res := ((resW, resS), "
 & "(resE, resN)) \n      FI \n    END \n  FI \nEND;\n\n(* \"res\" is the l"
 & "argest rectangle contained in \n   both \"r\" and \"s\". *)\n\nFUNC res"
 & " = AreaR(r) IS\n  (E c1, c2 :: r = (c1, c2) AND\n    res = Area(c1, c2)"
 & ")\nEND;\n\n(* \"res\" is the area of the rectangle \"r\". *)\n";

CONST E66 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Thu Dec  1 10:28:20 PST "
 & "1994 by heydon                   \n\n(Rim (Pen 5)\n  (VBox\n    (HBox\n"
 & "      Fill\n      (FixedWidth (Text (Margin 0) \"The file \\\"\"))\n   "
 & "   (FixedWidth (Text (Margin 0) %overwriteFileName \"\"))\n      (Fixed"
 & "Width (Text (Margin 0) \"\\\" already exists.\"))\n      Fill\n    )\n "
 & "   \"Overwrite it?\"\n    (Glue 5)\n    (HBox\n      Fill\n      (Close"
 & "Button %saveAsOverwrite \"Overwrite\")\n      Fill\n      (CloseButton "
 & "%overwriteCancel \"Cancel\")\n      Fill\n    )\n  )\n)\n";

CONST E67 =
   "MODULE Ellipse;\n\n(* Procedures and predicates for \n   ellipses with "
 & "arbitrary \n   orientations. *)\n\nIMPORT Geometry, PS, Rel;\n\n(* ECCE"
 & "NTRICITY REPRESENTATION *)\n\n(* The following routines define an \n   "
 & "ellipse \"[a, b, e]\" by its center \n   \"a\", the tip of its major ax"
 & "is \n   \"b\", and its eccentricity \"e\" \n   (the real-valued ratio o"
 & "f the \n   length of its minor axis to the \n   length its major axis)."
 & " This \n   representation is somewhat more \n   efficient than the one "
 & "used later \n   in this module, but cannot be \n   clicked in. *)\n\nPR"
 & "IVATE PROC DrawQuarterEcc(a, r) IS \n  VAR b IN \n    b := PS.CurrentPo"
 & "int(); \n    IF \n      VAR \n        c = (0, r) REL (a, b), \n        "
 & "d \n      = (1, r * 0.5523) REL (a, b), \n        e = (0.5523, r) REL ("
 & "a, b) \n      IN \n        PS.CurveTo(d, e, c) \n      END \n    FI \n "
 & " END \nEND;\n\n/* Add a quarter ellipse with \n   eccentricity \"r\" st"
 & "arting at the \n   current point about the center \n   \"a\" to the cur"
 & "rent path. Positive \n   values of \"r\" create the curve in \n   a cou"
 & "nter-clockwise direction \n   from the current point around \n   \"a\","
 & " while negative values of \"r\" \n   create the curve in a clockwise \n"
 & "   direction around \"a\". */\n\nPRIVATE PROC DrawSemiEcc(a, e) IS \n  "
 & "DrawQuarterEcc(a, e); \n  DrawQuarterEcc(a, 1 / e) \nEND;\n\n/* Add hal"
 & "f an ellipse of \n   eccentricity \"r\" about \"a\" \n   starting from "
 & "the current point. \n   Positive values of \"r\" create the \n   curve "
 & "in a counter-clockwise \n   direction from the current point \n   aroun"
 & "d \"a\", while negative values \n   of \"r\" create the curve in a \n  "
 & " clockwise direction around \"a\". */\n\nPROC DrawEcc(a, b, e) IS \n  P"
 & "S.MoveTo(b); \n  DrawSemiEcc(a, -e); \n  DrawSemiEcc(a, -e); \n  PS.Clo"
 & "se() \nEND;\n\nPROC DrawEccCC(a, b, e) IS \n  PS.MoveTo(b); \n  DrawSem"
 & "iEcc(a, e); \n  DrawSemiEcc(a, e); \n  PS.Close() \nEND;\n\n(* Add a cl"
 & "ockwise and counter- \n   clockwise ellipse \"[a, b, e]\", \n   respect"
 & "ively, to the current \n   path. The current point becomes \n   \"b\". "
 & "*)\n\nPRED OnEcc(p, a, b, e) IS \n  (E q = Rel.Inv(p, a, b), \n";

CONST E67_0 =
   "     x = CAR(q), y = CDR(q) :: \n    x * x + (y * y) / (e * e) = 1) \nE"
 & "ND;\n\n(* The point \"p\" is on the ellipse \n   \"[a, b, e]\". *)\n\n("
 & "* THREE-POINT REPRESENTATION *)\n\n(* The following routines define an "
 & "\n   ellipse \"[a, b, c]\" by its center \n   \"a\", a point \"b\" at t"
 & "he tip of \n   one of its axes, and a point \"c\" \n   whose distance f"
 & "rom \"a\" is the \n   length of the axis perpendicular \n   to \"ab\". "
 & "*)\n\nPROC Draw(a, b, c) IS \n  VAR ab, ac IN \n    ab := Geometry.Dist"
 & "(a, b); \n    ac := Geometry.Dist(a, c); \n    DrawEcc(a, b, ac / ab) \n"
 & "  END \nEND;\n\nPROC DrawCC(a, b, c) IS \n  VAR ab, ac IN \n    ab := G"
 & "eometry.Dist(a, b); \n    ac := Geometry.Dist(a, c); \n    DrawEccCC(a,"
 & " b, ac / ab) \n  END \nEND;\n\nUI PointTool(Draw);\n\nUI PointTool(Draw"
 & "CC);\n\n(* Add a clockwise and counter- \n   clockwise ellipse \"[a, b,"
 & " c]\", \n   respectively, to the current \n   path. The current point b"
 & "ecomes \n   \"b\". *)\n\nPROC DrawSemi(a, c) IS \n  VAR b, ab, ac, e IN"
 & " \n    b := PS.CurrentPoint(); \n    ab := Geometry.Dist(a, b); \n    a"
 & "c := Geometry.Dist(a, c); \n    e := ac / ab; \n    DrawSemiEcc(a, -e) "
 & "\n  END \nEND;\n\nPROC DrawSemiCC(a, c) IS \n  VAR b, ab, ac, e IN \n  "
 & "  b := PS.CurrentPoint(); \n    ab := Geometry.Dist(a, b); \n    ac := "
 & "Geometry.Dist(a, c); \n    e := ac / ab; \n    DrawSemiEcc(a, e) \n  EN"
 & "D \nEND;\n\nUI PointTool(DrawSemi);\n\nUI PointTool(DrawSemiCC);\n\n(* "
 & "Add a clockwise or \n   counter-clockwise semi-ellipse to \n   the curr"
 & "ent path starting at the \n   current point. The semi-ellipse \n   has "
 & "center \"a\", the length of its \n   major axis is the distance from \n"
 & "   \"a\" to the current point, and the \n   length of its minor axis is"
 & " the \n   distance from \"a\" to \"c\". *)\n\nPRED On(p, a, b, c) IS \n"
 & "  (E ab, ac :: \n    ab = Geometry.Dist(a, b) AND \n    ac = Geometry.D"
 & "ist(a, c) AND \n    OnEcc(p, a, b, ac / ab)) \nEND;\n\nUI PointTool(On)"
 & ";\n\n(* The point \"p\" is on the ellipse \n   \"[a, b, c]\". *)\n\n";

CONST E68 =
   "MODULE TypeLinesL;\n\n(* The procedures in this module \n   type a bloc"
 & "k of left-justified \n   text lines relative to a \n   specified point."
 & " Each procedure \n   takes a reference point and a \n   single text, wh"
 & "ich is converted \n   to a list of texts by the \n   \"TextList.FromTex"
 & "t\" procedure. \n   One line is displayed in the \n   block per element"
 & " of this list. \n\n   The lines in each block are \n   separated vertic"
 & "ally by the \n   height of the current font plus \n   the current line "
 & "skip value \n   (maintained by the \"LineSkip\" \n   module). \n\n   Th"
 & "e text block is actually \n   translated in the appropriate \n   direct"
 & "ion away from the \n   reference point by the current \n   horizontal a"
 & "nd/or vertical \n   offset values (maintained by the \n   \"Offset\" mo"
 & "dule). For example, \n   the \"South\" procedure translates \n   the te"
 & "xt block up by the current \n   vertical offset, and the \"NE\" \n   pr"
 & "ocedure translates it down by \n   the current vertical offset and \n  "
 & " to the left by the current \n   horizontal offset. The \"Center\" \n  "
 & " procedure ignores the current \n   offset values. *)\n\nIMPORT LineSki"
 & "p, Offset, PS, \n       R2, TextList;\n\nPRIVATE PROC TypeBlockL(p, l) "
 & "IS \n  VAR asc, dec, d IN \n    asc, dec := PS.FontHeight(); \n    d :="
 & " asc + dec + LineSkip.Get(); \n    p := (CAR(p), CDR(p) - asc); \n    D"
 & "O \n      l # NIL -> \n        PS.Type(p, CAR(l)); \n        p := (CAR("
 & "p), CDR(p) - d); \n        l := CDR(l) \n    OD \n  END \nEND;\n\n/* Ty"
 & "pe the left-justified block of \n   text lines \"l\" such that \"p\" is"
 & " \n   the northwest corner of the \n   box\'s bounding-box. */\n\nPROC "
 & "North(p, txt) IS \n  VAR l, w, h, dh IN \n    l := TextList.FromText(tx"
 & "t); \n    w, h := TextList.Size(l); \n    dh := Offset.GetVer(); \n    "
 & "TypeBlockL(R2.Plus(p, \n                       (-w / 2, -dh)), \n      "
 & "         l) \n  END \nEND;\n\nPROC South(p, txt) IS \n  VAR l, w, h, dh"
 & " IN \n    l := TextList.FromText(txt); \n    w, h := TextList.Size(l); "
 & "\n    dh := Offset.GetVer(); \n    TypeBlockL(R2.Plus(p, \n            "
 & "           (-w / 2, \n             ";

CONST E68_0 =
   "           h + dh)), l) \n  END \nEND;\n\nPROC East(p, txt) IS \n  VAR "
 & "l, w, h, dw IN \n    l := TextList.FromText(txt); \n    w, h := TextLis"
 & "t.Size(l); \n    dw := Offset.GetHor(); \n    TypeBlockL(R2.Plus(p, \n "
 & "                      (-w - dw, \n                        h / 2)), l) \n"
 & "  END \nEND;\n\nPROC West(p, txt) IS \n  VAR l, w, h, dw IN \n    l := "
 & "TextList.FromText(txt); \n    w, h := TextList.Size(l); \n    dw := Off"
 & "set.GetHor(); \n    TypeBlockL(R2.Plus(p, \n                       (dw,"
 & " h / 2)), \n               l) \n  END \nEND;\n\nPROC Center(p, txt) IS "
 & "\n  VAR l, w, h IN \n    l := TextList.FromText(txt); \n    w, h := Tex"
 & "tList.Size(l); \n    TypeBlockL(R2.Plus(p, \n                       (-w"
 & " / 2, \n                        h / 2)), l) \n  END \nEND;\n\nPROC NW(p"
 & ", txt) IS \n  VAR l, dw, dh IN \n    l := TextList.FromText(txt); \n   "
 & " dw, dh := Offset.GetHorVer(); \n    TypeBlockL(R2.Plus(p, (dw, -dh)), "
 & "\n               l) \n  END \nEND;\n\nPROC NE(p, txt) IS \n  VAR l, w, "
 & "h, dw, dh IN \n    l := TextList.FromText(txt); \n    w, h := TextList."
 & "Size(l); \n    dw, dh := Offset.GetHorVer(); \n    TypeBlockL(R2.Plus(p"
 & ", \n                       (-w - dw, \n                        -dh)), l"
 & ") \n  END \nEND;\n\nPROC SE(p, txt) IS \n  VAR l, w, h, dw, dh IN \n   "
 & " l := TextList.FromText(txt); \n    w, h := TextList.Size(l); \n    dw,"
 & " dh := Offset.GetHorVer(); \n    TypeBlockL(R2.Plus(p, \n              "
 & "         (-w - dw, \n                        h + dh)), l) \n  END \nEND"
 & ";\n\nPROC SW(p, txt) IS \n  VAR l, w, h, dw, dh IN \n    l := TextList."
 & "FromText(txt); \n    w, h := TextList.Size(l); \n    dw, dh := Offset.G"
 & "etHorVer(); \n    TypeBlockL(R2.Plus(p, \n                       (dw, h"
 & " + dh)), \n               l) \n  END \nEND;\n\nUI TextTool(North);\n\nU"
 & "I TextTool(South);\n\nUI TextTool(East);\n\nUI TextTool(West);\n\nUI Te"
 & "xtTool(Center);\n\nUI TextTool(NW);\n\nUI TextTool(NE);\n\nUI TextTool("
 & "SE);\n\nUI TextTool(SW);\n\n(* Display the \"\\\"-separated texts \n   "
 & "in \"t\" as a left-justified block \n   such that \"p\" is at the locat"
 & "ion \n   of the block\'s bounding box \n   named";

CONST E68_1 =
   " by the procedure. *)\n\n";

CONST E69 =
   "MODULE Print;\n\n(* Module for printing values to the standard output. "
 & "*)\n\nPROC Val(v) IS SKIP END; /* external procedure */\n\n(* Pretty-pr"
 & "int the value \"v\" to the standard output using a\n   line width of 75"
 & " characters. Numerical values in \"v\" are\n   printed to full precisio"
 & "n. *)\n";

CONST E70 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Thu Aug 28 17:35:33 PDT "
 & "1997 by leifer                   \n;      modified on Wed Apr  9 22:50:"
 & "42 PDT 1997 by heydon                   \n\n(ZSplit %mainChild\n  (Inse"
 & "rt \"Macros.fv\")\n  (MyLabelFont)\n  (BgColor HSV 0 0 0.8)\n  (ZBackgr"
 & "ound\n    (Filter %background Passive (Cursor \"XC_watch\")\n      (HTi"
 & "le2\n        ;; Drawing half of UI\n        (VBox\n          ;; Menu ba"
 & "r\n          (HBox\n            (Menu (MenuLabel \"Juno-2\") (VBox\n   "
 & "           (PopMButton (For aboutWindow) (TextL \"About...\"))\n\t     "
 & " (PopMButton %config (For configWindow) (TextL \"Configure...\"))\n    "
 & "          (MButton %quit (TextL \"Quit\"))\n            ))\n           "
 & " (Menu (MenuLabel \"File\") (VBox\n              (MButton %load (TextL "
 & "\"New / Open...\"))\n              (MButton %save (TextL \"Save\"))\n  "
 & "            (PopMButton %saveAs (For saveAsWindow) (TextL \"Save As...\""
 & "))\n;              (MButton %savejava (TextL \"Save to Java\"))\n\t    "
 & "  (MButton %reload (TextL \"Reload\"))\n\t      (MButton %clearall (Tex"
 & "tL \"Clear All\"))\n              (Ridge 2)\n              (PopMButton "
 & "%module (For moduleWindow) (TextL \"Open Module...\"))\n              ("
 & "Ridge 2)\n              (MButton %print (TextL \"Print\"))\n           "
 & "   (MButton %preview (TextL \"Preview\"))\n            (MButton %savePS"
 & " (TextL \"Save PostScript\"))\n              (PopMButton %savePSas (For"
 & " savePSWindow)\n                (TextL \"Save PostScript As...\")\n    "
 & "          )\n            ))\n            (Menu (MenuLabel \"Labels\") ("
 & "Radio %labels =letters (VBox\n              (MButton (Choice %letters C"
 & "heckMark MenuStyle (TextL \"Letters\")))\n              (MButton (Choic"
 & "e %crosses CheckMark MenuStyle (TextL \"Crosses\")))\n              (MB"
 & "utton (Choice %nothing Check";

CONST E70_0 =
   "Mark MenuStyle (TextL \"None\")))\n            )))\n          (Menu (Me"
 & "nuLabel \"Redisplay\") (Radio %autoUpdate =autoRun (VBox\n             "
 & " (MButton (Choice %autoRun CheckMark MenuStyle\n              (TextL \""
 & "Auto Run\")))\n              (MButton (Choice %autoSolve CheckMark Menu"
 & "Style\n              (TextL \"Auto Solve\")))\n            )))\n       "
 & "   ; (Menu (MenuLabel \"Test\") (VBox\n          ;   (PopMButton (For s"
 & "aveAsConfirmWindow) (TextL \"Confirm...\"))\n          ; ))\n          "
 & "  Fill\n          ) ;; HBox\n          (MyRidge)\n          ;; Toolbox "
 & "and Drawing\n          (HBox\n            (Shape (Height2 0)\n         "
 & "     (Generic %toolbox)\n            )\n            (MyRidge)\n        "
 & "    (Drawing\n              (Generic %drawing)\n            )\n        "
 & "  )\n        ) ;; VBox\n        \n        ;; Code half of UI\n        ("
 & "Sources\n          (VBox\n            ;; Menu bar\n            (HBox\n "
 & "           (Button %run (ButtonLabel \"Run\"))\n              (Filter D"
 & "ormant (Button %solve (ButtonLabel \"Solve\")))\n              (Menu (M"
 & "enuLabel \"Edit\") (VBox\n                (MButton %fold (TextL \"Fold."
 & "..\"))\n                (MButton %foldAsAnim (TextL \"Fold As Animation"
 & "...\"))\n                (Ridge 2)\n                (MButton %pushCurrC"
 & "md (TextL \"Push Current Command\"))\n                (MButton %popCurr"
 & "Cmd (TextL \"Pop Current Command\"))\n              ))\n              F"
 & "ill\n              (Border (Shape (Width + 0)\n                (Text %c"
 & "urrFile\n                  RightAlign\n                  (BgColor \"Lig"
 & "htGray\")\n                  \"Untitled.juno\"\n                )\n    "
 & "          ))\n            ) ;; HBox\n            (MyRidge)\n           "
 & " ;; Module and current command editors\n            (VTile2\n          "
 & "    (Module (Generic %editor))\n  \t      (CCmd (Generic %source))\n  \t"
 & "    ) ;; VTile2\n  \t  ) ;; VBox\n  \t) ;; Sources -- end of code half "
 & "of UI\n      ) ;; HTile2\n    ) ;; Filter\n  ) ;; ZBackground\n\n  ;; P"
 & "op-up windows\n  (ZChild %stopWindow\n    (Button %stop (ButtonLabel \""
 & "Stop\"))\n  )\n  (MyZChassis %aboutWindow";

CONST E70_1 =
   "\n    (GrowBox FALSE)\n    (Title \"About Juno-2\")\n    (CancelName ab"
 & "outCancel)\n    (Child (Insert \"AboutBox.fv\"))\n  )\n  (MyZChassis %c"
 & "onfigWindow\n    (Title \"Configure\")\n    (CancelName configCancel)\n"
 & "    (Child (Insert \"Configure.fv\"))\n  )\n  (MyZChassis %loadWindow\n"
 & "    (Title \"Open File\")\n    (CancelName loadCancel)\n    (Child (Ins"
 & "ert \"LoadFile.fv\"))\n  )\n  (MyZChassis %saveAsWindow\n    (Title \"S"
 & "ave File\")\n    (CancelName saveAsCancel)\n    (Child (Insert \"SaveFi"
 & "le.fv\"))\n  )\n  (MyZChassis %saveAsConfirmWindow\n    (Title \"Save C"
 & "onfirmation\")\n    (CancelBox FALSE)\n    (GrowBox FALSE)\n    (Child "
 & "(Insert \"SaveConfirm.fv\"))\n  )\n  (MyZChassis %moduleWindow\n    (Ti"
 & "tle \"Open Module\")\n    (CancelName moduleCancel)\n    (Child (Insert"
 & " \"LoadModule.fv\"))\n  )\n  (MyZChassis %savePSWindow\n    (Title \"Sa"
 & "ve PostScript File\")\n    (CancelName savePSCancel)\n    (Child (Inser"
 & "t \"SavePS.fv\"))\n  )\n  (MyZChassis %foldWindow\n    (Title \"Fold\")"
 & "\n    (At (0.5 0.25))\n    (CancelName foldCancel)\n    (Child (Insert "
 & "\"Fold.fv\"))\n  )\n  (MyZChassis %foldAsAnimWindow\n    (Title \"Fold "
 & "As Animation\")\n    (At (0.5 0.25))\n    (CancelName foldAsAnimCancel)"
 & "\n    (Child (Insert \"FoldAsAnim.fv\"))\n  )\n  (MyZChassis %saveChang"
 & "esWindow\n    (GrowBox FALSE)\n    (Title \"Save Changes?\")\n    (At ("
 & "0.5 0.25))\n    (CancelName cancelChanges)\n    (Child (Insert \"SaveCh"
 & "anges.fv\"))\n  )\n) ;; ZSplit\n";

CONST E71 =
   "(* Copyright (C) 1992, Digital Equipment Corporation                 *)"
 & "\n(* All rights reserved.                                              "
 & "*)\n(* See the file COPYRIGHT for a full description.                  "
 & "  *)\n(*                                                               "
 & "    *)\n(* Last modified on Mon Oct 31 09:05:57 PST 1994 by heydon     "
 & "      *)\n\n(* Definitions for CLOSE and APPLY so they will have slot\n"
 & "   numbers in the top-level scope. *)\n\nPROC res := CLOSE() IS SKIP EN"
 & "D;\n\nPROC APPLY() IS SKIP END;\n\n(* Definitions for the built-in pred"
 & "icates and functions. \n   To avoid name conflicts, these names all beg"
 & "in with \"_\". *)\n\nPRED _HOR(a, b) IS \n  (E x1, x2, y :: \n    REAL("
 & "x1) AND \n    REAL(x2) AND \n    REAL(y) AND \n    a = (x1, y) AND \n  "
 & "  b = (x2, y)) \nEND;\n\nPRED _VER(a, b) IS \n  (E x, y1, y2 :: \n    R"
 & "EAL(y1) AND \n    REAL(y2) AND \n    REAL(x) AND \n    a = (x, y1) AND "
 & "\n    b = (x, y2)) \nEND;\n\nFUNC y = _UMINUS(x) IS 0 = x + y END;\n\nF"
 & "UNC z = _MINUS(x, y) IS x = y + z END;\n\nFUNC z = _DIVIDE(x, y) IS x ="
 & " y * z END;\n\nFUNC y = _CAR(x) IS (E z :: x = (y, z)) END;\n\nFUNC y ="
 & " _CDR(x) IS (E z :: x = (z, y)) END;\n\nPRIVATE FUNC len = _SegLenSq(s)"
 & " IS\n  (E a, b, ax, ay, bx, by, dx, dy ::\n    s = (a, b) AND\n    a = "
 & "(ax, ay) AND\n    b = (bx, by) AND\n    dx = bx - ax AND\n    dy = by -"
 & " ay AND\n    len = dx * dx + dy * dy)\nEND;\n\nPRED _CONG(a, b) IS\n  _"
 & "SegLenSq(a) = _SegLenSq(b)\nEND;\n\nPRIVATE FUNC v = _Delta(ab) IS\n  ("
 & "E a, b, ax, ay, bx, by, vx, vy ::\n    ab = (a, b) AND\n    a = (ax, ay"
 & ") AND\n    b = (bx, by) AND\n    v = (vx, vy) AND\n    bx = vx + ax AND"
 & "\n    by = vy + ay)\nEND;\n\nPRIVATE PRED _ParaVects(v1, v2) IS\n  (E v"
 & "1x, v1y, v2x, v2y ::\n    v1 = (v1x, v1y) AND\n    v2 = (v2x, v2y) AND\n"
 & "    v1x * v2y = v1y * v2x)\nEND;\n\nPRED _PARA(a, b) IS \n  (E ad, bd :"
 & ":\n    ad = _Delta(a) AND\n    bd = _Delta(b) AND\n    _ParaVects(ad, b"
 & "d))\nEND;\n\nFUNC q = _REL(p, ab) IS \n  (E px, py, qx, qy,\n     a, b,"
 & " ax, ay, bx, by, dx, dy,\n     xx, yy, xy, yx, dx2, dy2 :: \n    ab = ("
 & "a, b) AND \n    a = (ax, ay) ";

CONST E71_0 =
   "AND \n    b = (bx, by) AND \n    p = (px, py) AND \n    q = (qx, qy) AN"
 & "D \n    bx = dx + ax AND \n    by = dy + ay AND \n    xx = px * dx AND "
 & "\n    yy = py * dy AND \n    xy = px * dy AND \n    yx = py * dx AND \n"
 & "    xx = dx2 + yy AND \n    dy2 = xy + yx AND \n    qx = ax + dx2 AND \n"
 & "    qy = ay + dy2) \nEND;\n\n";

CONST E72 =
   "MODULE Slider;\n\nIMPORT Math, Text, Color, R2, Geometry, PS, Angle, Be"
 & "zier, \n       Circle, Type, Rect, TypeLinesC;\n\n(* A module for drawi"
 & "ng sliders and associating them with \n   constraints. *)\n\n(* A slide"
 & "r is represented by three points, \"a\", \"b\", and \"c\". \n   The poi"
 & "nts \"a\" and \"c\" determine the endpoints of the slider, \n   and the"
 & " point \"b\" determines the location of its ``thumb\'\'. \n   In partic"
 & "ular, \"a\" determines the axis of the slider and one \n   of its endpo"
 & "ints, \"c\" determines the sizes of the tick marks \n   at the end of t"
 & "he slider and one of its endpoints. The \n   projection of \"b\" onto t"
 & "he slider\'s axis is the location of \n   the slider\'s thumb. \n\n   T"
 & "he location of the thumb determine\'s the slider\'s value. The \n   val"
 & "ue is defined as the fraction of the distance the thumb is \n   from \""
 & "a\" to \"c\". Hence, when the thumb is within the bounds \n   of the sl"
 & "ider, the slider\'s value is in the interval [0, 1]. \n*)\n\n(* \\secti"
 & "on{Slider Values} *)\n\nFUNC res = Value(a, b, c) IS \n  res * (CAR(c) "
 & "- CAR(a)) = CAR(b) - CAR(a) \nEND;\n\n(* \"res\" is the value of the sl"
 & "ider determined by the points \n   \"a\", \"b\", and \"c\". *)\n\nFUNC "
 & "b = ThumbPoint(a, c, t) IS b = (t, 0) REL (a, c) END;\n\n(* \"b\" satis"
 & "fies \"t = Value(a,b,c)\". *)\n\n(* \\section{Drawing Sliders} *)\n\nCO"
 & "NST Invisible = 0, Visible = 1, DefaultVisibility = Visible;\n\n(* This"
 & " module maintains a ``current visibility\'\', which \n   determines whe"
 & "ther the \"Draw\" procedure draws anything or \n   not. *)\n\nPRIVATE V"
 & "AR visibility := DefaultVisibility;\n\nPROC SetVisibility(vis) IS visib"
 & "ility := vis END;\n\nUI SetTool(SetVisibility);\n\n(* Set the current v"
 & "isibility to \"vis\", which should be either \n   \"Invisible\" or \"Vi"
 & "sible\". *)\n\nUI Param(SetVisibility, DefaultVisibility);\n\nUI Param("
 & "SetVisibility, Invisible);\n\nUI Param(SetVisibility, Visible);\n\nCONS"
 & "T HideValue = 0, ShowValue = 1, DefaultValueVis = ShowValue;\n\n(* This"
 & " module maintains a current ``value visibility\'\', which \n   controls"
 & " whether the \"Draw\" procedure shows the slider\'s \n   value";

CONST E72_0 =
   ". *)\n\nPRIVATE VAR valueVis := DefaultValueVis;\n\nPROC SetValueVis(vi"
 & "s) IS valueVis := vis END;\n\nUI SetTool(SetValueVis);\n\n(* Set the cu"
 & "rrent value visibility to \"vis\", which should be \n   either \"HideVa"
 & "lue\" or \"ShowValue\". *)\n\nUI Param(SetValueVis, DefaultValueVis);\n"
 & "\nUI Param(SetValueVis, HideValue);\n\nUI Param(SetValueVis, ShowValue)"
 & ";\n\nPRIVATE CONST Gap = 5, ThumbW = 5;\n\nPRIVATE PROC DrawTrackHor(a,"
 & " b) IS \n  VAR c, d, e, f IN \n    c := Geometry.HorVer(a, b); \n    d "
 & ":= Geometry.HorVer(b, a); \n    e := (-1, -0) REL (a, d); \n    f := (-"
 & "1, -0) REL (c, b); \n    SAVE PS IN \n      PS.SetEndStyle(PS.SquareEnd"
 & "s); \n      PS.MoveTo(a); \n      PS.LineTo(c); \n      PS.MoveTo(d); \n"
 & "      PS.LineTo(e); \n      PS.MoveTo(b); \n      PS.LineTo(f); \n     "
 & " PS.Stroke() \n    END \n  END \nEND;\n\nPRIVATE PROC DrawThumbHor0(a, "
 & "b) IS \n  VAR c IN \n    c := R2.PlusX(b, ThumbW / 2); \n    Rect.DrawC"
 & "(a, c); \n    SAVE PS IN PS.SetColor(Color.Grey75); PS.Fill() END; \n  "
 & "  PS.Stroke() \n  END \nEND;\n\nPRIVATE PROC DrawThumbHor(a, b, c) IS \n"
 & "  VAR d, e IN \n    d := Geometry.HorVer(a, b); \n    e := Geometry.Hor"
 & "Ver(c, b); \n    DrawThumbHor0(d, e) \n  END \nEND;\n\nPRIVATE CONST De"
 & "cimal = Text.GetChar(\".\", 0);\n\nPRIVATE PROC DrawValue(a, b, c) IS \n"
 & "  VAR d, e, val, dotPos, str IN \n    d := Geometry.HorVer(c, a); \n   "
 & " e := Geometry.Mid(d, c); \n    val := Text.FromNum(Value(a, b, c), 1);"
 & " \n    dotPos := Text.FindChar(val, Decimal); \n    IF \n      dotPos ="
 & " -1 -> val := val & \".00\" \n    | DO Text.Length(val) - dotPos <= 2 -"
 & "> val := val & \"0\" OD \n    FI; \n    str := \"Value = \" & val; \n  "
 & "  IF \n      CDR(c) > CDR(a) -> \n        Type.C(R2.PlusY(d, Gap), \"0\""
 & "); \n        Type.C(R2.PlusY(c, Gap), \"1\"); \n        Type.C(R2.PlusY"
 & "(e, Gap), str) \n    | TypeLinesC.North(d, \"0\"); \n      TypeLinesC.N"
 & "orth(c, \"1\"); \n      TypeLinesC.North(e, str) \n    FI \n  END \nEND"
 & ";\n\nPROC Draw(a, b, c) IS \n  IF \n    visibility = Visible -> \n     "
 & " SAVE PS IN \n        PS.SetWidth(1.5); \n        DrawTrackHor(a, c); \n"
 & "        DrawThumbHor(a, b, c); \n        IF v";

CONST E72_1 =
   "alueVis = ShowValue -> DrawValue(a, b, c) | SKIP FI \n      END | SKIP "
 & "\n  FI \nEND;\n\nUI PointTool(Draw);\n\n(* If the current visibility is"
 & " \"Visible\", draw a horizontal \n   slider with endpoints \"a\" and \""
 & "c\", and thumb position \"b\". \n   The horizontal axis of the slider p"
 & "asses through \"a\", and its \n   vertical extent is determined by the "
 & "vertical position of \n   \"c\". The point \"b\" controls the horizonta"
 & "l position of the \n   slider\'s thumb. \n\n   If the current value vis"
 & "ibility is \"ShowValue\", the slider is \n   annotated with its current"
 & " value, rendered in the current \n   font. The value is printed above o"
 & "r below the slider\'s thumb \n   as \"c\" is above or below the slider\'"
 & "s axis. *)\n\n(* \\section{Constraining Sliders} \n\n   The following p"
 & "redicates all constrain a point \"p\" to lie \n   along a geometric sha"
 & "pe such as a line or circle according to \n   the value of a slider \"a"
 & "\", \"b\", \"c\". In all of these \n   predicates, the slider points \""
 & "a\", \"b\", \"c\" are the first \n   three arguments, and the constrain"
 & "ed point \"p\" is the last \n   argument (with the exception of the \"O"
 & "nLine\" constraint). *)\n\nPRED OnLine(a, b, c, l0, p, l1) IS \n  (E t "
 & "= Value(a, b, c) :: p = (t, 0) REL (l0, l1)) \nEND;\n\nUI PointTool(OnL"
 & "ine);\n\n(* Constrains the point \"p\" to be the point on the segment w"
 & "ith \n   endpoints \"l0\" and \"l1\" whose relative position along that"
 & " \n   segment is the value of the slider \"a\", \"b\", \"c\". *)\n\nPRE"
 & "D OnCurve(a, b, c, b0, b1, b2, b3, p) IS \n  (E t = Value(a, b, c) :: p"
 & " = Bezier.AtT(b0, b1, b2, b3, t)) \nEND;\n\nUI PointTool(OnCurve);\n\n("
 & "* Constrains the point \"p\" to be the point on the Bezier curve \n   d"
 & "etermined by \"b0\", \"b1\", \"b2\", and \"b3\" whose relative \n   pos"
 & "ition along that curve is the value of the slider \"a\", \n   \"b\", \""
 & "c\". *)\n\nPRIVATE PRED OnCircle0(a, b, c, c0, c1, p, k) IS \n  (E t = "
 & "k * Value(a, b, c) :: p = (COS(t), SIN(t)) REL (c0, c1)) \nEND;\n\nPRED"
 & " OnCircle(a, b, c, c0, c1, p) IS \n  OnCircle0(a, b, c, c0, c1, p, -2 *"
 & " Math.Pi) \nEND;\n\nPRED OnCircleCC(a, b, c, c0, c1, p) IS \n  OnC";

CONST E72_2 =
   "ircle0(a, b, c, c0, c1, p, 2 * Math.Pi) \nEND;\n\nUI PointTool(OnCircle"
 & ");\n\nUI PointTool(OnCircleCC);\n\n(* The point \"p\" is on the circle "
 & "with center \"c0\" and radius \n   point \"c1\". Its position around th"
 & "e circle measured in the \n   clockwise and counter-clockwise direction"
 & ", respectfully, from \n   \"c1\" is proportional to the value of the sl"
 & "ider \"a\", \"b\", \n   \"c\". *)\n\nPRED OnSemi(a, b, c, c0, c1, p) IS"
 & " \n  OnCircle0(a, b, c, c0, c1, p, -Math.Pi) \nEND;\n\nPRED OnSemiCC(a,"
 & " b, c, c0, c1, p) IS \n  OnCircle0(a, b, c, c0, c1, p, Math.Pi) \nEND;\n"
 & "\nUI PointTool(OnSemi);\n\nUI PointTool(OnSemiCC);\n\n(* The point \"p\""
 & " is on the semi-circle with center \"c0\" and \n   radius point \"c1\"."
 & " Its position around the semi-circle \n   measured in the clockwise and"
 & " counter-clockwise direction, \n   respectfully, from \"c1\" is proport"
 & "ional to the value of the \n   slider \"a\", \"b\", \"c\". *)\n\nPRED O"
 & "nQuarter(a, b, c, c0, c1, p) IS \n  OnCircle0(a, b, c, c0, c1, p, -Math"
 & ".Pi / 2) \nEND;\n\nPRED OnQuarterCC(a, b, c, c0, c1, p) IS \n  OnCircle"
 & "0(a, b, c, c0, c1, p, Math.Pi / 2) \nEND;\n\nUI PointTool(OnQuarter);\n"
 & "\nUI PointTool(OnQuarterCC);\n\n(* The point \"p\" is on the quarter-ci"
 & "rcle with center \"c0\" and \n   radius point \"c1\". Its position arou"
 & "nd the quarter-circle \n   measured in the clockwise and counter-clockw"
 & "ise direction, \n   respectfully, from \"c1\" is proportional to the va"
 & "lue of the \n   slider \"a\", \"b\", \"c\". *)\n\nPRED OnArc(a, b, c, a"
 & "1, a2, a3, p) IS \n  OnCircle0(a, b, c, a2, a1, p, Angle.CC(a1, a2, a3)"
 & ") \nEND;\n\nUI PointTool(OnArc);\n\n(* The point \"p\" is on the direct"
 & "ed circular arc with center \n   \"a2\", starting at \"a1\" and ending "
 & "at the line through \"a1\" \n   and \"a3\". The position of \"p\" along"
 & " the arc is proportional \n   to the value of the slider \"a\", \"b\", "
 & "\"c\". *)\n\nPRED AtAngle1(a, b, c, p, q, max) IS \n  (E t = Value(a, b"
 & ", c), delta = R2.Minus(q, p), dx, dy :: \n    delta = (dx, dy) AND t * "
 & "max = ATAN(dy, dx)) \nEND;\n\n(* The ray \"pq\" forms an angle in the i"
 & "nterval \"[0, max]\" to the \n   horizontal. The angle in that interv";

CONST E72_3 =
   "al is proportional to the \n   value of the slider \"a\", \"b\", \"c\"."
 & " *)\n\nPRED AtAngle2(a, b, c, p, q, min, max) IS \n  (E t = Value(a, b,"
 & " c), t2 = t * (max - min) + min, \n     delta = R2.Minus(q, p), dx, dy "
 & ":: \n    delta = (dx, dy) AND t2 = ATAN(dy, dx)) \nEND;\n\n(* The ray \""
 & "pq\" forms an angle in the interval \"[min, max]\" to \n   the horizont"
 & "al. The angle in that interval is proportional to \n   the value of the"
 & " slider \"a\", \"b\", \"c\". *)\n\n(* \\section{Saving/Restoring State}"
 & " *)\n\nPRIVATE VAR history := NIL;\n\nPROC Save() IS history := ((visib"
 & "ility, valueVis), history) END;\n\nPROC Restore() IS \n  VAR head IN \n"
 & "    head := CAR(history); \n    visibility := CAR(head); \n    valueVis"
 & " := CDR(head) \n  END; \n  history := CDR(history) \nEND;\n\nUI PointTo"
 & "ol(Save);\n\nUI PointTool(Restore);\n\n(* Save/restore the current modu"
 & "le state. *)\n\n";

CONST E73 =
   "% Inserted file: juno-app/src/rsrc/prologue.ps\n% Last modified on Mon "
 & "Oct  9 14:16:28 PDT 1995 by heydon\n\n% The following procedures are us"
 & "ed to lazily redefine fonts to have\n% an ISOLatin1 encoding. This file"
 & " should be inserted in the Prologue\n% section of the PostScript file t"
 & "hat adheres to the DSC.\n\n% Of these procedures, the only one that sho"
 & "uld be used in the body of\n% a document is \"FindFontISO\", which look"
 & "s up the ISOLatin1-encoded\n% version of a font, and lazily creates the"
 & " ISOLatin1-encoded version\n% if it was not defined in the \"FontDirect"
 & "ory\".\n\n% ISOLatin1\n%\n% This defines the ISOLatin1 encoding vector,"
 & " which is defined under\n% the name \"ISOLatin1Encoding\" in Level-2 Po"
 & "stScript, but is defined\n% here for Level-1 compatibility. See Appendi"
 & "ces E.5 and E.7 of the\n% \"PostScript Language Reference Manual\", Sec"
 & "ond Edition.\n%\n/ISOLatin1 [\n/.notdef /.notdef /.notdef /.notdef /.no"
 & "tdef /.notdef /.notdef /.notdef\n/.notdef /.notdef /.notdef /.notdef /."
 & "notdef /.notdef /.notdef /.notdef\n/.notdef /.notdef /.notdef /.notdef "
 & "/.notdef /.notdef /.notdef /.notdef\n/.notdef /.notdef /.notdef /.notde"
 & "f /.notdef /.notdef /.notdef /.notdef\n/space /exclam /quotedbl /number"
 & "sign /dollar /percent /ampersand /quoteright\n/parenleft /parenright /a"
 & "sterisk /plus /comma /minus /period /slash\n/zero /one /two /three /fou"
 & "r /five /six /seven\n/eight /nine /colon /semicolon /less /equal /great"
 & "er /question\n/at /A /B /C /D /E /F /G\n/H /I /J /K /L /M /N /O\n/P /Q "
 & "/R /S /T /U /V /W\n/X /Y /Z /bracketleft /backslash /bracketright /asci"
 & "icircum /underscore\n/quoteleft /a /b /c /d /e /f /g\n/h /i /j /k /l /m"
 & " /n /o\n/p /q /r /s /t /u /v /w\n/x /y /z /braceleft /bar /braceright /"
 & "asciitilde /.notdef\n/.notdef /.notdef /.notdef /.notdef /.notdef /.not"
 & "def /.notdef /.notdef\n/.notdef /.notdef /.notdef /.notdef /.notdef /.n"
 & "otdef /.notdef /.notdef\n/dotlessi /grave /acute /circumflex /tilde /ma"
 & "cron /breve /dotaccent\n/dieresis /.notdef /ring /cedilla /.notdef /hun"
 & "garumlaut /ogonek /caron\n/space /exclamdown /cent /sterling";

CONST E73_0 =
   " /currency /yen /brokenbar /section\n/dieresis /copyright /ordfeminine "
 & "/guillemotleft /logicalnot /hyphen\n  /registered /macron\n/degree /plu"
 & "sminus /twosuperior /threesuperior /acute /mu /paragraph\n  /periodcent"
 & "ered\n/cedilla /onesuperior /ordmasculine /guillemotright /onequarter /"
 & "onehalf\n  /threequarters /questiondown\n/Agrave /Aacute /Acircumflex /"
 & "Atilde /Adieresis /Aring /AE /Ccedilla\n/Egrave /Eacute /Ecircumflex /E"
 & "dieresis /Igrave /Iacute /Icircumflex /Idieresis\n/Eth /Ntilde /Ograve "
 & "/Oacute /Ocircumflex /Otilde /Odieresis /multiply\n/Oslash /Ugrave /Uac"
 & "ute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls\n/agrave /aacute"
 & " /acircumflex /atilde /adieresis /aring /ae /ccedilla\n/egrave /eacute "
 & "/ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis\n/eth /"
 & "ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide\n/oslash"
 & " /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis \n] "
 & "def\n\n% name AppendISO name\n%\n% The result name is the same as the a"
 & "rgument name, but with the\n% string \"-ISO\" appended.\n%\n/AppendISO "
 & "{\n  1 dict begin\n    dup /bigstr exch length 4 add string def\n    du"
 & "p bigstr cvs pop\n    bigstr exch length (-ISO) putinterval\n    bigstr"
 & " cvn\n  end\n} def\n\n% fontname MakeISOLatin1Font -\n%\n% Looks up the"
 & " font \"fontname\", creates a new font identical to it but\n% with the "
 & "ISOLatin1 encoding, and binds the font to the name \"fontname\"\n% conc"
 & "atenated with the string \"-ISO\".\n%\n/MakeISOLatin1Font {\ndup findfo"
 & "nt\ndup length dict begin\n  {1 index /FID ne {def} {pop pop} ifelse} f"
 & "orall\n  /Encoding ISOLatin1 def\n  currentdict\nend\nexch AppendISO ex"
 & "ch\ndefinefont pop\n} def\n\n% fontname FindFontISO font\n%\n% Looks up"
 & " the font with the name \"fontname\" concatenated with the\n% string \""
 & "-ISO\". If that font is not found, it is created from the\n% font named"
 & " \"fontname\" using the \"MakeISOLatin1Font\" operator above.\n% If \"f"
 & "ontname\" is \"Symbol\", then this is equivalent to \"findfont\",\n% si"
 & "nce the Symbol font on X uses the standard encoding.\n%\n/FindFontISO {"
 & "\n  dup /Symbol ne\n ";

CONST E73_1 =
   " { dup FontDirectory exch AppendISO known not\n    { dup MakeISOLatin1F"
 & "ont } if\n    AppendISO\n  } if\n  findfont\n} def\n\n% end prologue.ps"
 & "\n";

CONST E74 =
   "MODULE List;\n\n(* Procedures for manipulating lists *)\n\n(* A value \""
 & "l\" is a list if \"l\" is either NIL or a \n   pair whose CDR is a list"
 & ". A value \"l\" is a proper \n   list if \"l\" is a list other than NIL"
 & ". *)\n\nPROC res := Member(x, l) IS \n  DO l # NIL AND x # CAR(l) -> l "
 & ":= CDR(l) OD; \n  IF l = NIL -> res := NIL | res := x FI \nEND;\n\n(* R"
 & "eturns \"x\" if \"x\" appears as a top-level element \n   of the list \""
 & "l\", and \"NIL\" otherwise. *)\n\nPROC res := Length(l) IS \n  res := 0"
 & "; \n  DO l # NIL -> res := res + 1; l := CDR(l) OD \nEND;\n\n(* Return "
 & "the number of elements of \"l\". If \"l\" is \n   NIL, return 0. A chec"
 & "ked run-time error occurs if \n   \"l\" is not a list. *)\n\nPROC res :"
 & "= Nth(l, n) IS \n  IF \n    n >= 0 -> \n      DO n > 0 -> n := n - 1; l"
 & " := CDR(l) OD; \n      res := CAR(l) \n  FI \nEND;\n\n(* Return the \"n"
 & "\"th element of \"l\", where the first \n   element is numbered zero. A"
 & " checked run-time error \n   occurs if \"l\" is not a proper list or if"
 & " \"n\" is not \n   in the range [0, Length(l)). *)\n\nPROC res := Last("
 & "l) IS \n  DO CDR(l) # NIL -> l := CDR(l) OD; res := CAR(l) \nEND;\n\n(*"
 & " Return the last element of \"l\". A checked run-time \n   error occurs"
 & " if \"l\" is not a proper list. *)\n\nPROC res := Prefix(l, num) IS \n "
 & " IF \n    num <= 0 OR l = NIL -> res := NIL \n  | res := (CAR(l), Prefi"
 & "x(CDR(l), num - 1)) \n  FI \nEND;\n\n(* Return a list of the first \"nu"
 & "m\" elements of \"l\". \n   If \"num <= 0\", return \"NIL\". If \"num >"
 & "= Length(l)\", \n   return (a copy of) \"l\". *)\n\nPROC res := Suffix("
 & "l, num) IS \n  res := SuffixFrom(l, Length(l) - num) \nEND;\n\n(* Retur"
 & "n a list of the last \"num\" elements of \"l\". If \n   \"num <= 0\", r"
 & "eturn \"NIL\". If \"num >= Length(l)\", \n   return \"l\". *)\n\nPROC r"
 & "es := SuffixFrom(l, i) IS \n  DO i > 0 AND l # NIL -> i := i - 1; l := "
 & "CDR(l) OD; \n  res := l \nEND;\n\n(* Return the longest suffix of \"l\""
 & " that does not \n   include its first \"i\" elements. If \"i <= 0\", re"
 & "turn \n   \"l\". If \"i >= Length(l)\", return \"NIL\". *)\n\nPROC res "
 & ":= Reverse(l) IS \n  res := NIL; \n  DO \n    VAR u, v IN \n      l = ("
 & "u, v) -> res :=";

CONST E74_0 =
   " (u, res); l := v \n    END \n  OD \nEND;\n\n(* Return the list contain"
 & "ing the elements of \"l\" in \n   reverse order. If \"l\" is not a pair"
 & ", return NIL. *)\n\nPROC res := Sum(l) IS \n  res := 0; \n  DO l # NIL "
 & "-> res := res + CAR(l); l := CDR(l) OD \nEND;\n\n(* Return the sum of t"
 & "he elements of \"l\". If \"l\" is \n   NIL, return 0. A checked run-tim"
 & "e error occurs if \n   \"l\" is not a list of numbers. *)\n\n";

CONST E75 =
   "MODULE Xform2;\n\n(* Procedures for transforming 2-D points. *)\n\nIMPO"
 & "RT R2;\n\n(* \\subsection{Point Transformations} *)\n\n(* The following"
 & " procedures transform 2-D points \n   into 2-D points. *)\n\nPROC res :"
 & "= Translate(q, p) IS \n  res := R2.Plus(p, q) \nEND;\n\n(* \"res\" is t"
 & "he point \"p\" translated by the vector \n   \"q\". *)\n\nPROC res := S"
 & "cale(scale, p) IS \n  IF \n    VAR sx, sy, px, py IN \n      scale = (s"
 & "x, sy) AND p = (px, py) -> \n        res := (sx * px, sy * py) \n    EN"
 & "D \n  FI \nEND;\n\n(* \"res\" is the point \"p\" scaled about the origi"
 & "n \n   by the scale factor \"scale\", which must be a \n   pair of real"
 & " numbers representing the x- and \n   y-scale factors. *)\n\nPROC res :"
 & "= Rotate(theta, p) IS \n  IF \n    VAR px, py, cos = COS(theta), sin = "
 & "SIN(theta) IN \n      p = (px, py) -> \n        res := \n          (cos"
 & " * px - sin * py, \n           sin * px + cos * py) \n    END \n  FI \n"
 & "END;\n\n(* \"res\" is the point \"p\" rotated by \"theta\" \n   radians"
 & " about the origin. *)\n\n(* \\subsection{Transformation Closures} *)\n\n"
 & "(* The following procedures produce closures that \n   transform 2-D po"
 & "ints into 2-D points. There is \n   also a procedure for composing clos"
 & "ures \n   functionally. \n\n   In the comments for the following proced"
 & "ures, \n   we write \"cl(p)\" as a shorthand for \"APPLY(cl, \n   p)\","
 & " where \"cl\" denotes a closure with one IN \n   parameter and one OUT "
 & "parameter. *)\n\nPROC cl := TranslateCl(q) IS \n  cl := CLOSE(Translate"
 & ", q) \nEND;\n\n(* \"cl\" is a closure such that \"cl(p)\" evaluates \n "
 & "  to \"Translate(q, p)\". *)\n\nPROC cl := ScaleCl(scale) IS \n  cl := "
 & "CLOSE(Scale, scale) \nEND;\n\n(* \"cl\" is a closure such that \"cl(p)\""
 & " evaluates \n   to \"Scale(scale, p)\". *)\n\nPROC cl := RotateCl(theta"
 & ") IS \n  cl := CLOSE(Rotate, theta) \nEND;\n\n(* \"cl\" is a closure su"
 & "ch that \"cl(p)\" evaluates \n   to \"Rotate(theta, p)\". *)\n\nPRIVATE"
 & " PROC res := ComposeClsProc(cl2, cl1, p) IS \n  res := APPLY(cl2, APPLY"
 & "(cl1, p)) \nEND;\n\nPROC cl := ComposeCls(cl2, cl1) IS \n  cl := CLOSE("
 & "ComposeClsProc, cl2, cl1) \nEND;\n\n(* Set \"cl\" to a closure such tha"
 & "t";

CONST E75_0 =
   " \"cl(p)\" is \n   equivalent to \"cl2(cl1(p))\". *)\n\n";

CONST E76 =
   "MODULE R2;\n\nIMPORT Math;\n\n(* Arithmetic functions on 2D real \n   v"
 & "ectors.\n\n   See also: \"C\", \"Math\". *)\n\nCONST Origin = (0,0);\n\n"
 & "(* \"Origin\" is the origin in 2-space. *)\n\nPRED AtOrigin(p) IS\n  p "
 & "= Origin\nEND;\n\nUI PointTool(AtOrigin);\n\n(* The point \"p\" is at t"
 & "he origin. The Juno-2 application\n   arranges that the origin of the J"
 & "uno coordinate system\n   is always in the center of the drawing view, "
 & "and always\n   at the center of a printed page. *)\n\nFUNC r = Plus(p, "
 & "q) IS \n  (E px, py, qx, qy :: \n    p = (px, py) AND \n    q = (qx, qy"
 & ") AND \n    r = (px + qx, py + qy)) \nEND;\n\n(* \"r\" is the vector su"
 & "m \"p\" + \"q\". \n*)\n\nFUNC r = PlusX(p, x) IS\n  (E px, py ::\n    p"
 & " = (px, py) AND\n    r = (px + x, py))\nEND;\n\n(* Equivalent to \"r = "
 & "Plus(p, (x, 0))\". *)\n\nFUNC r = PlusY(p, y) IS\n  (E px, py ::\n    p"
 & " = (px, py) AND\n    r = (px, py + y))\nEND;\n\n(* Equivalent to \"r = "
 & "Plus(p, (0, y))\". *)\n\nFUNC r = Minus(p, q) IS \n  (E px, py, qx, qy "
 & ":: \n    p = (px, py) AND \n    q = (qx, qy) AND \n    r = (px - qx, py"
 & " - qy)) \nEND;\n\n(* \"r\" is the vector difference \"p\" \n   - \"q\"."
 & " *)\n\nFUNC r = MinusX(p, x) IS\n  (E px, py ::\n    p = (px, py) AND\n"
 & "    r = (px - x, py))\nEND;\n\n(* Equivalent to \"r = Minus(p, (x, 0))\""
 & ". *)\n\nFUNC r = MinusY(p, y) IS\n  (E px, py ::\n    p = (px, py) AND\n"
 & "    r = (px, py - y))\nEND;\n\n(* Equivalent to \"r = Minus(p, (0, y))\""
 & ". *)\n\nFUNC p = Times(t, q) IS \n  (E px, py, qx, qy :: \n    p = (px,"
 & " py) AND \n    q = (qx, qy) AND \n    px = t * qx AND \n    py = t * qy"
 & ") \nEND;\n\n(* \"p\" is the product of the scalar \n   \"t\" and the ve"
 & "ctor \"q\". *)\n\nFUNC len2 = Length2(v) IS \n  (E vx, vy :: \n    v = "
 & "(vx, vy) AND \n    len2 = (vx * vx) + (vy * vy))\nEND;\n\n(* \"len2\" i"
 & "s the square of the Euclidean\n   length of the vector \"v\". *)\n\nFUN"
 & "C len = Length(v) IS \n  len = Math.Sqrt(Length2(v))\nEND;\n\n(* \"len\""
 & " is the Euclidean length of the\n   vector \"v\". *)\n\nFUNC u = Normal"
 & "ize(v) IS\n  Times(Length(v), u) = v\nEND;\n\n(* \"u\" is the vector \""
 & "v\" normalized\n   to have unit length. *)\n\nFUNC t = Dot(p, q) IS \n "
 & " (E px, py, qx, qy :: ";

CONST E76_0 =
   "\n    p = (px, py) AND \n    q = (qx, qy) AND \n    t = px * qx + py * "
 & "qy) \nEND;\n\n(* The scalar \"t\" is the \n   dot-product of \"p\" and "
 & "\"q\". *)\n\nFUNC t = Det(p, q) IS \n  (E px, py, qx, qy :: \n    p = ("
 & "px, py) AND \n    q = (qx, qy) AND \n    t = px * qy - py * qx) \nEND;\n"
 & "\n(* The scalar \"t\" is the \n   determinant of the 2x2 matrix \n   \""
 & "(p q)\", where \"p\" and \"q\" are \n   column vectors. *)\n\n";

CONST E77 =
   "; Copyright (C) 1992, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n;                                                 "
 & "                          \n; Last modified on Mon Oct  3 11:00:21 PDT "
 & "1994 by heydon                   \n\n(Rim (Pen 5)\n  (Macro Gap () \'(G"
 & "lue 5))\n  (Shape\n    (Height2 300)\n    (Width2 80)\n    (VBox\n     "
 & " (Border\n        (Browser %moduleBrowser\n          (MyBrowserFont)\n "
 & "         (BgColor \"White\")\n        )\n      )\n    )\n  )\n)\n";

CONST E78 =
   "MODULE Curve;\n\n(* Define curves by sequences of points. *)\n\nIMPORT "
 & "List, R2, Bezier, Geometry, PS;\n\n/* The implementation of the \"Fit\""
 & " procedure was \n   taken from the book \"Graphic Gems\", edited by \n "
 & "  Andrew S. Glassner and published by AP \n   Professional, New York, 1"
 & "990. The algorithm is \n   described in the section \"An Algorithm for "
 & "\n   Automatically Fitting Digitized Curves\" by Philip \n   J. Schneid"
 & "er, pp. 612-626. */\n\nCONST DefaultErrorBound = 20;\n\n(* This module "
 & "maintains a current error bound, \n   which is used by the \"Fit\" (and"
 & " hence the \n   \"EndPoints\") procedures below. *)\n\nPRIVATE VAR erro"
 & "rBound := DefaultErrorBound;\n\nPRIVATE CONST MinErrorBound = 1;\n\n/* "
 & "A lower bound on the minimum allowed error bound. \n*/\n\nPROC SetError"
 & "Bound(errBnd) IS \n  IF \n    errBnd < MinErrorBound -> errBnd := MinEr"
 & "rorBound \n  | SKIP \n  FI; \n  errorBound := errBnd \nEND;\n\nUI SetTo"
 & "ol(SetErrorBound);\n\n(* Set the current error bound to \"errBnd\". *)\n"
 & "\nUI Param(SetErrorBound, DefaultErrorBound);\n\nUI Param(SetErrorBound"
 & ", 5);\n\nUI Param(SetErrorBound, 10);\n\nUI Param(SetErrorBound, 20);\n"
 & "\nUI Param(SetErrorBound, 50);\n\nUI Param(SetErrorBound, 100);\n\nUI P"
 & "aram(SetErrorBound, 200);\n\nUI Param(SetErrorBound, 500);\n\nPRIVATE C"
 & "ONST MaxIterations = 1, False = 0, True = 1;\n\n/* MISCELLANEOUS FUNCTI"
 & "ONS */\n\nPRIVATE FUNC ie = IterationError(error) IS \n  ie = 5 * error"
 & " \nEND;\n\nPRIVATE PROC v:Inc(x) IS v := v + x END;\n\nPRIVATE FUNC res"
 & " = Sum3(a, b, c) IS \n  res = R2.Plus(a, R2.Plus(b, c)) \nEND;\n\nPRIVA"
 & "TE FUNC res = Sum4(a, b, c, d) IS \n  res = R2.Plus(a, R2.Plus(b, R2.Pl"
 & "us(c, d))) \nEND;\n\nPRIVATE PROC res := B0(t) IS \n  VAR x IN x := 1 -"
 & " t; res := x * x * x END \nEND;\n\nPRIVATE PROC res := B1(t) IS \n  VAR"
 & " x IN x := 1 - t; res := 3 * t * x * x END \nEND;\n\nPRIVATE PROC res :"
 & "= B2(t) IS \n  res := 3 * t * t * (1 - t) \nEND;\n\nPRIVATE PROC res :="
 & " B3(t) IS res := t * t * t END;\n\n/* ROUTINES FOR OPTIMIZING TIMESTAMP"
 & "S */\n\nPRIVATE PROC res := ImproveTimeStamp(pt, bez, ts) IS \n  IF \n "
 & "   VAR a, b, c, d, p1, p2, p3 IN \n      bez";

CONST E78_0 =
   " = [a, b, c, d] AND \n      Bezier.MapRep(a, b, c, d, p1, p2, p3) -> \n"
 & "        IF \n          VAR tsPrime ~ ts IN \n            0 = \n        "
 & "      R2.Dot(R2.Minus(pt, \n                              Bezier.AtTFro"
 & "mCoeffs(a, \n                                                   p1, \n "
 & "                                                  p2, \n               "
 & "                                    p3, \n                             "
 & "                      tsPrime)), \n                     Bezier.PrimeAtT"
 & "FromCoeffs(a, \n                                               p1, \n  "
 & "                                             p2, \n                    "
 & "                           p3, \n                                      "
 & "         tsPrime)) -> \n              res := tsPrime \n          END \n"
 & "        FI \n    END \n  FI \nEND;\n\nPRIVATE PROC res := Reparameteriz"
 & "e(pts, ts, bez) IS \n  res := NIL; \n  DO \n    pts # NIL -> \n      re"
 & "s := \n        (ImproveTimeStamp(CAR(pts), bez, CAR(ts)), \n         re"
 & "s); \n      pts, ts := CDR(pts), CDR(ts) \n  OD; \n  res := List.Revers"
 & "e(res) \nEND;\n\n/* ROUTINES FOR DOING RECURSIVE SPLIT */\n\nPRIVATE PR"
 & "OC \n  res := ComputeCenterTangent(pts, middle) IS \n  pts := List.Suff"
 & "ixFrom(pts, middle - 1); \n  res := \n    R2.Normalize(R2.Minus(CAR(pts"
 & "), List.Nth(pts, 2))) \nEND;\n\n/* Requires \"3 <= List.Length(pts)\" a"
 & "nd \"1 <= middle \n   < List.Length(pts) -1\" */\n\nPRIVATE PROC l, r :"
 & "= Split(pts, middle) IS \n  l := List.Prefix(pts, middle + 1); \n  r :="
 & " List.SuffixFrom(pts, middle) \nEND;\n\n/* BASIC ROUTINES */\n\nPRIVATE"
 & " PROC AppendBezier(bez) IS \n  IF \n    VAR p0, p1, p2, p3 IN \n      b"
 & "ez = [p0, p1, p2, p3] -> \n        PS.CurveTo(p1, p2, p3) \n    END \n "
 & " FI \nEND;\n\n/* Requires \"2 <= List.Size(pts)\" */\n\nPRIVATE PROC \n"
 & "  bez := BezHeuristic(pts, tHat1, tHat2) IS \n  VAR dist IN \n    dist "
 & ":= \n      Geometry.Dist(CAR(pts), List.Last(pts)) / 3; \n    bez := Be"
 & "zCurve(pts, tHat1, tHat2, dist, dist) \n  END \nEND;\n\n/* Requires \"2"
 & " <= List.Size(pts)\" */\n\nPRIVATE PROC ts := ChordLengthTimeStamps(pts"
 & ") IS \n  VAR dists = [0], ";

CONST E78_1 =
   "prev IN \n    prev, pts := CAR(pts), CDR(pts); \n    DO \n      pts # N"
 & "IL -> \n        dists := \n          (CAR(dists) + Geometry.Dist(prev, "
 & "CAR(pts)), \n           dists); \n        prev, pts := CAR(pts), CDR(pt"
 & "s) \n    OD; \n    VAR sum IN \n      sum := CAR(dists); \n      ts := "
 & "NIL; \n      DO \n        dists # NIL -> \n          ts := (CAR(dists) "
 & "/ sum, ts); \n          dists := CDR(dists) \n      OD \n    END \n  EN"
 & "D \nEND;\n\n/* Set \"ts\" to a list of the approximate timestamps \n   "
 & "for the list points \"pts\". The timestamps are \n   monotonically incr"
 & "easing in the interval [0, 1]. \n*/\n\nPRIVATE PROC \n  a1, a2 := Compu"
 & "teMagnitudesA(ts, tHat1, tHat2) IS \n  a1, a2, ts := NIL, NIL, List.Rev"
 & "erse(ts); \n  DO \n    ts # NIL -> \n      a1 := (R2.Times(B1(CAR(ts)),"
 & " tHat1), a1); \n      a2 := (R2.Times(B2(CAR(ts)), tHat2), a2); \n     "
 & " ts := CDR(ts) \n  OD \nEND;\n\nPRIVATE PROC \n  c00, c01, c10, c11, x0"
 & ", x1 := \n    ComputeMagnitudesCX(pts, ts, tHat1, tHat2) IS \n  VAR a1,"
 & " a2, ptFirst, ptLast IN \n    a1, a2 := ComputeMagnitudesA(ts, tHat1, t"
 & "Hat2); \n    ptFirst, ptLast := CAR(pts), List.Last(pts); \n    c00, c0"
 & "1, c10, c11, x0, x1 := 0, 0, 0, 0, 0, 0; \n    DO \n      pts # NIL -> "
 & "\n        c00:Inc(R2.Dot(CAR(a1), CAR(a1))); \n        VAR k IN \n     "
 & "     k := R2.Dot(CAR(a1), CAR(a2)); \n          c01:Inc(k); \n         "
 & " c10:Inc(k) \n        END; \n        c11:Inc(R2.Dot(CAR(a2), CAR(a2)));"
 & " \n        VAR v IN \n          v := \n            R2.Minus(CAR(pts), \n"
 & "                     Sum4(R2.Times(B0(CAR(ts)), \n                     "
 & "              ptFirst), \n                          R2.Times(B1(CAR(ts)"
 & "), \n                                   ptFirst), \n                   "
 & "       R2.Times(B2(CAR(ts)), \n                                   ptLas"
 & "t), \n                          R2.Times(B3(CAR(ts)), \n               "
 & "                    ptLast))); \n          x0:Inc(R2.Dot(CAR(a1), v)); "
 & "\n          x1:Inc(R2.Dot(CAR(a2), v)) \n        END; \n        pts, ts"
 & " := CDR(pts), CDR(ts); \n        a1, a2 := CDR(a1), CDR(a2) \n    OD \n"
 & "  END \nEND;\n\nP";

CONST E78_2 =
   "RIVATE PROC \n  detc0c1, detc0x, detxc1 := \n    ComputeDeterminants(pt"
 & "s, ts, tHat1, tHat2) IS \n  VAR c00, c01, c10, c11, x0, x1 IN \n    c00"
 & ", c01, c10, c11, x0, x1 := \n      ComputeMagnitudesCX(pts, ts, tHat1, "
 & "tHat2); \n    detc0c1 := c00 * c11 - c10 * c01; \n    detc0x := c00 * x"
 & "1 - c01 * x0; \n    detxc1 := x0 * c11 - x1 * c01; \n    IF \n      det"
 & "c0c1 = 0 -> detc0c1 := c00 * c11 * 1e-11 \n    | SKIP \n    FI \n  END "
 & "\nEND;\n\nPRIVATE PROC \n  l, r := ComputeMagnitudes(pts, ts, tHat1, tH"
 & "at2) IS \n  VAR detc0c1, detc0x, detxc1 IN \n    detc0c1, detc0x, detxc"
 & "1 := \n      ComputeDeterminants(pts, ts, tHat1, tHat2); \n    l := det"
 & "xc1 / detc0c1; \n    r := detc0x / detc0c1 \n  END \nEND;\n\nPRIVATE PR"
 & "OC \n  bez := BezCurve(pts, tHat1, tHat2, d1, d2) IS \n  VAR p0, p3 IN "
 & "\n    p0, p3 := CAR(pts), List.Last(pts); \n    bez := \n      [p0, R2."
 & "Plus(p0, R2.Times(d1, tHat1)), \n       R2.Plus(p3, R2.Times(d2, tHat2)"
 & "), p3] \n  END \nEND;\n\nPRIVATE PROC \n  bez := GenerateBezier(pts, ts"
 & ", tHat1, tHat2) IS \n  VAR alphaL, alphaR IN \n    alphaL, alphaR := \n"
 & "      ComputeMagnitudes(pts, ts, tHat1, tHat2); \n    IF \n      alphaL"
 & " < 0 OR alphaR < 0 -> \n        bez := BezHeuristic(pts, tHat1, tHat2) "
 & "\n    | bez := \n        BezCurve(pts, tHat1, tHat2, alphaL, alphaR) \n"
 & "    FI \n  END \nEND;\n\nPRIVATE PROC cl := BezClosure(bez) IS \n  IF \n"
 & "    VAR p0, p1, p2, p3 IN \n      bez = [p0, p1, p2, p3] -> \n        c"
 & "l := Bezier.Closure(p0, p1, p2, p3) \n    END \n  FI \nEND;\n\nPRIVATE "
 & "PROC \n  maxError, splitPoint := \n    ComputeMaxError(pts, bez, ts) IS"
 & " \n  VAR cl, dist, i, point IN \n    cl := BezClosure(bez); \n    pts, "
 & "ts, i := CDR(pts), CDR(ts), 1; \n    maxError := 0; \n    DO \n      CD"
 & "R(pts) # NIL -> \n        point := APPLY(cl, CAR(ts)); \n        dist :"
 & "= Geometry.Dist2(CAR(pts), point); \n        IF \n          maxError <="
 & " dist -> \n            maxError, splitPoint := dist, i | SKIP \n       "
 & " FI; \n        pts, ts, i := CDR(pts), CDR(ts), i + 1 \n    OD \n  END "
 & "\nEND;\n\n/* Requires \"3 <= List.Length(pts)\" and \n   \"List.Length("
 & "pts) = List.Length(ts)\"";

CONST E78_3 =
   " */\n\nPRIVATE PROC \n  DrawCubicMany(pts, tHat1, tHat2, error) IS \n  "
 & "VAR ts, bez, maxError, splitPoint, i, done = False IN \n    ts := Chord"
 & "LengthTimeStamps(pts); \n    bez := GenerateBezier(pts, ts, tHat1, tHat"
 & "2); \n    maxError, splitPoint := \n      ComputeMaxError(pts, bez, ts)"
 & "; \n    IF \n      maxError < error -> \n        AppendBezier(bez); don"
 & "e := True \n    | maxError < IterationError(error) -> \n        i := 0;"
 & " \n        DO \n          done = False AND i < MaxIterations -> \n     "
 & "       ts := Reparameterize(pts, ts, bez); \n            bez := \n     "
 & "         GenerateBezier(pts, ts, tHat1, tHat2); \n            maxError,"
 & " splitPoint := \n              ComputeMaxError(pts, bez, ts); \n       "
 & "     IF \n              maxError < error -> \n                AppendBez"
 & "ier(bez); done := True \n            | i := i + 1 \n            FI \n  "
 & "      OD | SKIP \n    FI; \n    IF \n      done = False -> \n        VA"
 & "R \n          tHatCenter \n        = ComputeCenterTangent(pts, splitPoi"
 & "nt), \n          leftPts, rightPts \n        IN \n          leftPts, ri"
 & "ghtPts := Split(pts, splitPoint); \n          DrawCubic(leftPts, tHat1,"
 & " tHatCenter, error); \n          tHatCenter := R2.Times(-1, tHatCenter)"
 & "; \n          DrawCubic(rightPts, tHatCenter, tHat2, \n                "
 & "    error) \n        END | SKIP \n    FI \n  END \nEND;\n\nPRIVATE PROC"
 & " res := ComputeLeftTangent(pts) IS \n  res := \n    R2.Normalize(R2.Min"
 & "us(List.Nth(pts, 1), \n                          List.Nth(pts, 0))) \nE"
 & "ND;\n\n/* Requires \"2 <= List.Size(pts)\" */\n\nPRIVATE PROC res := Co"
 & "mputeRightTangent(pts) IS \n  res := ComputeLeftTangent(List.Reverse(pt"
 & "s)) \nEND;\n\n/* Requires \"2 <= List.Size(pts)\" */\n\nPRIVATE PROC Dr"
 & "awCubic(pts, tHat1, tHat2, error) IS \n  IF \n    List.Length(pts) = 2 "
 & "-> \n      AppendBezier(BezHeuristic(pts, tHat1, tHat2)) \n  | DrawCubi"
 & "cMany(pts, tHat1, tHat2, error) \n  FI \nEND;\n\nPROC FitPointList(pts)"
 & " IS \n  VAR len IN \n    len := List.Length(pts); \n    PS.MoveTo(CAR(p"
 & "ts)); \n    IF \n      len = 1 -> SKIP \n    | len = 2 -> PS.LineTo(CAR"
 & "(CDR(pts))) \n    |";

CONST E78_4 =
   " len > 2 -> \n        DrawCubic(pts, ComputeLeftTangent(pts), \n       "
 & "           ComputeRightTangent(pts), \n                  errorBound) \n"
 & "    FI \n  END \nEND;\n\n(* Augment the current path with a sequence of"
 & " \n   connected Bezier curves that approximate the \n   points in the n"
 & "onempty list \"pts\". The sum of the \n   squared distances of the give"
 & "n points to the \n   constructed curve is at most the current error \n "
 & "  bound. *)\n\nPRIVATE VAR ptList := NIL;\n\n/* The list of points augm"
 & "ented, used, and reset by \n   the \"AddPoint\" and \"FitPoints\" proce"
 & "dures. */\n\n(* This module maintains a list of points, initially \n   "
 & "empty. Use the \"AddPoint\" procedure to append a \n   point to the lis"
 & "t, and the \"FitPoints\" procedure \n   to draw a curve through the poi"
 & "nts. *)\n\nPROC AddPoint(p) IS ptList := (p, ptList) END;\n\nUI PointTo"
 & "ol(AddPoint);\n\n(* Add the point \"p\" to the current list of points. "
 & "\n*)\n\nPROC FitPoints() IS \n  FitPointList(List.Reverse(ptList)); ptL"
 & "ist := NIL \nEND;\n\nUI PointTool(FitPoints);\n\n(* Equivalent to \"Fit"
 & "PointList(l)\", where \"l\" is the \n   current list of points. On exit"
 & ", the current list \n   of points is reset to the empty list. *)\n\nPRI"
 & "VATE VAR history := NIL;\n\nPROC Save() IS \n  history := ((errorBound,"
 & " ptList), history) \nEND;\n\nPROC Restore() IS \n  IF \n    VAR hd, tl "
 & "IN \n      history = (hd, tl) -> \n        errorBound := CAR(hd); \n   "
 & "     ptList := CDR(hd); \n        history := tl \n    END \n  FI \nEND;"
 & "\n\nUI PointTool(Save);\n\nUI PointTool(Restore);\n\n(* Save/restore th"
 & "e current error bound and point \n   list. *)\n\n";

BEGIN
END JunoBundle.