29 Premium Themes
Included with purchase — and more features on the way!
Get access — $12 once
Version 2 is coming soon.
The price goes up when it arrives.
Pay once today and every update after that is free.
One Dark Pro
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Andromeda
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Ayu Dark
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Ayu Mirage
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Ayu Light
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Cobalt2
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Night Owl
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Night Owl Light
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Noctis
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Noctis Azureus
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Noctis Bordo
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Noctis Hibernus
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Noctis Lilac
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Noctis Lux
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Noctis Minimus
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Noctis Obscuro
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Noctis Sereno
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Noctis Uva
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Noctis Viola
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Palenight
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Pico 8
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Shades of Purple
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Shades of Purple SD
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Synthwave '84
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Tokyo Night
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Tokyo Night Storm
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Tokyo Night Light
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Winter is Coming
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Winter is Coming Light
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)
Winter is Coming Dark
utop # type person = { name: string ; age: int ; human : bool };;
type person = { name : string; age : int; human : bool; }
utop # let david = { name = "david" ; age = 32 ; human = false };;
val david : person = {name = "david"; age = 32; human = false}
utop # let mary = { david with name = "mary" };;
val mary : person = {name = "mary"; age = 32; human = false}
utop # let toggle_human (p : person) = { p with human = not p.human };;
val toggle_human : person -> person = <fun>
utop # let () =
let david' = toggle_human david in
if david'.human then
print_endline "david is human"
else
print_endline "david is not human"
;;
david is human
(** From https://o1-labs.github.io/ocamlbyexample/basics-records.html *)