Квадратный список списков - ocaml

Question

Я знаю, как квадратные элементы списка, но как квадрат в списке списков?

Чтобы умиротворять элемент списка я мог бы использовать, например:

List.map (fun x -> x*x) [1; 2; 3];; 

Как сделать это в списке списков?

[[1; 2]; [2; 3]] --> [[1; 4]; [4; 9]] 

или

[[1; 2; 3]; [4; 2; 0]] --> [[1; 4; 9]; [16; 4; 0]] 

, например.

Благодаря

Answer 1

let square = fun x -> x * x;; 
(* val square : int -> int = <fun> *) 

List.map square;; 
(* - : int list -> int list = <fun> *) 

List.map (List.map square);; 
(* - : int list list -> int list list = <fun> *) 

List.map (List.map (fun x -> x*x)) [[1; 2]; [2; 3]];; 
(* - : int list list = [[1; 4]; [4; 9]] *)