Print to stdout in Serpent

print.se

event stdout(data)

# prints an array to stdout
# $a: array
# $n: array length
macro log_array($a, $n):
    with $i = 0:
        while $i < $n:
            log(type=stdout, $a[$i])
            $i += 1

# print to stdout
macro print($x):
    log(type=stdout, $x)