module test

import StdEnv
import Regex
import Data.Maybe

Start = map (fromJust o (match rgx zero)) ["hello", "abc", "aXz"]
where
    (Just rgx) = toRegex REG_EXTENDED "^a[a-z]*$"