>>> minimum [ Arg (x * x) x | x <- [-10 .. 10] ] Arg 0 0
>>> maximum [ Arg (-0.2*x^2 + 1.5*x + 1) x | x <- [-10 .. 10] ] Arg 3.8 4.0
>>> minimum [ Arg (-0.2*x^2 + 1.5*x + 1) x | x <- [-10 .. 10] ] Arg (-34.0) (-10.0)
>>> Max (Arg 0 ()) <> Max (Arg 1 ()) Max {getMax = Arg 1 ()}
>>> maximum [ Arg (length name) name | name <- ["violencia", "lea", "pixie"]] Arg 9 "violencia"
>>> Min (Arg 0 ()) <> Min (Arg 1 ()) Min {getMin = Arg 0 ()}
>>> minimum [ Arg (length name) name | name <- ["violencia", "lea", "pixie"]] Arg 3 "lea"