@a=sort<>=~/./g;print$a[2]-$a[0]