f=reverse.snd.span(<'!') main=interact$unlines.filter(>"$").map(f.f).lines