sub MAIN () {
	my $bjort = "a";	
	while $bjort {
	  $bjort = prompt "Provide a string to count the chars";
	  say $bjort.chars;
	}
}