#!/usr/bin/perl
$number = 0 ;
open CONFIG , "<config" ;
while (  $line = <CONFIG> ) {
  chomp($line) ;
  if ( $line ) {
    ($x ,$y,$z) = split (/ /,$line) ;


    $i = 0 + $x ; $j = 0 + $y ; $k = 0 + $z ;
    print "v $i $j $k\n" ;

    $i = 1 + $x ; $j = 0 + $y ; $k = 0 + $z ;
    print "v $i $j $k\n" ;

    $i = 1 + $x ; $j = 1 + $y ; $k = 0 + $z ;
    print "v $i $j $k\n" ;

    $i = 0 + $x ; $j = 1 + $y ; $k = 0 + $z ;
    print "v $i $j $k\n" ;

    $i = 0 + $x ; $j = 0 + $y ; $k = 1 + $z ;
    print "v $i $j $k\n" ;

    $i = 1 + $x ; $j = 0 + $y ; $k = 1 + $z ;
    print "v $i $j $k\n" ;

    $i = 1 + $x ; $j = 1 + $y ; $k = 1 + $z ;
    print "v $i $j $k\n" ;

    $i = 0 + $x ; $j = 1 + $y ; $k = 1 + $z ;
    print "v $i $j $k\n" ;


    $i = 1 + $number ; $j = 2 + $number ; $k = 3 + $number ; $l = 4 + $number  ;
    print "f $i $j $k $l\n" ;
    $i = 5 + $number ; $j = 6 + $number ; $k = 7 + $number ; $l = 8 + $number  ;
    print "f $i $j $k $l\n" ;
    $i = 1 + $number ; $j = 2 + $number ; $k = 6 + $number ; $l = 5 + $number  ;
    print "f $i $j $k $l\n" ;
    $i = 3 + $number ; $j = 4 + $number ; $k = 8 + $number ; $l = 7 + $number  ;
    print "f $i $j $k $l\n" ;
    $i = 2 + $number ; $j = 3 + $number ; $k = 7 + $number ; $l = 6 + $number  ;
    print "f $i $j $k $l\n" ;
    $i = 1 + $number ; $j = 4 + $number ; $k = 8 + $number ; $l = 5 + $number  ;
    print "f $i $j $k $l\n" ;
    $number = $number + 8 ;
  }   
}