proc test [val message] [val args] {
    show-alert $message 
    $args  | foreach { | equals "test" | verify-true }
}

test "message" "test" "test" "test" "test3"

proc test[val list] {
$list | each [val elem] { ... }
}

test [list a b c]

proc demo [val numberList][val textList] [val symbolList] [val display true]{
    if [$display | eq true] {
	    $numberList | each [val text] {show-alert [concat "number " $text]}
	    $textList | each [val text] {show-alert [concat "text " $text]}
	    $symbolList | each [val text] {show-alert [concat "symbol " $text]}
	}
}

//do nothing
demo [list 1 2 3 4 5] [list one two three four five] [list "*" "=" "%" "-" "+"] false
//display every list with different message
demo [list 1 2 3 4 5] [list one two three four five] [list "*" "=" "%" "-" "+"]