gistfile1

fact = { n ->
    isEnd = n <= 1
    work = isEnd ? 1 : fact(n - 1)
    result = n * work as long
}
max = args[0] as long
range = 1..max
range.each { num ->
    fact num
    println "$num! => $result"
}

$ perl -e '$_=join//,@ARGV;print s/[(){}\[\]]//g||0' `cat factorial.groovy`
8