File standardInput readLines map($,for(i,$asNumber,w:=1,- $split("!")size,w=w*i)println)