// $Id: strcat.ici,v 1.0 2003/01/03 11:29:00 dada Exp $ // http://dada.perl.it/shootout // // contributed by Tim Long n := argv[1] ? int(argv[1]) : 1; s := ""; for (i = 0; i < n; ++i) s += "hello\n"; printf("%d\n", nels(s));