blob: e59b9c78a470925e3f9c4ba701b15957cd239be8 (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 20 62 79 20 6c 75 6b 65 40 48 50	;ELC.....;;;.Compiled.by.luke@HP
0020	2d 64 76 36 34 32 36 75 73 2d 75 31 30 31 30 20 6f 6e 20 53 75 6e 20 46 65 62 20 32 37 20 31 32	-dv6426us-u1010.on.Sun.Feb.27.12
0040	3a 35 37 3a 33 30 20 32 30 31 31 0a 3b 3b 3b 20 66 72 6f 6d 20 66 69 6c 65 20 2f 68 6f 6d 65 2f	:57:30.2011.;;;.from.file./home/
0060	6c 75 6b 65 2f 2e 65 6d 61 63 73 2e 64 2f 6f 72 67 2d 37 2e 34 2f 6c 69 73 70 2f 6f 62 2d 6f 63	luke/.emacs.d/org-7.4/lisp/ob-oc
0080	61 6d 6c 2e 65 6c 0a 3b 3b 3b 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 20 32 33 2e 31	aml.el.;;;.in.Emacs.version.23.1
00a0	2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a	.1.;;;.with.all.optimizations...
00c0	3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74	;;;.This.file.uses.dynamic.docst
00e0	72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32	rings,.first.added.in.Emacs.19.2
0100	39 2e 0a 28 69 66 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 6d 61 63 73 2d 76 65 72 73 69	9..(if.(and.(boundp.'emacs-versi
0120	6f 6e 29 0a 09 20 28 3c 20 28 61 72 65 66 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 28 31 2d	on)...(<.(aref.emacs-version.(1-
0140	20 28 6c 65 6e 67 74 68 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 29 29 20 3f 41 29 0a 09 20	.(length.emacs-version))).?A)...
0160	28 6f 72 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 70 6f 63 68 3a 3a 76 65 72 73 69 6f 6e	(or.(and.(boundp.'epoch::version
0180	29 20 65 70 6f 63 68 3a 3a 76 65 72 73 69 6f 6e 29 0a 09 20 20 20 20 20 28 73 74 72 69 6e 67 2d	).epoch::version).......(string-
01a0	6c 65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 31 39 2e 32 39 22 29 29 29 0a 20	lessp.emacs-version."19.29")))..
01c0	20 20 20 28 65 72 72 6f 72 20 22 60 6f 62 2d 6f 63 61 6d 6c 2e 65 6c 27 20 77 61 73 20 63 6f 6d	...(error."`ob-ocaml.el'.was.com
01e0	70 69 6c 65 64 20 66 6f 72 20 45 6d 61 63 73 20 31 39 2e 32 39 20 6f 72 20 6c 61 74 65 72 22 29	piled.for.Emacs.19.29.or.later")
0200	29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	)..;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0220	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0240	3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 5c 33 30 32 21 5c 32	;;;;;;...(byte-code."\301\302!\2
0260	31 30 5c 33 30 31 5c 33 30 33 21 5c 32 31 30 5c 33 30 31 5c 33 30 34 21 5c 32 31 30 5c 33 30 35	10\301\303!\210\301\304!\210\305
0280	5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 31 30 08 42 10 5c 33 31 31 5c 33 31 30 21 5c 32	\306\307\"\210\310.B.\311\310!\2
02a0	30 34 20 00 5c 33 31 32 5c 33 31 30 5c 33 31 33 5c 22 5c 32 31 30 5c 33 31 34 08 42 10 5c 33 31	04..\312\310\313\"\210\314.B.\31
02c0	31 5c 33 31 34 21 5c 32 30 34 2f 00 5c 33 31 32 5c 33 31 34 5c 33 31 35 5c 22 5c 32 31 30 5c 33	1\314!\204/.\312\314\315\"\210\3
02e0	31 36 08 42 10 5c 33 31 31 5c 33 31 36 21 5c 32 30 34 3e 00 5c 33 31 32 5c 33 31 36 5c 33 31 37	16.B.\311\316!\204>.\312\316\317
0300	5c 22 5c 32 31 30 5c 33 31 33 5c 32 30 37 22 20 5b 63 75 72 72 65 6e 74 2d 6c 6f 61 64 2d 6c 69	\"\210\313\207".[current-load-li
0320	73 74 20 72 65 71 75 69 72 65 20 6f 62 20 6f 62 2d 63 6f 6d 69 6e 74 20 63 6f 6d 69 6e 74 20 61	st.require.ob.ob-comint.comint.a
0340	64 64 2d 74 6f 2d 6c 69 73 74 20 6f 72 67 2d 62 61 62 65 6c 2d 74 61 6e 67 6c 65 2d 6c 61 6e 67	dd-to-list.org-babel-tangle-lang
0360	2d 65 78 74 73 20 28 22 6f 63 61 6d 6c 22 20 2e 20 22 6d 6c 22 29 20 6f 72 67 2d 62 61 62 65 6c	-exts.("ocaml"..."ml").org-babel
0380	2d 64 65 66 61 75 6c 74 2d 68 65 61 64 65 72 2d 61 72 67 73 3a 6f 63 61 6d 6c 20 64 65 66 61 75	-default-header-args:ocaml.defau
03a0	6c 74 2d 62 6f 75 6e 64 70 20 73 65 74 2d 64 65 66 61 75 6c 74 20 6e 69 6c 20 6f 72 67 2d 62 61	lt-boundp.set-default.nil.org-ba
03c0	62 65 6c 2d 6f 63 61 6d 6c 2d 65 6f 65 2d 69 6e 64 69 63 61 74 6f 72 20 22 5c 22 6f 72 67 2d 62	bel-ocaml-eoe-indicator."\"org-b
03e0	61 62 65 6c 2d 6f 63 61 6d 6c 2d 65 6f 65 5c 22 3b 3b 22 20 6f 72 67 2d 62 61 62 65 6c 2d 6f 63	abel-ocaml-eoe\";;".org-babel-oc
0400	61 6d 6c 2d 65 6f 65 2d 6f 75 74 70 75 74 20 22 6f 72 67 2d 62 61 62 65 6c 2d 6f 63 61 6d 6c 2d	aml-eoe-output."org-babel-ocaml-
0420	65 6f 65 22 5d 20 33 29 0a 23 40 34 33 20 45 78 65 63 75 74 65 20 61 20 62 6c 6f 63 6b 20 6f 66	eoe"].3).#@43.Execute.a.block.of
0440	20 4f 63 61 6d 6c 20 63 6f 64 65 20 77 69 74 68 20 42 61 62 65 6c 2e 1f 0a 28 64 65 66 61 6c 69	.Ocaml.code.with.Babel...(defali
0460	61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63 75 74 65 3a 6f 63 61 6d 6c 20 23 5b 28 62	as.'org-babel-execute:ocaml.#[(b
0480	6f 64 79 20 70 61 72 61 6d 73 29 20 22 5c 33 30 36 5c 33 30 37 5c 33 31 30 08 5c 33 31 31 5c 22	ody.params)."\306\307\310.\311\"
04a0	5c 22 19 5c 33 31 32 5c 6e 08 5c 33 31 33 08 21 23 1b 5c 33 31 34 5c 33 31 35 5c 33 31 36 08 5c	\".\312\n.\313.!#.\314\315\316.\
04c0	22 41 08 5c 22 1c 5c 32 31 32 5c 33 31 37 20 1d 5c 33 32 30 5c 32 31 36 5c 33 32 31 5c 66 21 5c	"A.\".\212\317..\320\216\321\f!\
04e0	32 30 34 2a 00 5c 33 32 32 5c 33 32 33 5c 66 5c 22 5c 32 31 30 5c 66 71 5c 32 31 30 5c 33 32 34	204*.\322\323\f\"\210\fq\210\324
0500	5c 33 32 35 5c 32 31 31 1e 36 1e 37 1e 38 5c 33 32 36 5c 33 32 37 21 5c 32 31 31 1e 39 5c 32 30	\325\211.6.7.8\326\327!\211.9\20
0520	35 41 00 5c 33 32 37 4b 1e 3a 5c 33 33 30 5c 32 31 36 5c 33 32 37 5c 33 33 31 4d 5c 32 31 30 5c	5A.\327K.:\330\216\327\331M\210\
0540	33 33 32 5c 33 33 33 5c 33 32 37 5c 22 5c 32 31 30 5c 33 33 34 5c 32 31 36 5c 33 33 35 5c 33 33	332\333\327\"\210\334\216\335\33
0560	36 70 21 21 62 5c 32 31 30 60 64 1e 3b 5c 32 31 31 1e 3c 0e 3b 7b 16 37 0e 3c 0e 3b 7c 5c 32 31	6p!!b\210`d.;\211.<.;{.7.<.;|\21
0580	30 2a 5c 33 33 37 0b 21 5c 33 34 30 0e 3d 51 63 5c 32 31 30 5c 33 34 31 20 5c 32 31 30 0e 3e 62	0*\337.!\340.=Qc\210\341.\210.>b
05a0	5c 32 31 30 5c 32 31 32 5c 33 34 32 0e 3f 5c 33 32 35 5c 33 34 33 23 5c 32 30 35 5c 32 31 34 00	\210\212\342.?\325\343#\205\214.
05c0	5c 33 34 32 5c 33 34 34 0e 40 21 5c 33 32 35 5c 33 34 33 23 29 5c 32 30 34 5c 32 33 31 00 5c 33	\342\344.@!\325\343#)\204\231.\3
05e0	34 35 5c 33 33 36 70 21 21 5c 32 31 30 5c 32 30 32 76 00 5c 33 33 35 5c 33 33 36 70 21 21 62 5c	45\336p!!\210\202v.\335\336p!!b\
0600	32 31 30 0e 37 63 5c 32 31 30 2c 0b 5c 32 30 33 5c 33 30 33 00 5c 33 34 36 5c 33 34 37 5c 33 34	210.7c\210,.\203\303.\346\347\34
0620	30 5c 33 35 30 5c 33 34 34 0b 5c 32 30 36 5c 32 36 33 00 5c 33 32 34 21 23 0e 38 5c 22 5c 32 30	0\350\344.\206\263.\324!#.8\"\20
0640	33 5c 33 30 33 00 0e 38 5c 33 35 31 5c 32 32 35 5c 33 32 35 4f 16 36 5c 33 35 32 0e 38 0e 3f 5c	3\303..8\351\225\325O.6\352.8.?\
0660	22 2e 06 1e 36 5c 33 34 34 0e 40 21 5c 33 32 35 1e 41 1e 42 5c 33 35 33 5c 33 32 35 5c 33 30 36	"...6\344.@!\325.A.B\353\325\306
0680	5c 33 35 34 5c 33 30 36 5c 33 35 35 5c 33 35 36 0e 36 21 5c 22 5c 22 5c 22 2a 40 1e 43 5c 33 35	\354\306\355\356.6!\"\"\"*@.C\35
06a0	37 5c 33 36 30 5c 33 35 35 0e 43 21 21 5c 33 36 31 5c 33 31 35 5c 33 36 32 08 5c 22 41 5c 33 31	7\360\355.C!!\361\315\362.\"A\31
06c0	35 5c 33 36 33 08 5c 22 41 5c 22 5c 33 36 31 5c 33 31 35 5c 33 36 34 08 5c 22 41 5c 33 31 35 5c	5\363.\"A\"\361\315\364.\"A\315\
06e0	33 36 35 08 5c 22 41 5c 22 23 2d 5c 32 30 37 22 20 5b 70 61 72 61 6d 73 20 76 61 72 73 20 62 6f	365.\"A\"#-\207".[params.vars.bo
0700	64 79 20 66 75 6c 6c 2d 62 6f 64 79 20 73 65 73 73 69 6f 6e 20 73 61 76 65 2d 6d 61 74 63 68 2d	dy.full-body.session.save-match-
0720	64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 6d 61 70 63 61 72 20 63 64 72 20 6f 72 67 2d 62 61 62	data-internal.mapcar.cdr.org-bab
0740	65 6c 2d 67 65 74 2d 68 65 61 64 65 72 20 3a 76 61 72 20 6f 72 67 2d 62 61 62 65 6c 2d 65 78 70	el-get-header.:var.org-babel-exp
0760	61 6e 64 2d 62 6f 64 79 3a 67 65 6e 65 72 69 63 20 6f 72 67 2d 62 61 62 65 6c 2d 76 61 72 69 61	and-body:generic.org-babel-varia
0780	62 6c 65 2d 61 73 73 69 67 6e 6d 65 6e 74 73 3a 6f 63 61 6d 6c 20 6f 72 67 2d 62 61 62 65 6c 2d	ble-assignments:ocaml.org-babel-
07a0	70 72 65 70 2d 73 65 73 73 69 6f 6e 3a 6f 63 61 6d 6c 20 61 73 73 6f 63 20 3a 73 65 73 73 69 6f	prep-session:ocaml.assoc.:sessio
07c0	6e 20 6d 61 74 63 68 2d 64 61 74 61 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 08 5c	n.match-data.((byte-code."\301.\
07e0	33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65	302\"\207".[save-match-data-inte
0800	72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33	rnal.set-match-data.evaporate].3
0820	29 29 20 6f 72 67 2d 62 61 62 65 6c 2d 63 6f 6d 69 6e 74 2d 62 75 66 66 65 72 2d 6c 69 76 65 70	)).org-babel-comint-buffer-livep
0840	20 65 72 72 6f 72 20 22 62 75 66 66 65 72 20 25 73 20 64 6f 65 73 6e 27 74 20 65 78 69 73 74 20	.error."buffer.%s.doesn't.exist.
0860	6f 72 20 68 61 73 20 6e 6f 20 70 72 6f 63 65 73 73 22 20 22 22 20 6e 69 6c 20 66 62 6f 75 6e 64	or.has.no.process"."".nil.fbound
0880	70 20 6d 79 2d 66 69 6c 74 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 08 5c 32 30 33 0b 00 5c 33	p.my-filt.((byte-code.".\203..\3
08a0	30 32 09 4d 5c 32 31 30 5c 32 30 32 0f 00 5c 33 30 33 5c 33 30 32 21 5c 32 31 30 5c 33 30 32 5c	02.M\210\202..\303\302!\210\302\
08c0	32 30 37 22 20 5b 23 31 3d 23 3a 2d 2d 63 6c 2d 6c 65 74 66 2d 62 6f 75 6e 64 2d 2d 20 23 32 3d	207".[#1=#:--cl-letf-bound--.#2=
08e0	23 3a 2d 2d 63 6c 2d 6c 65 74 66 2d 73 61 76 65 2d 2d 20 6d 79 2d 66 69 6c 74 20 66 6d 61 6b 75	#:--cl-letf-save--.my-filt.fmaku
0900	6e 62 6f 75 6e 64 5d 20 32 29 29 20 23 5b 28 74 65 78 74 29 20 22 08 09 50 5c 32 31 31 10 5c 32	nbound].2)).#[(text)."..P\211.\2
0920	30 37 22 20 5b 73 74 72 69 6e 67 2d 62 75 66 66 65 72 20 74 65 78 74 5d 20 32 5d 20 61 64 64 2d	07".[string-buffer.text].2].add-
0940	68 6f 6f 6b 20 63 6f 6d 69 6e 74 2d 6f 75 74 70 75 74 2d 66 69 6c 74 65 72 2d 66 75 6e 63 74 69	hook.comint-output-filter-functi
0960	6f 6e 73 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 22 5c	ons.((byte-code."\300\301\302\"\
0980	32 30 37 22 20 5b 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 63 6f 6d 69 6e 74 2d 6f 75 74 70 75 74 2d	207".[remove-hook.comint-output-
09a0	66 69 6c 74 65 72 2d 66 75 6e 63 74 69 6f 6e 73 20 6d 79 2d 66 69 6c 74 5d 20 33 29 29 20 70 72	filter-functions.my-filt].3)).pr
09c0	6f 63 65 73 73 2d 6d 61 72 6b 20 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 6f 72	ocess-mark.get-buffer-process.or
09e0	67 2d 62 61 62 65 6c 2d 63 68 6f 6d 70 20 22 5c 6e 22 20 74 75 61 72 65 67 2d 69 6e 74 65 72 61	g-babel-chomp."\n".tuareg-intera
0a00	63 74 69 76 65 2d 73 65 6e 64 2d 69 6e 70 75 74 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61	ctive-send-input.re-search-forwa
0a20	72 64 20 74 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 61 63 63 65 70 74 2d 70 72 6f 63 65 73 73	rd.t.regexp-quote.accept-process
0a40	2d 6f 75 74 70 75 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 65 70 6c 61 63 65 2d 72 65 67	-output.string-match.replace-reg
0a60	65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5b 0d 5c 6e 5d 2b 22 20 30 20 73 70 6c 69 74 2d 73	exp-in-string."[.\n]+".0.split-s
0a80	74 72 69 6e 67 20 64 65 6c 71 20 23 5b 28 6c 69 6e 65 29 20 22 08 5c 32 30 33 08 00 5c 33 30 33	tring.delq.#[(line).".\203..\303
0aa0	10 09 5c 32 30 37 5c 33 30 34 5c 6e 09 5c 22 5c 32 30 35 12 00 5c 33 30 35 10 5c 33 30 33 5c 32	..\207\304\n.\"\205..\305.\303\2
0ac0	30 37 22 20 5b 6f 75 74 20 6c 69 6e 65 20 72 65 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63	07".[out.line.re.nil.string-matc
0ae0	68 20 74 5d 20 33 5d 20 6f 72 67 2d 62 61 62 65 6c 2d 74 72 69 6d 20 72 65 76 65 72 73 65 20 6f	h.t].3].org-babel-trim.reverse.o
0b00	72 67 2d 62 61 62 65 6c 2d 72 65 61 73 73 65 6d 62 6c 65 2d 74 61 62 6c 65 20 6f 72 67 2d 62 61	rg-babel-reassemble-table.org-ba
0b20	62 65 6c 2d 6f 63 61 6d 6c 2d 70 61 72 73 65 2d 6f 75 74 70 75 74 20 6f 72 67 2d 62 61 62 65 6c	bel-ocaml-parse-output.org-babel
0b40	2d 70 69 63 6b 2d 6e 61 6d 65 20 3a 63 6f 6c 6e 61 6d 65 2d 6e 61 6d 65 73 20 3a 63 6f 6c 6e 61	-pick-name.:colname-names.:colna
0b60	6d 65 73 20 3a 72 6f 77 6e 61 6d 65 2d 6e 61 6d 65 73 20 3a 72 6f 77 6e 61 6d 65 73 20 72 61 77	mes.:rowname-names.:rownames.raw
0b80	20 64 61 6e 67 6c 69 6e 67 2d 74 65 78 74 20 73 74 72 69 6e 67 2d 62 75 66 66 65 72 20 23 31 23	.dangling-text.string-buffer.#1#
0ba0	20 23 32 23 20 65 6e 64 20 73 74 61 72 74 20 6f 72 67 2d 62 61 62 65 6c 2d 6f 63 61 6d 6c 2d 65	.#2#.end.start.org-babel-ocaml-e
0bc0	6f 65 2d 69 6e 64 69 63 61 74 6f 72 20 63 6f 6d 69 6e 74 2d 6c 61 73 74 2d 69 6e 70 75 74 2d 65	oe-indicator.comint-last-input-e
0be0	6e 64 20 63 6f 6d 69 6e 74 2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 20 6f 72 67 2d 62 61 62 65	nd.comint-prompt-regexp.org-babe
0c00	6c 2d 6f 63 61 6d 6c 2d 65 6f 65 2d 6f 75 74 70 75 74 20 6f 75 74 20 72 65 20 63 6c 65 61 6e 5d	l-ocaml-eoe-output.out.re.clean]
0c20	20 39 20 28 23 24 20 2e 20 31 30 37 30 29 5d 29 0a 23 40 36 32 20 50 72 65 70 61 72 65 20 53 45	.9.(#$...1070)]).#@62.Prepare.SE
0c40	53 53 49 4f 4e 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 68 65 61 64 65 72 20 61 72	SSION.according.to.the.header.ar
0c60	67 75 6d 65 6e 74 73 20 69 6e 20 50 41 52 41 4d 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f	guments.in.PARAMS...(defalias.'o
0c80	72 67 2d 62 61 62 65 6c 2d 70 72 65 70 2d 73 65 73 73 69 6f 6e 3a 6f 63 61 6d 6c 20 23 5b 28 73	rg-babel-prep-session:ocaml.#[(s
0ca0	65 73 73 69 6f 6e 20 70 61 72 61 6d 73 29 20 22 5c 33 30 32 5c 33 30 33 21 5c 32 31 30 08 5c 33	ession.params)."\302\303!\210.\3
0cc0	30 34 5c 32 33 30 5c 32 30 34 19 00 08 5c 33 30 35 5c 32 33 30 5c 32 30 34 19 00 08 3b 5c 32 30	04\230\204...\305\230\204...;\20
0ce0	33 19 00 08 5c 32 30 32 1a 00 09 19 5c 33 30 36 5c 32 31 33 29 5c 32 30 37 22 20 5b 73 65 73 73	3...\202....\306\213)\207".[sess
0d00	69 6f 6e 20 74 75 61 72 65 67 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75 66 66 65 72 2d 6e 61	ion.tuareg-interactive-buffer-na
0d20	6d 65 20 72 65 71 75 69 72 65 20 74 75 61 72 65 67 20 22 6e 6f 6e 65 22 20 22 64 65 66 61 75 6c	me.require.tuareg."none"."defaul
0d40	74 22 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 20 5c 32 31 30 5c 33 30 32 08 21 5c	t".((byte-code."\301.\210\302.!\
0d60	32 30 37 22 20 5b 74 75 61 72 65 67 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75 66 66 65 72 2d	207".[tuareg-interactive-buffer-
0d80	6e 61 6d 65 20 74 75 61 72 65 67 2d 72 75 6e 2d 63 61 6d 6c 20 67 65 74 2d 62 75 66 66 65 72 5d	name.tuareg-run-caml.get-buffer]
0da0	20 32 29 29 5d 20 32 20 28 23 24 20 2e 20 33 31 32 36 29 5d 29 0a 23 40 36 35 20 52 65 74 75 72	.2))].2.(#$...3126)]).#@65.Retur
0dc0	6e 20 6c 69 73 74 20 6f 66 20 6f 63 61 6d 6c 20 73 74 61 74 65 6d 65 6e 74 73 20 61 73 73 69 67	n.list.of.ocaml.statements.assig
0de0	6e 69 6e 67 20 74 68 65 20 62 6c 6f 63 6b 27 73 20 76 61 72 69 61 62 6c 65 73 1f 0a 28 64 65 66	ning.the.block's.variables..(def
0e00	61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 76 61 72 69 61 62 6c 65 2d 61 73 73 69 67 6e	alias.'org-babel-variable-assign
0e20	6d 65 6e 74 73 3a 6f 63 61 6d 6c 20 23 5b 28 70 61 72 61 6d 73 29 20 22 5c 33 30 31 5c 33 30 32	ments:ocaml.#[(params)."\301\302
0e40	5c 33 30 31 5c 33 30 33 5c 33 30 34 08 5c 33 30 35 5c 22 5c 22 5c 22 5c 32 30 37 22 20 5b 70 61	\301\303\304.\305\"\"\"\207".[pa
0e60	72 61 6d 73 20 6d 61 70 63 61 72 20 23 5b 28 70 61 69 72 29 20 22 5c 33 30 31 5c 33 30 32 08 40	rams.mapcar.#[(pair)."\301\302.@
0e80	5c 33 30 33 08 41 21 23 5c 32 30 37 22 20 5b 70 61 69 72 20 66 6f 72 6d 61 74 20 22 6c 65 74 20	\303.A!#\207".[pair.format."let.
0ea0	25 73 20 3d 20 25 73 3b 3b 22 20 6f 72 67 2d 62 61 62 65 6c 2d 6f 63 61 6d 6c 2d 65 6c 69 73 70	%s.=.%s;;".org-babel-ocaml-elisp
0ec0	2d 74 6f 2d 6f 63 61 6d 6c 5d 20 35 5d 20 63 64 72 20 6f 72 67 2d 62 61 62 65 6c 2d 67 65 74 2d	-to-ocaml].5].cdr.org-babel-get-
0ee0	68 65 61 64 65 72 20 3a 76 61 72 5d 20 37 20 28 23 24 20 2e 20 33 35 31 35 29 5d 29 0a 23 40 35	header.:var].7.(#$...3515)]).#@5
0f00	35 20 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 20 6f 66 20 6f 63 61 6d 6c 20 63 6f 64 65 20	5.Return.a.string.of.ocaml.code.
0f20	77 68 69 63 68 20 65 76 61 6c 75 61 74 65 73 20 74 6f 20 56 41 4c 2e 1f 0a 28 64 65 66 61 6c 69	which.evaluates.to.VAL...(defali
0f40	61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 6f 63 61 6d 6c 2d 65 6c 69 73 70 2d 74 6f 2d 6f 63 61	as.'org-babel-ocaml-elisp-to-oca
0f60	6d 6c 20 23 5b 28 76 61 6c 29 20 22 08 3c 5c 32 30 33 0e 00 5c 33 30 31 5c 33 30 32 5c 33 30 33	ml.#[(val).".<\203..\301\302\303
0f80	08 5c 33 30 34 23 5c 33 30 35 51 5c 32 30 37 5c 33 30 36 5c 33 30 37 08 5c 22 5c 32 30 37 22 20	.\304#\305Q\207\306\307.\"\207".
0fa0	5b 76 61 6c 20 22 5b 7c 22 20 6d 61 70 63 6f 6e 63 61 74 20 6f 72 67 2d 62 61 62 65 6c 2d 6f 63	[val."[|".mapconcat.org-babel-oc
0fc0	61 6d 6c 2d 65 6c 69 73 70 2d 74 6f 2d 6f 63 61 6d 6c 20 22 3b 20 22 20 22 7c 5d 22 20 66 6f 72	aml-elisp-to-ocaml.";."."|]".for
0fe0	6d 61 74 20 22 25 53 22 5d 20 35 20 28 23 24 20 2e 20 33 38 34 32 29 5d 29 0a 23 40 36 32 20 50	mat."%S"].5.(#$...3842)]).#@62.P
1000	61 72 73 65 20 4f 55 54 50 55 54 2e 0a 4f 55 54 50 55 54 20 69 73 20 73 74 72 69 6e 67 20 6f 75	arse.OUTPUT..OUTPUT.is.string.ou
1020	74 70 75 74 20 66 72 6f 6d 20 61 6e 20 6f 63 61 6d 6c 20 70 72 6f 63 65 73 73 2e 1f 0a 28 64 65	tput.from.an.ocaml.process...(de
1040	66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 6f 63 61 6d 6c 2d 70 61 72 73 65 2d 6f 75	falias.'org-babel-ocaml-parse-ou
1060	74 70 75 74 20 23 5b 28 6f 75 74 70 75 74 29 20 22 5c 33 30 32 18 5c 33 30 33 5c 33 30 34 08 5c	tput.#[(output)."\302.\303\304.\
1080	33 30 35 5c 22 09 5c 22 5c 32 30 33 15 00 5c 33 30 36 5c 33 30 37 5c 33 31 30 09 5c 22 21 5c 32	305\".\"\203..\306\307\310.\"!\2
10a0	30 32 5e 00 5c 33 30 33 5c 33 30 34 08 5c 33 31 31 5c 22 09 5c 22 5c 32 30 34 29 00 5c 33 30 33	02^.\303\304.\311\".\"\204).\303
10c0	5c 33 30 34 08 5c 33 31 32 5c 22 09 5c 22 5c 32 30 33 32 00 5c 33 31 33 5c 33 30 37 5c 33 31 30	\304.\312\".\"\2032.\313\307\310
10e0	09 5c 22 21 5c 32 30 32 5e 00 5c 33 30 33 5c 33 30 34 08 5c 33 31 34 5c 22 09 5c 22 5c 32 30 33	.\"!\202^.\303\304.\314\".\"\203
1100	45 00 5c 33 31 35 5c 33 30 37 5c 33 31 30 09 5c 22 21 5c 32 30 32 5e 00 5c 33 30 33 5c 33 30 34	E.\315\307\310.\"!\202^.\303\304
1120	08 5c 33 31 36 5c 22 09 5c 22 5c 32 30 33 58 00 5c 33 31 37 5c 33 30 37 5c 33 31 30 09 5c 22 21	.\316\".\"\203X.\317\307\310.\"!
1140	5c 32 30 32 5e 00 5c 33 32 30 5c 33 32 31 09 5c 22 5c 32 31 30 09 29 5c 32 30 37 22 20 5b 72 65	\202^.\320\321.\"\210.)\207".[re
1160	67 65 78 70 20 6f 75 74 70 75 74 20 22 25 73 20 3d 20 5c 5c 28 2e 2b 5c 5c 29 24 22 20 73 74 72	gexp.output."%s.=.\\(.+\\)$".str
1180	69 6e 67 2d 6d 61 74 63 68 20 66 6f 72 6d 61 74 20 22 73 74 72 69 6e 67 22 20 6f 72 67 2d 62 61	ing-match.format."string".org-ba
11a0	62 65 6c 2d 72 65 61 64 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 22 69 6e 74 22 20 22 66	bel-read.match-string.1."int"."f
11c0	6c 6f 61 74 22 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 22 6c 69 73 74 22 20 6f 72	loat".string-to-number."list".or
11e0	67 2d 62 61 62 65 6c 2d 6f 63 61 6d 6c 2d 72 65 61 64 2d 6c 69 73 74 20 22 61 72 72 61 79 22 20	g-babel-ocaml-read-list."array".
1200	6f 72 67 2d 62 61 62 65 6c 2d 6f 63 61 6d 6c 2d 72 65 61 64 2d 61 72 72 61 79 20 6d 65 73 73 61	org-babel-ocaml-read-array.messa
1220	67 65 20 22 64 6f 6e 27 74 20 72 65 63 6f 67 6e 69 7a 65 20 74 79 70 65 20 6f 66 20 25 73 22 5d	ge."don't.recognize.type.of.%s"]
1240	20 34 20 28 23 24 20 2e 20 34 30 39 35 29 5d 29 0a 23 40 31 36 38 20 43 6f 6e 76 65 72 74 20 52	.4.(#$...4095)]).#@168.Convert.R
1260	45 53 55 4c 54 53 20 69 6e 74 6f 20 61 6e 20 65 6c 69 73 70 20 74 61 62 6c 65 20 6f 72 20 73 74	ESULTS.into.an.elisp.table.or.st
1280	72 69 6e 67 2e 0a 49 66 20 74 68 65 20 72 65 73 75 6c 74 73 20 6c 6f 6f 6b 20 6c 69 6b 65 20 61	ring..If.the.results.look.like.a
12a0	20 74 61 62 6c 65 2c 20 74 68 65 6e 20 63 6f 6e 76 65 72 74 20 74 68 65 6d 20 69 6e 74 6f 20 61	.table,.then.convert.them.into.a
12c0	6e 0a 45 6d 61 63 73 2d 6c 69 73 70 20 74 61 62 6c 65 2c 20 6f 74 68 65 72 77 69 73 65 20 72 65	n.Emacs-lisp.table,.otherwise.re
12e0	74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 73 20 61 73 20 61 20 73 74 72 69 6e 67 2e 1f 0a 28	turn.the.results.as.a.string...(
1300	64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 6f 63 61 6d 6c 2d 72 65 61 64 2d 6c	defalias.'org-babel-ocaml-read-l
1320	69 73 74 20 23 5b 28 72 65 73 75 6c 74 73 29 20 22 5c 33 30 31 08 3b 5c 32 30 33 23 00 5c 33 30	ist.#[(results)."\301.;\203#.\30
1340	32 5c 33 30 33 08 5c 22 5c 32 30 33 23 00 5c 33 30 31 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33	2\303.\"\203#.\301\304\305\306\3
1360	30 34 5c 33 30 37 5c 33 31 30 5c 33 30 34 5c 33 31 31 5c 33 31 32 5c 33 30 34 5c 33 31 33 5c 33	04\307\310\304\311\312\304\313\3
1380	31 34 08 23 23 23 23 21 5c 32 30 32 24 00 08 21 5c 32 30 37 22 20 5b 72 65 73 75 6c 74 73 20 6f	14.####!\202$..!\207".[results.o
13a0	72 67 2d 62 61 62 65 6c 2d 72 65 61 64 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5c 5c 5b	rg-babel-read.string-match."^\\[
13c0	2e 2b 5c 5c 5d 24 22 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67	.+\\]$".replace-regexp-in-string
13e0	20 22 5c 5c 5b 22 20 22 28 22 20 22 5c 5c 5d 22 20 22 29 22 20 22 3b 20 22 20 22 20 22 20 22 27	."\\["."("."\\]".")".";."."."."'
1400	22 20 22 5c 22 22 5d 20 31 35 20 28 23 24 20 2e 20 34 36 39 35 29 5d 29 0a 23 40 31 36 38 20 43	"."\""].15.(#$...4695)]).#@168.C
1420	6f 6e 76 65 72 74 20 52 45 53 55 4c 54 53 20 69 6e 74 6f 20 61 6e 20 65 6c 69 73 70 20 74 61 62	onvert.RESULTS.into.an.elisp.tab
1440	6c 65 20 6f 72 20 73 74 72 69 6e 67 2e 0a 49 66 20 74 68 65 20 72 65 73 75 6c 74 73 20 6c 6f 6f	le.or.string..If.the.results.loo
1460	6b 20 6c 69 6b 65 20 61 20 74 61 62 6c 65 2c 20 74 68 65 6e 20 63 6f 6e 76 65 72 74 20 74 68 65	k.like.a.table,.then.convert.the
1480	6d 20 69 6e 74 6f 20 61 6e 0a 45 6d 61 63 73 2d 6c 69 73 70 20 74 61 62 6c 65 2c 20 6f 74 68 65	m.into.an.Emacs-lisp.table,.othe
14a0	72 77 69 73 65 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 73 20 61 73 20 61 20 73 74	rwise.return.the.results.as.a.st
14c0	72 69 6e 67 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 6f 63 61 6d	ring...(defalias.'org-babel-ocam
14e0	6c 2d 72 65 61 64 2d 61 72 72 61 79 20 23 5b 28 72 65 73 75 6c 74 73 29 20 22 5c 33 30 31 08 3b	l-read-array.#[(results)."\301.;
1500	5c 32 30 33 25 00 5c 33 30 32 5c 33 30 33 08 5c 22 5c 32 30 33 25 00 5c 33 30 31 5c 33 30 34 5c	\203%.\302\303.\"\203%.\301\304\
1520	33 30 35 5c 33 30 36 5c 33 30 37 5c 33 30 35 5c 33 31 30 5c 33 31 31 5c 33 30 35 5c 33 31 32 5c	305\306\307\305\310\311\305\312\
1540	33 31 33 5c 33 30 35 5c 33 30 34 5c 33 31 34 08 23 23 23 23 50 21 5c 32 30 32 26 00 08 21 5c 32	313\305\304\314.####P!\202&..!\2
1560	30 37 22 20 5b 72 65 73 75 6c 74 73 20 6f 72 67 2d 62 61 62 65 6c 2d 72 65 61 64 20 73 74 72 69	07".[results.org-babel-read.stri
1580	6e 67 2d 6d 61 74 63 68 20 22 5e 5c 5c 5b 2e 2b 5c 5c 5d 24 22 20 22 27 22 20 72 65 70 6c 61 63	ng-match."^\\[.+\\]$"."'".replac
15a0	65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 5c 5b 7c 22 20 22 28 22 20 22 7c	e-regexp-in-string."\\[|"."("."|
15c0	5c 5c 5d 22 20 22 29 22 20 22 3b 20 22 20 22 20 22 20 22 5c 22 22 5d 20 31 36 20 28 23 24 20 2e	\\]".")".";."."."."\""].16.(#$..
15e0	20 35 31 35 31 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6f 62 2d 6f 63 61 6d 6c 29 0a	.5151)]).(provide.'ob-ocaml).