#lang typed/racket/base

(provide list-max)

(: list-max : (Listof Integer) -> Integer)
(define (list-max xs)
  (foldr max 0 xs))