#!/usr/bin/perl
$dir = pop @ARGV;
for $file (@ARGV) {
	system "lnsa", $file, $dir;
}