: max  s" 2dup < if swap then drop" evaluate ; immediate compile-only

: 3max max max ;

cr see 3max