#! /usr/bin/env perl

use strict;
use warnings;

while( my $line = <STDIN> ){
  if( $line =~ /Affymetrix_probesetID/ ){
    next;
  }
  chomp( $line );
  my @data = split(/\t/, $line); 
  if( ! $data[3] ){
    next;
  }
  if( $data[0] ){
    printf STDOUT "affy.probeset:%s\tncbigene:%s\n", $data[3], $data[0];
  }
  if( $data[1] ){
    printf STDOUT "affy.probeset:%s\tunigene:%s\n", $data[3], $data[1];
  }
  if( $data[2] ){
    printf STDOUT "affy.probeset:%s\trefseq:%s\n", $data[3], $data[2];
  }
}