1 2 3 4
val solve : string -> unit -> (int, string) result (** [solve input ()] is the solution for the first part of the fourth day of advent of code 2025 for [input]. The solution for an empty input is [Error msg]. Requires: [input] to be a string. *)