# DO NOT RUN THIS!!

perl -e "sub inter{map {print shift @$_} @_; &inter} inter([1],[1,2],[1,2,3],[1,2,3,4,5])"

# OUT
Out of memory!
11112223345