$\+=/ /&&($p+=$'-$`)*$a[++$i]for@a=<>;print