Quite a Shell program for 678