#!/usr/bin/perl

use lib '.';
use Sorts;

$, = "\n";
print sort caseless ('a','s','d','f');