1 2 3
val main : transaction page = return <xml><body> {[List.groupBy eq (1 :: 1 :: 2 :: 2 :: 3 :: 4 :: 4 :: 4 :: 5 :: [])]} </body></xml>