PROGRAM puut
  USE bpuu
  IMPLICIT NONE
  CHARACTER(LEN=avain_pituus) :: avain
  CHARACTER(LEN=tiedon_pituus) :: tieto

  CALL alusta_puu()

  tiedon_luku: DO
     WRITE (*, '(A)', ADVANCE = 'NO') 'Syötä avain &
         &(tyhjä lopettaa): '
     READ(*, '(A)') avain
     IF (avain == '') EXIT
     WRITE (*, '(A)', ADVANCE = 'NO') 'Syötä tieto: '
     READ (*, '(A)') tieto
     CALL syota(avain, tieto)
   END DO tiedon_luku

  CALL tulosta_puu

  tiedon_haku: DO
     WRITE (*, '(A)', advance = 'no') 'Syötä avain &
         &(tyhjä lopettaa): '
     READ (*, '(A)') avain
     IF (avain == '') EXIT
     WRITE (*, *) 'Tieto on: ', etsi(avain)
   END DO tiedon_haku
END PROGRAM puut