blob: b748e6b101462f8f4d57bde808364cb53c5ae8b7 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 63 6f 6e	ptimizations...;;;.This.file.con
0060	74 61 69 6e 73 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 49 20 63 68 61 72 61 63 74 65 72 73	tains.utf-8.non-ASCII.characters
0080	2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 6e 6f 74 20 62 65 20 6c 6f 61 64 65 64 20 69 6e	,.;;;.and.so.cannot.be.loaded.in
00a0	74 6f 20 45 6d 61 63 73 20 32 32 20 6f 72 20 65 61 72 6c 69 65 72 2e 0a 28 61 6e 64 20 28 62 6f	to.Emacs.22.or.earlier..(and.(bo
00c0	75 6e 64 70 20 27 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 28 3c 20 28 61 72	undp.'emacs-version)......(<.(ar
00e0	65 66 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 65 6d 61	ef.emacs-version.(1-.(length.ema
0100	63 73 2d 76 65 72 73 69 6f 6e 29 29 29 20 3f 41 29 0a 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6c	cs-version))).?A)......(string-l
0120	65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 32 33 22 29 0a 20 20 20 20 20 28 65	essp.emacs-version."23")......(e
0140	72 72 6f 72 20 22 60 25 73 27 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 20 45 6d 61 63	rror."`%s'.was.compiled.for.Emac
0160	73 20 32 33 20 6f 72 20 6c 61 74 65 72 22 20 23 24 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	s.23.or.later".#$))..;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 72 65 71 75 69 72 65 20 27 63	;;;;;;;;;;;;;;;;;;...(require.'c
01a0	6c 2d 6c 69 62 29 0a 23 40 34 33 35 20 52 65 6d 6f 76 65 20 77 68 69 74 65 73 70 61 63 65 20 61	l-lib).#@435.Remove.whitespace.a
01c0	72 6f 75 6e 64 20 53 54 52 49 4e 47 2e 0a 0a 41 20 57 68 69 74 65 73 70 61 63 65 20 63 68 61 72	round.STRING...A.Whitespace.char
01e0	61 63 74 65 72 20 69 73 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 65 20 48 61 73 6b 65 6c 6c 20	acter.is.defined.in.the.Haskell.
0200	52 65 70 6f 72 74 20 61 73 20 66 6f 6c 6c 6f 77 73 0a 0a 20 20 77 68 69 74 65 63 68 61 72 20 2d	Report.as.follows....whitechar.-
0220	3e 20 6e 65 77 6c 69 6e 65 20 7c 20 76 65 72 74 61 62 20 7c 20 73 70 61 63 65 20 7c 20 74 61 62	>.newline.|.vertab.|.space.|.tab
0240	20 7c 20 75 6e 69 57 68 69 74 65 0a 20 20 6e 65 77 6c 69 6e 65 20 20 20 2d 3e 20 72 65 74 75 72	.|.uniWhite...newline...->.retur
0260	6e 20 6c 69 6e 65 66 65 65 64 20 7c 20 72 65 74 75 72 6e 20 7c 20 6c 69 6e 65 66 65 65 64 20 7c	n.linefeed.|.return.|.linefeed.|
0280	20 66 6f 72 6d 66 65 65 64 0a 20 20 75 6e 69 57 68 69 74 65 20 20 2d 3e 20 61 6e 79 20 55 6e 69	.formfeed...uniWhite..->.any.Uni
02a0	63 6f 64 65 20 63 68 61 72 61 63 74 65 72 20 64 65 66 69 6e 65 64 20 61 73 20 77 68 69 74 65 73	code.character.defined.as.whites
02c0	70 61 63 65 0a 0a 4e 6f 74 65 3a 20 54 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 63	pace..Note:.The.implementation.c
02e0	75 72 72 65 6e 74 6c 79 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 73 20 41 53 43 49 49 0a 20 20 20	urrently.only.supports.ASCII....
0300	20 20 20 77 68 69 74 65 2d 73 70 61 63 65 20 63 68 61 72 61 63 74 65 72 73 2c 20 69 2e 65 2e 20	...white-space.characters,.i.e..
0320	74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 69 6f 6e 20 64 6f 65 73 6e 27 74 0a 20 20 20 20 20 20 63	the.implemention.doesn't.......c
0340	6f 6e 73 69 64 65 72 20 75 6e 69 57 68 69 74 65 2e 0a 0a 28 66 6e 20 53 54 52 49 4e 47 29 1f 0a	onsider.uniWhite...(fn.STRING)..
0360	28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 72 69 6d 20 23	(defalias.'haskell-string-trim.#
0380	5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 33 10 00 5c 33 30 32 5c 33 30 33 5c	[257."\300\301.\"\203..\302\303\
03a0	33 30 34 5c 32 31 31 04 24 5c 32 30 32 11 00 5c 32 31 31 5c 33 30 30 5c 33 30 35 02 5c 22 5c 32	304\211.$\202..\211\300\305.\"\2
03c0	30 33 21 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 04 24 5c 32 30 32 5c 22 00 5c 32 31	03!.\302\303\304\211.$\202\".\21
03e0	31 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 09 5c 6e 0b 5c 66 0d 20 5d	1\207".[string-match."[.\n.\f..]
0400	2b 5c 5c 27 22 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 74 20 22 5c 5c 60 5b 09 5c	+\\'".replace-match."".t."\\`[.\
0420	6e 0b 5c 66 0d 20 5d 2b 22 5d 20 37 20 28 23 24 20 2e 20 34 32 39 29 5d 29 0a 23 40 37 33 20 52	n.\f..]+"].7.(#$...429)]).#@73.R
0440	65 74 75 72 6e 20 74 20 69 66 20 53 54 52 49 4e 47 20 63 6f 6e 74 61 69 6e 73 20 6f 6e 6c 79 20	eturn.t.if.STRING.contains.only.
0460	77 68 69 74 65 73 70 61 63 65 20 28 6f 72 20 69 73 20 65 6d 70 74 79 29 2e 0a 0a 28 66 6e 20 53	whitespace.(or.is.empty)...(fn.S
0480	54 52 49 4e 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e	TRING)..(defalias.'haskell-strin
04a0	67 2d 6f 6e 6c 79 2d 73 70 61 63 65 73 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30	g-only-spaces-p.#[257."\300.!\30
04c0	31 5c 32 33 30 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 72 69 6d 20	1\230\207".[haskell-string-trim.
04e0	22 22 5d 20 33 20 28 23 24 20 2e 20 31 30 38 37 29 5d 29 0a 23 40 36 38 20 52 65 74 75 72 6e 20	""].3.(#$...1087)]).#@68.Return.
0500	28 75 70 20 74 6f 29 20 4e 20 63 68 61 72 61 63 74 65 72 20 6c 65 6e 67 74 68 20 70 72 65 66 69	(up.to).N.character.length.prefi
0520	78 20 6f 66 20 53 54 52 49 4e 47 2e 0a 0a 28 66 6e 20 53 54 52 49 4e 47 20 4e 29 1f 0a 28 64 65	x.of.STRING...(fn.STRING.N)..(de
0540	66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 61 6b 65 20 23 5b 35 31	falias.'haskell-string-take.#[51
0560	34 20 22 01 5c 33 30 30 03 47 03 5e 4f 5c 32 30 37 22 20 5b 30 5d 20 36 20 28 23 24 20 2e 20 31	4.".\300.G.^O\207".[0].6.(#$...1
0580	32 37 33 29 5d 29 0a 23 40 37 37 20 41 72 72 61 79 20 6f 66 20 65 6e 63 6f 64 69 6e 67 73 20 66	273)]).#@77.Array.of.encodings.f
05a0	6f 72 20 37 2d 62 69 74 20 41 53 43 49 49 20 63 68 61 72 61 63 74 65 72 20 70 6f 69 6e 74 73 20	or.7-bit.ASCII.character.points.
05c0	69 6e 64 65 78 65 64 20 62 79 20 41 53 43 49 49 20 76 61 6c 75 65 2e 1f 0a 28 64 65 66 63 6f 6e	indexed.by.ASCII.value...(defcon
05e0	73 74 20 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 65 6e 63 6f 64 65	st.haskell-string-literal-encode
0600	2d 61 73 63 69 69 2d 61 72 72 61 79 20 5b 22 5c 5c 4e 55 4c 22 20 22 5c 5c 53 4f 48 22 20 22 5c	-ascii-array.["\\NUL"."\\SOH"."\
0620	5c 53 54 58 22 20 22 5c 5c 45 54 58 22 20 22 5c 5c 45 4f 54 22 20 22 5c 5c 45 4e 51 22 20 22 5c	\STX"."\\ETX"."\\EOT"."\\ENQ"."\
0640	5c 41 43 4b 22 20 22 5c 5c 61 22 20 22 5c 5c 62 22 20 22 5c 5c 74 22 20 22 5c 5c 6e 22 20 22 5c	\ACK"."\\a"."\\b"."\\t"."\\n"."\
0660	5c 76 22 20 22 5c 5c 66 22 20 22 5c 5c 72 22 20 22 5c 5c 53 4f 22 20 22 5c 5c 53 49 22 20 22 5c	\v"."\\f"."\\r"."\\SO"."\\SI"."\
0680	5c 44 4c 45 22 20 22 5c 5c 44 43 31 22 20 22 5c 5c 44 43 32 22 20 22 5c 5c 44 43 33 22 20 22 5c	\DLE"."\\DC1"."\\DC2"."\\DC3"."\
06a0	5c 44 43 34 22 20 22 5c 5c 4e 41 4b 22 20 22 5c 5c 53 59 4e 22 20 22 5c 5c 45 54 42 22 20 22 5c	\DC4"."\\NAK"."\\SYN"."\\ETB"."\
06c0	5c 43 41 4e 22 20 22 5c 5c 45 4d 22 20 22 5c 5c 53 55 42 22 20 22 5c 5c 45 53 43 22 20 22 5c 5c	\CAN"."\\EM"."\\SUB"."\\ESC"."\\
06e0	46 53 22 20 22 5c 5c 47 53 22 20 22 5c 5c 52 53 22 20 22 5c 5c 55 53 22 20 22 20 22 20 22 21 22	FS"."\\GS"."\\RS"."\\US"."."."!"
0700	20 22 5c 5c 5c 22 22 20 22 23 22 20 22 24 22 20 22 25 22 20 22 26 22 20 22 27 22 20 22 28 22 20	."\\\""."#"."$"."%"."&"."'"."(".
0720	22 29 22 20 22 2a 22 20 22 2b 22 20 22 2c 22 20 22 2d 22 20 22 2e 22 20 22 2f 22 20 22 30 22 20	")"."*"."+".","."-"."."."/"."0".
0740	22 31 22 20 22 32 22 20 22 33 22 20 22 34 22 20 22 35 22 20 22 36 22 20 22 37 22 20 22 38 22 20	"1"."2"."3"."4"."5"."6"."7"."8".
0760	22 39 22 20 22 3a 22 20 22 3b 22 20 22 3c 22 20 22 3d 22 20 22 3e 22 20 22 3f 22 20 22 40 22 20	"9".":".";"."<"."=".">"."?"."@".
0780	22 41 22 20 22 42 22 20 22 43 22 20 22 44 22 20 22 45 22 20 22 46 22 20 22 47 22 20 22 48 22 20	"A"."B"."C"."D"."E"."F"."G"."H".
07a0	22 49 22 20 22 4a 22 20 22 4b 22 20 22 4c 22 20 22 4d 22 20 22 4e 22 20 22 4f 22 20 22 50 22 20	"I"."J"."K"."L"."M"."N"."O"."P".
07c0	22 51 22 20 22 52 22 20 22 53 22 20 22 54 22 20 22 55 22 20 22 56 22 20 22 57 22 20 22 58 22 20	"Q"."R"."S"."T"."U"."V"."W"."X".
07e0	22 59 22 20 22 5a 22 20 22 5b 22 20 22 5c 5c 5c 5c 22 20 22 5d 22 20 22 5e 22 20 22 5f 22 20 22	"Y"."Z"."["."\\\\"."]"."^"."_"."
0800	60 22 20 22 61 22 20 22 62 22 20 22 63 22 20 22 64 22 20 22 65 22 20 22 66 22 20 22 67 22 20 22	`"."a"."b"."c"."d"."e"."f"."g"."
0820	68 22 20 22 69 22 20 22 6a 22 20 22 6b 22 20 22 6c 22 20 22 6d 22 20 22 6e 22 20 22 6f 22 20 22	h"."i"."j"."k"."l"."m"."n"."o"."
0840	70 22 20 22 71 22 20 22 72 22 20 22 73 22 20 22 74 22 20 22 75 22 20 22 76 22 20 22 77 22 20 22	p"."q"."r"."s"."t"."u"."v"."w"."
0860	78 22 20 22 79 22 20 22 7a 22 20 22 7b 22 20 22 7c 22 20 22 7d 22 20 22 7e 22 20 22 5c 5c 44 45	x"."y"."z"."{"."|"."}"."~"."\\DE
0880	4c 22 5d 20 28 23 24 20 2e 20 31 34 32 30 29 29 0a 23 40 33 33 36 20 45 6e 63 6f 64 65 20 53 54	L"].(#$...1420)).#@336.Encode.ST
08a0	52 20 61 63 63 6f 72 64 69 6e 67 20 48 61 73 6b 65 6c 6c 20 65 73 63 61 70 65 20 72 75 6c 65 73	R.according.Haskell.escape.rules
08c0	20 75 73 69 6e 67 20 37 2d 62 69 74 20 41 53 43 49 49 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f	.using.7-bit.ASCII.representatio
08e0	6e 2e 0a 0a 54 68 65 20 73 65 72 69 61 6c 69 7a 61 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 69	n...The.serialization.has.been.i
0900	6d 70 6c 65 6d 65 6e 74 65 64 20 74 6f 20 63 6c 6f 73 65 6c 79 20 6d 61 74 63 68 20 74 68 65 0a	mplemented.to.closely.match.the.
0920	62 65 68 61 76 69 6f 75 72 20 6f 66 20 47 48 43 27 73 20 53 68 6f 77 20 69 6e 73 74 61 6e 63 65	behaviour.of.GHC's.Show.instance
0940	20 66 6f 72 20 53 74 72 69 6e 67 73 2e 0a 0a 49 66 20 4e 4f 2d 51 55 4f 54 45 53 20 69 73 20 6e	.for.Strings...If.NO-QUOTES.is.n
0960	6f 6e 2d 6e 69 6c 2c 20 6f 6d 69 74 20 77 72 61 70 70 69 6e 67 20 72 65 73 75 6c 74 20 69 6e 20	on-nil,.omit.wrapping.result.in.
0980	71 75 6f 74 65 73 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 64 75 61 6c 20 6f 70 65 72 61 74	quotes...This.is.the.dual.operat
09a0	69 6f 6e 20 74 6f 20 60 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 64	ion.to.`haskell-string-literal-d
09c0	65 63 6f 64 65 27 2e 0a 0a 28 66 6e 20 53 54 52 20 26 6f 70 74 69 6f 6e 61 6c 20 4e 4f 2d 51 55	ecode'...(fn.STR.&optional.NO-QU
09e0	4f 54 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67	OTES)..(defalias.'haskell-string
0a00	2d 6c 69 74 65 72 61 6c 2d 65 6e 63 6f 64 65 20 23 5b 35 31 33 20 22 5c 33 30 30 43 5c 33 30 31	-literal-encode.#[513."\300C\301
0a20	5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 05 21 5c 33 30 36 5c 22 5c 33 30 37 5c 33 31 30	\302\303\304\305.!\306\"\307\310
0a40	25 02 5c 32 30 33 1a 00 5c 33 31 31 01 05 5c 33 31 32 23 5c 32 30 32 23 00 5c 33 31 33 5c 33 31	%.\203..\311..\312#\202#.\313\31
0a60	31 02 06 06 5c 33 31 32 23 5c 33 31 33 51 5c 32 36 32 01 5c 32 30 37 22 20 5b 2d 31 20 6d 61 6b	1...\312#\313Q\262.\207".[-1.mak
0a80	65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 30 5c 32 34 32 5c 33 30 30 02 5c 32	e-byte-code.257."\300\242\300.\2
0aa0	34 30 5c 32 31 30 01 5c 33 30 32 59 5c 32 30 33 13 00 5c 33 30 33 5c 33 30 34 03 5c 22 5c 32 30	40\210.\302Y\203..\303\304.\"\20
0ac0	32 3c 00 5c 32 31 31 5c 33 30 35 55 5c 32 30 33 1f 00 01 5c 33 30 36 55 5c 32 30 34 31 00 5c 32	2<.\211\305U\203...\306U\2041.\2
0ae0	31 31 5c 33 30 32 59 5c 32 30 33 39 00 01 5c 33 30 37 59 5c 32 30 33 39 00 01 5c 33 31 30 58 5c	11\302Y\2039..\307Y\2039..\310X\
0b00	32 30 33 39 00 5c 33 31 31 09 03 48 50 5c 32 30 32 3c 00 09 02 48 5c 32 30 37 22 20 76 63 6f 6e	2039.\311..HP\202<...H\207".vcon
0b20	63 61 74 20 76 65 63 74 6f 72 20 5b 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72	cat.vector.[haskell-string-liter
0b40	61 6c 2d 65 6e 63 6f 64 65 2d 61 73 63 69 69 2d 61 72 72 61 79 20 31 32 38 20 66 6f 72 6d 61 74	al-encode-ascii-array.128.format
0b60	20 22 5c 5c 25 64 22 20 31 34 20 37 32 20 34 38 20 35 37 20 22 5c 5c 26 22 5d 20 35 20 22 5c 6e	."\\%d".14.72.48.57."\\&"].5."\n
0b80	5c 6e 28 66 6e 20 43 29 22 20 6d 61 70 63 6f 6e 63 61 74 20 22 22 20 22 5c 22 22 5d 20 39 20 28	\n(fn.C)".mapconcat.""."\""].9.(
0ba0	23 24 20 2e 20 32 31 39 39 29 5d 29 0a 23 40 31 38 34 20 52 65 67 65 78 70 20 66 6f 72 20 6d 61	#$...2199)]).#@184.Regexp.for.ma
0bc0	74 63 68 69 6e 67 20 65 73 63 61 70 65 20 63 6f 64 65 73 20 69 6e 20 73 74 72 69 6e 67 20 6c 69	tching.escape.codes.in.string.li
0be0	74 65 72 61 6c 73 2e 0a 53 65 65 20 48 61 73 6b 65 6c 6c 20 52 65 70 6f 72 74 20 53 65 63 74 20	terals..See.Haskell.Report.Sect.
0c00	32 2e 36 2c 0a 55 52 4c 20 60 68 74 74 70 3a 2f 2f 77 77 77 2e 68 61 73 6b 65 6c 6c 2e 6f 72 67	2.6,.URL.`http://www.haskell.org
0c20	2f 6f 6e 6c 69 6e 65 72 65 70 6f 72 74 2f 68 61 73 6b 65 6c 6c 32 30 31 30 2f 68 61 73 6b 65 6c	/onlinereport/haskell2010/haskel
0c40	6c 63 68 32 2e 68 74 6d 6c 23 78 37 2d 32 30 30 30 30 32 2e 36 27 2c 0a 66 6f 72 20 6d 6f 72 65	lch2.html#x7-200002.6',.for.more
0c60	20 64 65 74 61 69 6c 73 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 68 61 73 6b 65 6c 6c 2d 73 74 72	.details...(defconst.haskell-str
0c80	69 6e 67 2d 6c 69 74 65 72 61 6c 2d 65 73 63 61 70 65 73 2d 72 65 67 65 78 70 20 28 62 79 74 65	ing-literal-escapes-regexp.(byte
0ca0	2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c	-code."\300\301\302\303\304\305\
0cc0	22 5c 33 30 33 5c 33 30 36 5c 33 30 37 5c 22 5c 33 30 33 5c 33 31 30 5c 33 31 31 5c 33 31 32 21	"\303\306\307\"\303\310\311\312!
0ce0	5c 22 23 21 5c 33 31 33 5c 33 31 34 5c 33 31 33 5c 33 31 35 5c 33 31 33 5c 33 31 36 5c 33 31 33	\"#!\313\314\313\315\313\316\313
0d00	5c 33 31 37 5c 33 32 30 5c 32 36 30 0b 5c 32 30 37 22 20 5b 22 5b 5c 5c 5d 5c 5c 28 3f 3a 22 20	\317\320\260.\207".["[\\]\\(?:".
0d20	72 65 67 65 78 70 2d 6f 70 74 20 61 70 70 65 6e 64 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22	regexp-opt.append.mapcar.#[257."
0d40	5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 25 63 22 5d 20 34	\300\301.\"\207".[format."%c"].4
0d60	20 22 5c 6e 5c 6e 28 66 6e 20 43 29 22 5d 20 22 61 62 66 6e 72 74 76 5c 5c 5c 22 27 26 22 20 23	."\n\n(fn.C)"]."abfnrtv\\\"'&".#
0d80	5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22	[257."\300\301.\"\207".[format."
0da0	5e 25 63 22 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 43 29 22 5d 20 22 41 42 43 44 45 46 47 48 49	^%c"].4."\n\n(fn.C)"]."ABCDEFGHI
0dc0	4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 40 5b 5c 5c 5d 5e 5f 22 20 23 5b 32 35 37 20	JKLMNOPQRSTUVWXYZ@[\\]^_".#[257.
0de0	22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 25 73 22 5d 20	"\300\301.\"\207".[format."%s"].
0e00	34 20 22 5c 6e 5c 6e 28 66 6e 20 53 29 22 5d 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 4e 55	4."\n\n(fn.S)"].split-string."NU
0e20	4c 20 53 4f 48 20 53 54 58 20 45 54 58 20 45 4f 54 20 45 4e 51 20 41 43 4b 20 42 45 4c 20 42 53	L.SOH.STX.ETX.EOT.ENQ.ACK.BEL.BS
0e40	20 48 54 20 4c 46 20 56 54 20 46 46 20 43 52 5c 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.HT.LF.VT.FF.CR\n...............
0e60	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53	...............................S
0e80	4f 20 53 49 20 44 4c 45 20 44 43 31 20 44 43 32 20 44 43 33 20 44 43 34 20 4e 41 4b 20 53 59 4e	O.SI.DLE.DC1.DC2.DC3.DC4.NAK.SYN
0ea0	20 45 54 42 20 43 41 4e 20 45 4d 20 53 55 42 20 45 53 43 5c 6e 20 20 20 20 20 20 20 20 20 20 20	.ETB.CAN.EM.SUB.ESC\n...........
0ec0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	................................
0ee0	20 20 20 46 53 20 47 53 20 52 53 20 55 53 20 53 50 20 44 45 4c 22 20 22 5c 5c 7c 22 20 22 5b 09	...FS.GS.RS.US.SP.DEL"."\\|"."[.
0f00	5c 6e 0b 5c 66 0d 20 5d 2b 5b 5c 5c 5d 22 20 22 5b 30 2d 39 5d 2b 22 20 22 6f 5b 30 2d 37 5d 2b	\n.\f..]+[\\]"."[0-9]+"."o[0-7]+
0f20	22 20 22 78 5b 30 2d 39 61 2d 66 5d 2b 22 20 22 5c 5c 29 3f 22 5d 20 31 31 29 20 28 23 24 20 2e	"."x[0-9a-f]+"."\\)?"].11).(#$..
0f40	20 32 39 39 35 29 29 0a 23 40 31 31 39 20 48 61 73 68 20 74 61 62 6c 65 20 63 6f 6e 74 61 69 6e	.2995)).#@119.Hash.table.contain
0f60	69 6e 67 20 69 72 72 65 67 75 6c 61 72 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 73 20 61	ing.irregular.escape.sequences.a
0f80	6e 64 20 74 68 65 69 72 20 64 65 63 6f 64 65 64 20 73 74 72 69 6e 67 73 2e 0a 55 73 65 64 20 62	nd.their.decoded.strings..Used.b
0fa0	79 20 60 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 64 65 63 6f 64 65	y.`haskell-string-literal-decode
0fc0	31 27 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69	1'...(defconst.haskell-string-li
0fe0	74 65 72 61 6c 2d 64 65 63 6f 64 65 31 2d 74 61 62 6c 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22	teral-decode1-table.(byte-code."
1000	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33	\300\301\302\"\303\304\305\306\3
1020	30 37 5c 33 31 30 06 06 21 5c 33 31 31 5c 22 5c 33 31 32 5c 33 31 33 25 5c 33 31 34 5c 22 5c 32	07\310..!\311\"\312\313%\314\"\2
1040	31 30 5c 32 31 31 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65	10\211\207".[make-hash-table.:te
1060	73 74 20 65 71 75 61 6c 20 6d 61 70 63 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37	st.equal.mapc.make-byte-code.257
1080	20 22 5c 33 30 31 5c 33 30 32 02 40 50 02 41 5c 33 30 30 23 5c 32 30 37 22 20 76 63 6f 6e 63 61	."\301\302.@P.A\300#\207".vconca
10a0	74 20 76 65 63 74 6f 72 20 5b 70 75 74 68 61 73 68 20 22 5c 5c 22 5d 20 35 20 22 5c 6e 5c 6e 28	t.vector.[puthash."\\"].5."\n\n(
10c0	66 6e 20 43 29 22 20 28 28 22 4e 55 4c 22 20 2e 20 22 00 22 29 20 28 22 53 4f 48 22 20 2e 20 22	fn.C)".(("NUL"...".").("SOH"..."
10e0	01 22 29 20 28 22 53 54 58 22 20 2e 20 22 02 22 29 20 28 22 45 54 58 22 20 2e 20 22 03 22 29 20	.").("STX"...".").("ETX"...".").
1100	28 22 45 4f 54 22 20 2e 20 22 04 22 29 20 28 22 45 4e 51 22 20 2e 20 22 05 22 29 20 28 22 41 43	("EOT"...".").("ENQ"...".").("AC
1120	4b 22 20 2e 20 22 06 22 29 20 28 22 42 45 4c 22 20 2e 20 22 07 22 29 20 28 22 42 53 22 20 2e 20	K"...".").("BEL"...".").("BS"...
1140	22 08 22 29 20 28 22 48 54 22 20 2e 20 22 09 22 29 20 28 22 4c 46 22 20 2e 20 22 5c 6e 22 29 20	".").("HT"...".").("LF"..."\n").
1160	28 22 56 54 22 20 2e 20 22 0b 22 29 20 28 22 46 46 22 20 2e 20 22 5c 66 22 29 20 28 22 43 52 22	("VT"...".").("FF"..."\f").("CR"
1180	20 2e 20 22 0d 22 29 20 28 22 53 4f 22 20 2e 20 22 0e 22 29 20 28 22 53 49 22 20 2e 20 22 0f 22	...".").("SO"...".").("SI"..."."
11a0	29 20 28 22 44 4c 45 22 20 2e 20 22 10 22 29 20 28 22 44 43 31 22 20 2e 20 22 11 22 29 20 28 22	).("DLE"...".").("DC1"...".").("
11c0	44 43 32 22 20 2e 20 22 12 22 29 20 28 22 44 43 33 22 20 2e 20 22 13 22 29 20 28 22 44 43 34 22	DC2"...".").("DC3"...".").("DC4"
11e0	20 2e 20 22 14 22 29 20 28 22 4e 41 4b 22 20 2e 20 22 15 22 29 20 28 22 53 59 4e 22 20 2e 20 22	...".").("NAK"...".").("SYN"..."
1200	16 22 29 20 28 22 45 54 42 22 20 2e 20 22 17 22 29 20 28 22 43 41 4e 22 20 2e 20 22 18 22 29 20	.").("ETB"...".").("CAN"...".").
1220	28 22 45 4d 22 20 2e 20 22 19 22 29 20 28 22 53 55 42 22 20 2e 20 22 1a 22 29 20 28 22 45 53 43	("EM"...".").("SUB"...".").("ESC
1240	22 20 2e 20 22 1b 22 29 20 28 22 46 53 22 20 2e 20 22 1c 22 29 20 28 22 47 53 22 20 2e 20 22 1d	"...".").("FS"...".").("GS"...".
1260	22 29 20 28 22 52 53 22 20 2e 20 22 1e 22 29 20 28 22 55 53 22 20 2e 20 22 1f 22 29 20 28 22 53	").("RS"...".").("US"...".").("S
1280	50 22 20 2e 20 22 20 22 29 20 28 22 44 45 4c 22 20 2e 20 22 7f 22 29 20 28 22 61 22 20 2e 20 22	P"...".").("DEL"...".").("a"..."
12a0	07 22 29 20 28 22 62 22 20 2e 20 22 08 22 29 20 28 22 66 22 20 2e 20 22 5c 66 22 29 20 28 22 6e	.").("b"...".").("f"..."\f").("n
12c0	22 20 2e 20 22 5c 6e 22 29 20 28 22 72 22 20 2e 20 22 0d 22 29 20 28 22 74 22 20 2e 20 22 09 22	"..."\n").("r"...".").("t"..."."
12e0	29 20 28 22 76 22 20 2e 20 22 0b 22 29 20 28 22 5c 5c 22 20 2e 20 22 5c 5c 22 29 20 28 22 5c 22	).("v"...".").("\\"..."\\").("\"
1300	22 20 2e 20 22 5c 22 22 29 20 28 22 27 22 20 2e 20 22 27 22 29 20 28 22 26 22 20 2e 20 22 22 29	"..."\"").("'"..."'").("&"..."")
1320	29 5d 20 38 29 20 28 23 24 20 2e 20 33 39 31 38 29 29 0a 23 40 31 37 31 20 44 65 63 6f 64 65 20	)].8).(#$...3918)).#@171.Decode.
1340	61 20 73 69 6e 67 6c 65 20 73 74 72 69 6e 67 20 6c 69 74 65 72 61 6c 20 65 73 63 61 70 65 20 73	a.single.string.literal.escape.s
1360	65 71 75 65 6e 63 65 2e 0a 4c 20 6d 75 73 74 20 63 6f 6e 74 61 69 6e 20 65 78 61 63 74 6c 79 20	equence..L.must.contain.exactly.
1380	6f 6e 65 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 2e 0a 54 68 69 73 20 69 73 20 61 6e 20	one.escape.sequence..This.is.an.
13a0	69 6e 74 65 72 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 62 79 20 60 68 61 73 6b 65	internal.function.used.by.`haske
13c0	6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 64 65 63 6f 64 65 27 2e 0a 0a 28 66 6e 20	ll-string-literal-decode'...(fn.
13e0	4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69	L)..(defalias.'haskell-string-li
1400	74 65 72 61 6c 2d 64 65 63 6f 64 65 31 20 23 5b 32 35 37 20 22 5c 33 30 32 18 5c 33 30 33 01 09	teral-decode1.#[257."\302.\303..
1420	5c 22 5c 32 30 36 61 00 5c 33 30 34 5c 33 30 35 02 5c 22 5c 32 30 33 1c 00 5c 33 30 36 5c 33 30	\"\206a.\304\305.\"\203..\306\30
1440	37 02 5c 33 31 30 5c 33 30 32 4f 5c 33 31 31 5c 22 21 5c 32 30 32 61 00 5c 33 30 34 5c 33 31 32	7.\310\302O\311\"!\202a.\304\312
1460	02 5c 22 5c 32 30 33 2f 00 5c 33 30 36 5c 33 30 37 02 5c 33 31 33 5c 33 30 32 4f 5c 33 31 34 5c	.\"\203/.\306\307.\313\302O\314\
1480	22 21 5c 32 30 32 61 00 5c 33 30 34 5c 33 31 35 02 5c 22 5c 32 30 33 42 00 5c 33 30 36 5c 33 30	"!\202a.\304\315.\"\203B.\306\30
14a0	37 02 5c 33 31 33 5c 33 30 32 4f 5c 33 31 36 5c 22 21 5c 32 30 32 61 00 5c 33 30 34 5c 33 31 37	7.\313\302O\316\"!\202a.\304\317
14c0	02 5c 22 5c 32 30 33 53 00 5c 33 30 36 01 5c 33 31 33 48 5c 33 32 30 5a 21 5c 32 30 32 61 00 5c	.\"\203S.\306.\313H\320Z!\202a.\
14e0	33 30 34 5c 33 32 31 02 5c 22 5c 32 30 33 5e 00 5c 33 32 32 5c 32 30 32 61 00 5c 33 32 33 5c 33	304\321.\"\203^.\322\202a.\323\3
1500	32 34 21 29 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 68 61 73 6b	24!)\207".[case-fold-search.hask
1520	65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 64 65 63 6f 64 65 31 2d 74 61 62 6c 65	ell-string-literal-decode1-table
1540	20 6e 69 6c 20 67 65 74 68 61 73 68 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5b 5c	.nil.gethash.string-match."\\`[\
1560	5c 5d 5b 30 2d 39 5d 2b 5c 5c 27 22 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 73 74 72 69	\][0-9]+\\'".char-to-string.stri
1580	6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 31 20 31 30 20 22 5c 5c 60 5b 5c 5c 5d 78 5b 5b 3a 78 64	ng-to-number.1.10."\\`[\\]x[[:xd
15a0	69 67 69 74 3a 5d 5d 2b 5c 5c 27 22 20 32 20 31 36 20 22 5c 5c 60 5b 5c 5c 5d 6f 5b 30 2d 37 5d	igit:]]+\\'".2.16."\\`[\\]o[0-7]
15c0	2b 5c 5c 27 22 20 38 20 22 5c 5c 60 5b 5c 5c 5d 5c 5c 5e 5b 40 2d 5f 5d 5c 5c 27 22 20 36 34 20	+\\'".8."\\`[\\]\\^[@-_]\\'".64.
15e0	22 5c 5c 60 5b 5c 5c 5d 5b 09 5c 6e 0b 5c 66 0d 20 5d 2b 5b 5c 5c 5d 5c 5c 27 22 20 22 22 20 65	"\\`[\\][.\n.\f..]+[\\]\\'"."".e
1600	72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 22 5d 20	rror."Invalid.escape.sequence"].
1620	36 20 28 23 24 20 2e 20 34 39 32 31 29 5d 29 0a 23 40 31 38 35 20 44 65 63 6f 64 65 20 61 20 48	6.(#$...4921)]).#@185.Decode.a.H
1640	61 73 6b 65 6c 6c 20 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2e 0a 49 66 20 4e 4f 2d 51 55 4f	askell.string-literal..If.NO-QUO
1660	54 45 53 20 69 73 20 6e 69 6c 2c 20 45 53 54 52 20 6d 75 73 74 20 62 65 20 73 75 72 72 6f 75 6e	TES.is.nil,.ESTR.must.be.surroun
1680	64 65 64 20 62 79 20 71 75 6f 74 65 73 2e 0a 0a 54 68 69 73 20 69 73 20 74 68 65 20 64 75 61 6c	ded.by.quotes...This.is.the.dual
16a0	20 6f 70 65 72 61 74 69 6f 6e 20 74 6f 20 60 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c 69	.operation.to.`haskell-string-li
16c0	74 65 72 61 6c 2d 65 6e 63 6f 64 65 27 2e 0a 0a 28 66 6e 20 45 53 54 52 20 26 6f 70 74 69 6f 6e	teral-encode'...(fn.ESTR.&option
16e0	61 6c 20 4e 4f 2d 51 55 4f 54 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c	al.NO-QUOTES)..(defalias.'haskel
1700	6c 2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 64 65 63 6f 64 65 20 23 5b 35 31 33 20 22 5c	l-string-literal-decode.#[513."\
1720	32 31 31 5c 32 30 34 19 00 5c 33 30 33 02 5c 33 30 34 5c 33 30 35 18 5c 33 30 36 03 03 03 23 29	211\204..\303.\304\305.\306...#)
1740	5c 32 36 36 5c 32 30 33 5c 32 30 33 19 00 01 5c 33 30 37 5c 33 31 30 4f 5c 32 30 37 5c 32 31 31	\266\203\203...\307\310O\207\211
1760	5c 32 30 33 21 00 01 5c 32 30 32 3b 00 5c 33 31 31 02 5c 33 30 34 5c 33 30 35 18 5c 33 30 36 03	\203!..\202;.\311.\304\305.\306.
1780	03 03 23 29 5c 32 36 36 5c 32 30 33 5c 32 30 33 38 00 01 5c 33 30 37 5c 33 31 30 4f 5c 32 30 32	..#)\266\203\2038..\307\310O\202
17a0	3b 00 5c 33 31 32 5c 33 31 33 21 5c 33 30 34 19 5c 33 31 34 5c 6e 5c 33 31 35 03 5c 33 30 35 5c	;.\312\313!\304.\314\n\315.\305\
17c0	32 31 31 25 29 5c 32 30 37 22 20 5b 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74	211%)\207".[inhibit-changing-mat
17e0	63 68 2d 64 61 74 61 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 68 61 73 6b 65 6c 6c	ch-data.case-fold-search.haskell
1800	2d 73 74 72 69 6e 67 2d 6c 69 74 65 72 61 6c 2d 65 73 63 61 70 65 73 2d 72 65 67 65 78 70 20 22	-string-literal-escapes-regexp."
1820	5c 5c 60 5c 22 5b 5e 5c 5c 5c 22 5b 3a 63 6e 74 72 6c 3a 5d 5d 2a 5c 22 5c 5c 27 22 20 6e 69 6c	\\`\"[^\\\"[:cntrl:]]*\"\\'".nil
1840	20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 31 20 2d 31 20 22 5c 5c 60 5c 22 2e 2a 5c 22 5c	.t.string-match.1.-1."\\`\".*\"\
1860	5c 27 22 20 65 72 72 6f 72 20 22 53 74 72 69 6e 67 20 6c 69 74 65 72 61 6c 20 6d 75 73 74 20 62	\'".error."String.literal.must.b
1880	65 20 64 65 6c 69 6d 69 74 65 64 20 62 79 20 71 75 6f 74 65 73 22 20 72 65 70 6c 61 63 65 2d 72	e.delimited.by.quotes".replace-r
18a0	65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 6c	egexp-in-string.haskell-string-l
18c0	69 74 65 72 61 6c 2d 64 65 63 6f 64 65 31 5d 20 39 20 28 23 24 20 2e 20 35 36 38 36 29 5d 29 0a	iteral-decode1].9.(#$...5686)]).
18e0	23 40 31 36 39 20 52 65 74 75 72 6e 20 53 54 52 49 4e 47 20 74 72 75 6e 63 61 74 65 64 20 74 6f	#@169.Return.STRING.truncated.to
1900	20 28 61 74 20 6d 6f 73 74 29 20 4e 20 63 68 61 72 61 63 74 65 72 73 2e 0a 49 66 20 74 72 75 6e	.(at.most).N.characters..If.trun
1920	63 61 74 69 6f 6e 20 6f 63 63 75 72 65 64 2c 20 6c 61 73 74 20 63 68 61 72 61 63 74 65 72 20 69	cation.occured,.last.character.i
1940	6e 20 73 74 72 69 6e 67 20 69 73 20 72 65 70 6c 61 63 65 64 20 62 79 20 60 e2 80 a6 27 2e 0a 53	n.string.is.replaced.by.`...'..S
1960	65 65 20 61 6c 73 6f 20 60 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 61 6b 65 27 2e 0a 0a	ee.also.`haskell-string-take'...
1980	28 66 6e 20 53 54 52 49 4e 47 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c	(fn.STRING.N)..(defalias.'haskel
19a0	6c 2d 73 74 72 69 6e 67 2d 65 6c 6c 69 70 73 69 7a 65 20 23 5b 35 31 34 20 22 01 47 01 58 5c 32	l-string-ellipsize.#[514.".G.X\2
19c0	30 33 09 00 01 5c 32 30 37 5c 32 31 31 5c 33 30 30 57 5c 32 30 33 11 00 5c 33 30 31 5c 32 30 37	03...\207\211\300W\203..\301\207
19e0	01 5c 33 30 32 02 53 4f 5c 33 30 33 50 5c 32 30 37 22 20 5b 31 20 22 22 20 30 20 22 e2 80 a6 22	.\302.SO\303P\207".[1."".0."..."
1a00	5d 20 35 20 28 23 24 20 2e 20 36 33 37 34 29 5d 29 0a 23 40 35 38 20 43 68 6f 6d 70 20 6c 65 61	].5.(#$...6374)]).#@58.Chomp.lea
1a20	64 69 6e 67 20 61 6e 64 20 74 61 69 6c 69 6e 67 20 77 68 69 74 65 73 70 61 63 65 20 66 72 6f 6d	ding.and.tailing.whitespace.from
1a40	20 53 54 52 2e 0a 0a 28 66 6e 20 53 54 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b	.STR...(fn.STR)..(defalias.'hask
1a60	65 6c 6c 2d 73 74 72 69 6e 67 2d 63 68 6f 6d 70 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31	ell-string-chomp.#[257."\300\301
1a80	02 5c 22 5c 32 30 33 12 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 32 31 31 04 24 5c 32 36 32 01	.\"\203..\302\303\304\211.$\262.
1aa0	5c 32 30 32 00 00 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 6e	\202..\207".[string-match."\\`\n
1ac0	2b 5c 5c 7c 5e 5c 5c 73 2d 2b 5c 5c 7c 5c 5c 73 2d 2b 24 5c 5c 7c 5c 6e 2b 5c 5c 27 22 20 72 65	+\\|^\\s-+\\|\\s-+$\\|\n+\\'".re
1ae0	70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 74 5d 20 36 20 28 23 24 20 2e 20 36 36 37 39 29 5d	place-match."".t].6.(#$...6679)]
1b00	29 0a 23 40 31 30 34 20 53 70 6c 69 74 20 53 54 52 20 74 6f 20 6c 69 6e 65 73 20 61 6e 64 20 72	).#@104.Split.STR.to.lines.and.r
1b20	65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 20 77 69 74 68 20 70 72 65	eturn.a.list.of.strings.with.pre
1b40	63 65 65 64 69 6e 67 20 61 6e 64 0a 73 75 63 63 65 64 69 6e 67 20 73 70 61 63 65 20 72 65 6d 6f	ceeding.and.succeding.space.remo
1b60	76 65 64 2e 0a 0a 28 66 6e 20 53 54 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65	ved...(fn.STR)..(defalias.'haske
1b80	6c 6c 2d 73 74 72 69 6e 67 2d 73 70 6c 69 74 2d 74 6f 2d 6c 69 6e 65 73 20 23 5b 32 35 37 20 22	ll-string-split-to-lines.#[257."
1ba0	5c 32 31 31 3b 5c 32 30 35 5c 66 00 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 5c 22 5c	\211;\205\f.\300\301\302.\303\"\
1bc0	22 5c 32 30 37 22 20 5b 63 6c 2d 6d 61 70 63 61 72 20 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67	"\207".[cl-mapcar.haskell-string
1be0	2d 63 68 6f 6d 70 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 5c 6e 22 5d 20 36 20 28 23 24 20	-chomp.split-string."\n"].6.(#$.
1c00	2e 20 36 39 32 30 29 5d 29 0a 23 40 36 39 20 49 66 20 50 52 45 46 49 58 20 69 73 20 70 72 65 66	..6920)]).#@69.If.PREFIX.is.pref
1c20	69 78 20 6f 66 20 53 54 52 2c 20 74 68 65 20 73 74 72 69 6e 67 20 69 73 20 74 72 69 6d 6d 65 64	ix.of.STR,.the.string.is.trimmed
1c40	2e 0a 0a 28 66 6e 20 50 52 45 46 49 58 20 53 54 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68	...(fn.PREFIX.STR)..(defalias.'h
1c60	61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 72 69 6d 2d 70 72 65 66 69 78 20 23 5b 35 31 34 20	askell-string-trim-prefix.#[514.
1c80	22 01 3b 5c 32 30 35 16 00 5c 32 31 31 3b 5c 32 30 35 16 00 5c 33 30 30 02 02 5c 22 5c 32 30 35	".;\205..\211;\205..\300..\"\205
1ca0	16 00 5c 32 31 31 02 47 5c 33 30 31 4f 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 70 72 65 66 69	..\211.G\301O\207".[string-prefi
1cc0	78 2d 70 20 6e 69 6c 5d 20 35 20 28 23 24 20 2e 20 37 31 38 33 29 5d 29 0a 23 40 36 39 20 49 66	x-p.nil].5.(#$...7183)]).#@69.If
1ce0	20 53 55 46 46 49 58 20 69 73 20 73 75 66 66 69 78 20 6f 66 20 53 54 52 2c 20 74 68 65 20 73 74	.SUFFIX.is.suffix.of.STR,.the.st
1d00	72 69 6e 67 20 69 73 20 74 72 69 6d 6d 65 64 2e 0a 0a 28 66 6e 20 53 55 46 46 49 58 20 53 54 52	ring.is.trimmed...(fn.SUFFIX.STR
1d20	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 74 72 69	)..(defalias.'haskell-string-tri
1d40	6d 2d 73 75 66 66 69 78 20 23 5b 35 31 34 20 22 01 3b 5c 32 30 35 17 00 5c 32 31 31 3b 5c 32 30	m-suffix.#[514.".;\205..\211;\20
1d60	35 17 00 5c 33 30 30 02 02 5c 22 5c 32 30 35 17 00 5c 32 31 31 5c 33 30 31 03 47 5b 4f 5c 32 30	5..\300..\"\205..\211\301.G[O\20
1d80	37 22 20 5b 73 74 72 69 6e 67 2d 73 75 66 66 69 78 2d 70 20 30 5d 20 35 20 28 23 24 20 2e 20 37	7".[string-suffix-p.0].5.(#$...7
1da0	33 39 30 29 5d 29 0a 23 40 31 31 34 20 44 72 6f 70 20 71 75 61 6c 69 66 69 65 72 20 66 72 6f 6d	390)]).#@114.Drop.qualifier.from
1dc0	20 67 69 76 65 6e 20 69 64 65 6e 74 69 66 69 65 72 20 49 44 45 4e 54 2e 0a 0a 49 66 20 74 68 65	.given.identifier.IDENT...If.the
1de0	20 69 64 65 6e 74 69 66 69 65 72 20 69 73 20 6e 6f 74 20 71 75 61 6c 69 66 69 65 64 20 72 65 74	.identifier.is.not.qualified.ret
1e00	75 72 6e 20 69 74 20 75 6e 63 68 61 6e 67 65 64 2e 0a 0a 28 66 6e 20 49 44 45 4e 54 29 1f 0a 28	urn.it.unchanged...(fn.IDENT)..(
1e20	64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 2d 64 72 6f 70 2d 71 75	defalias.'haskell-string-drop-qu
1e40	61 6c 69 66 69 65 72 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 30 33 0e 00	alifier.#[257."\300\301.\"\203..
1e60	5c 33 30 32 5c 33 30 33 02 5c 22 5c 32 30 36 0f 00 5c 32 31 31 5c 32 30 37 22 20 5b 73 74 72 69	\302\303.\"\206..\211\207".[stri
1e80	6e 67 2d 6d 61 74 63 68 20 22 5e 5c 5c 28 5b 5e 2e 5d 2a 5c 5c 2e 5c 5c 29 2a 5c 5c 28 3f 31 3a	ng-match."^\\([^.]*\\.\\)*\\(?1:
1ea0	5b 5e 2e 5d 2b 5c 5c 29 24 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 5d 20 34 20 28 23 24	[^.]+\\)$".match-string.1].4.(#$
1ec0	20 2e 20 37 35 39 37 29 5d 29 0a 23 40 31 32 32 20 45 63 68 6f 20 53 54 52 20 69 6e 20 6d 69 6e	...7597)]).#@122.Echo.STR.in.min
1ee0	69 2d 62 75 66 66 65 72 2e 0a 47 69 76 65 6e 20 73 74 72 69 6e 67 20 69 73 20 73 68 72 69 6e 6b	i-buffer..Given.string.is.shrink
1f00	65 6e 20 74 6f 20 73 69 6e 67 6c 65 20 6c 69 6e 65 2c 20 6d 75 6c 74 69 70 6c 65 20 6c 69 6e 65	en.to.single.line,.multiple.line
1f20	73 20 6a 75 73 74 0a 64 69 73 74 75 72 62 73 20 74 68 65 20 70 72 6f 67 72 61 6d 6d 65 72 2e 0a	s.just.disturbs.the.programmer..
1f40	0a 28 66 6e 20 53 54 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6d 6f	.(fn.STR)..(defalias.'haskell-mo
1f60	64 65 2d 6d 65 73 73 61 67 65 2d 6c 69 6e 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c	de-message-line.#[257."\300\301\
1f80	33 30 32 03 5c 33 30 33 20 5c 22 5c 22 5c 32 30 37 22 20 5b 6d 65 73 73 61 67 65 20 22 25 73 22	302.\303.\"\"\207".[message."%s"
1fa0	20 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 2d 6f 6e 65 2d 6c 69 6e 65 20 66 72 61 6d 65 2d 77 69 64	.haskell-mode-one-line.frame-wid
1fc0	74 68 5d 20 36 20 28 23 24 20 2e 20 37 38 38 39 29 5d 29 0a 23 40 31 30 30 20 54 72 79 20 74 6f	th].6.(#$...7889)]).#@100.Try.to
1fe0	20 66 69 74 20 53 54 52 20 61 73 20 6d 75 63 68 20 61 73 20 70 6f 73 73 69 62 6c 65 20 6f 6e 20	.fit.STR.as.much.as.possible.on.
2000	6f 6e 65 20 6c 69 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 67 69 76 65 6e 20 57 49 44 54	one.line.according.to.given.WIDT
2020	48 2e 0a 0a 28 66 6e 20 53 54 52 20 26 6f 70 74 69 6f 6e 61 6c 20 57 49 44 54 48 29 1f 0a 28 64	H...(fn.STR.&optional.WIDTH)..(d
2040	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 2d 6f 6e 65 2d 6c 69 6e 65 20 23	efalias.'haskell-mode-one-line.#
2060	5b 35 31 33 20 22 5c 32 31 31 5c 32 30 34 08 00 01 47 5c 32 36 32 01 5c 33 30 30 5c 33 30 31 5c	[513."\211\204...G\262.\300\301\
2080	33 30 32 04 23 5c 33 30 30 5c 33 30 33 5c 33 30 32 5c 33 30 34 04 21 23 5c 33 30 35 01 04 5c 33	302.#\300\303\302\304.!#\305..\3
20a0	30 36 5c 32 31 31 5c 33 30 37 25 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70	06\211\307%\207".[replace-regexp
20c0	2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 6e 22 20 22 20 22 20 22 20 2b 22 20 68 61 73 6b 65 6c 6c	-in-string."\n".".".".+".haskell
20e0	2d 73 74 72 69 6e 67 2d 74 72 69 6d 20 74 72 75 6e 63 61 74 65 2d 73 74 72 69 6e 67 2d 74 6f 2d	-string-trim.truncate-string-to-
2100	77 69 64 74 68 20 6e 69 6c 20 22 e2 80 a6 22 5d 20 31 30 20 28 23 24 20 2e 20 38 31 35 34 29 5d	width.nil."..."].10.(#$...8154)]
2120	29 0a 28 70 72 6f 76 69 64 65 20 27 68 61 73 6b 65 6c 6c 2d 73 74 72 69 6e 67 29 0a	).(provide.'haskell-string).