1?chr$(147):pO36879,107:c=7932
2fOi=0to37:rEa:goS4:a=a-int(a/22)*44:goS4:nE
3gO3
4pOc+a,42:pOc-a,42:reT
5dA0,1,2,3,4,5,6,7,8,9,22,23,26,29,44,46,49,52,66,69,88,89,92,110
6dA112,115,116,117,132,137,138,154,155,159,161,176,178,198