( ".#" )
swap
read-num
repeat-product
unlines