#!/usr/bin/perl

use warnings;
use strict;

my @vs = map { [split /,/, $_] } @ARGV;
my $dim = @{$vs[0]};

for(1..10000) {
  my @v;
  for my $b (@vs) {
    my $c = 2*rand() - 1;
    for my $i (1..$dim) {
      $v[$i-1] += $c * $b->[$i-1];
    }
  }
  my $l = 0;
  $l += $_**2. for @v;
  $_ /= sqrt($l) for @v;
  print join " ", @v;
  print $/;
}