#!/bin/sh
# restart using tclsh \
exec tclsh "$0" "$@"

# load utilities
source [file join [file dirname [info script]] utils.tcl]


# lmax --
#
#   find the max in a list
#
# args:
#   list - the list
# returns:
#   the max

proc lmax {list} {
   return themax
}

# main --
if {[is_main]} {
   # executed only if the file is the main script
   proc test {} {
      assert "lmax {23 56}" themax
   }
   test
   exit
}