fun preveri(x, y) = if(String.size(x) > String.size(y)) then x else y
val l = ["aaa", "aaaaaa", "bb", "aaaa"]

fun best_string(f, xs: string list) = List.foldl f "" xs

best_string(preveri, l)