foreach file ($*)
  set dest = u`echo $file | awk '{print substr($1,2)}'`
  ln $file $dest
end