[
https://www.facebook.com/groups/299317782048/permalink/10158132183057049/
]

[
http://www.math.odu.edu/~bogacki/lat/

dell.tc - 9/3/9 - lrb - from http://www.yofx.org/?p=327
]

main [
 pl "dell.tc - lrb - 9/3/9, 1/25/20";pl ""
 int c,r,a,b,d,k,n,s,e
 int verbose
 pl "verbose? 1 means yes, 0 means no : ";verbose=gn
 char buff(30)
 cdate buff
 printf "%c%s%c",10,buff,10
 c=1
 while c<10 [
 r=1
 while r<10 [
 if (r==c) r=r+1
 if (r==10) break
 a=1
 while a<10 [
 while ((a==r)+(a==c)) a=a+1
 if (a==10) break
 b=1
 while b<10 [
 while ((b==a)+(b==r)+(b==c)) b=b+1
 if (b==10) break
 d=1
 while d<10 [
 while ((d==b)+(d==a)+(d==r)+(d==c)) d=d+1
 if (d==10) break
 k=1
 while k<10 [
 while ((k==d)+(k==b)+(k==a)+(k==r)+(k==c)) k=k+1
 if (k==10) break
 n=1
 while n<10 [
 while ((n==k)+(n==d)+(n==b)+(n==a)+(n==r)+(n==c)) n=n+1
 if (n==10) break
 s=1
 while s<10 [
 while ((s==n)+(s==k)+(s==d)+(s==b)+(s==a)+(s==r)+(s==c)) s=s+1
 if (s==10) break
 e=45-(c+r+a+b+d+k+n+s)
 if (c+r+a+b==17)
 if (d+a+r+k==20)
 if (b+r+a+n==14)
 if (r+a+k+e==18)
 if (b+a+n+k==18)
 if (d+a+d+a==24)
 if (b+a+n+d==21)
 if (s+e+e+d==24) [
  printf " c r a b d k n s e%c",10
  printf " %d %d %d %d %d %d %d %d %d%c",c,r,a,b,d,k,n,s,e,10
  cdate buff
  printf "%s%c",buff,10
  abort
  ]
 if verbose printf " s=%d",s
 s=s+1]
 if verbose printf " n=%d",n
 n=n+1]
 if verbose printf " k=%d",k
 k=k+1]
 if verbose printf " d=%d",d
 d=d+1]
 if verbose printf " b=%d",b
 b=b+1]
 if verbose printf " a=%d",a
 a=a+1]
 if verbose printf " r=%d",r
 r=r+1]
 if verbose printf " c=%d",c
 c=c+1]
 ]