#!/usr/local/bin/perl
#

$REP = $ARGV[0];
$FIL = $ARGV[1];

system('./SVM/SVMTorch/SVMTorch -multi -m 512 '.$REP.$FIL.'.learn '.$REP.'modelSVM');