"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]]);;