fonts/hershey/join.icn


1
2
3
4
5
6
7
8
9
10
11
12
13
14

procedure main()
begin
	while s := read() do
	{
		if many(' 0123456789', s) > 5 then
		{
			write()
			writes(s)
		}
		else
			writes(s)
	}
	write()
end