#!/bin/bash
set -eu
an --dict ~/words."${2:-normal}" "$1" | tr ' ' '\n' | LC_ALL=C grep -v "[^a-z]" | grep '^...' | sort -u | perl -pe '$_ = length($_)-1 . "\t$_"' | sort -rn | kut 2