// $Id: sumcol.ici,v 1.0 2003/01/03 11:23:00 dada Exp $ // http://dada.perl.it/shootout // // contributed by Tim Long count := 0; while (l = getline()) count += int(l); printf("%d\n", count);