PROGRAM ulkolainen
  IMPLICIT NONE
  INTEGER :: n
  INTEGER, EXTERNAL :: desimaalit

  WRITE (*,*) 'Anna n:'
  READ (*,*) n
  WRITE (*,*) 'Luku n: ', n
  WRITE (*,*) 'Desimaaleja: ', desimaalit(n)
END PROGRAM ulkolainen