summaryrefslogtreecommitdiff
path: root/fonts/hershey/join.icn
blob: b2f7745a505b8e56d30d16592576525a24f138e5 (plain)
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