"Hello";;
"Hello" ^ " " ^ "World";;
['H';'e';'l';'l';'o'];;
[1;2];;
#remove_printer Strng.toplevel_printer;;
['H';'e';'l';'l';'o'];;
#install_printer Strng.toplevel_printer;;
['H';'e';'l';'l';'o'];;
#use "Lst.ml";;
['H';'e';'l';'l';'o'];;
p00;;
p01;;
Picture.above p00 p01;;
(1,1,[['a']]);;
(1,2,[['a'];['b']]);;
(1,2,[['a']]);;
Lst.foldr;;
p00;;
p01;;
p02;;
Picture.stack [p00;p01;p02];;
Picture.stack [];;
let rec zip_with f xs ys = match (xs,ys) with
 | ([],_) -> []
 | (_,[]) -> []
 | (x::xs,y::ys) -> f x y::zip_with f xs ys;;
zip_with (+) [1;2;3] [4;5;6;7];;
zip_with (fun x y -> (x,y) ) [1;2;3] [4;5;6;7];;
zip_with (fun x y -> (x,y) ) [1;2;3] ['4';'5';'6';'7'];;
Picture.stack [p00;p01;p02];;
Picture.spread [p00;p01;p02];;
Picture.row (Strng.of_string "hello");;
Picture.tile;;
Picture.tile [[p00;p01;p02];[p10;p11;p12]];;
Picture.tile_with 0 0 [[p00;p01;p02];[p10;p11;p12];[p00;p01;p02]];;
Picture.tile_with 1 1 [[p00;p01;p02];[p10;p11;p12];[p00;p01;p02]];;
Picture.tile_with 2 1 [[p00;p01;p02];[p10;p11;p12];[p00;p01;p02]];;
Picture.tile_with 3 1 [[p00;p01;p02];[p10;p11;p12];[p00;p01;p02]];;
Picture.empty 0 0;;
#remove_printer Picture.toplevel_printer;;
Picture.tile_with 3 1 [[p00;p01;p02];[p10;p11;p12];[p00;p01;p02]];;
let join d xs = Lst.foldr1 (fun x acc -> x@d@acc) xs;; 
module C = Calendar;;
C.first_days 2012;;
C.month_lengths 2012;;
module A = AsciiArt;;
A.char 'c';;
let pixel c = (1,1,[[c]]);;