#smoes
use utf8;
sub smoes
{
    my @wat = ("Ik kan nu niet langer blijven"
              ,"Ik kan nu niet komen"
              ,"Het komt niet zo goed uit als jullie nu koffie willen drinken"
              ,"Het bier is nu al wel koud maar toch kan ik niet blijven"
              ,"Ik kan niet blijven eten"
              ,"Jullie feestje zal best gezellig zijn maar ik moet weg"
              ,"Ik kon vanochtend weer niet uitslapen"
              ,"Ik moet nu echt naar bed"
              ,"Ik zou graag willen blijven maar ik kan niet"
              ,"Het wordt geen latertje voor mij vanavond"
              ,"Nurden is niet aan mij besteed vandaag");

    my @waarom = ("mijn schoonmoeder bij ons is ingetrokken"
                 ,"onze jongste zijn amandelen geknipt moeten worden"
                 ,"de kleine zijn pianoles niet kan missen"
                 ,"de caravan nog schoongemaakt moet worden"
                 ,"er nog een stapel was ligt die gestreken moet worden"
                 ,"we morgen naar de zwager van mijn schoonmoeder moeten"
                 ,"de baby altijd al om 5 uur wakker wordt"
                 ,"de nicht van de broer van m'n zwager bevallen is"
                 ,"sesamstraat over 30 minuten begint"
                 ,"het eten anders koud wordt"
                 ,"ik mijn bonsai-knipkruk nog moet schilderen"
                 ,"dat niet mag van mijn vriendin"
                 ,"het gras nog gemaaid moet worden"
                 ,"er voetbal op TV is"
                 ,"het vuilnis nog voorgezet moet worden"
                 ,"er morgen oud papier ingezameld wordt"
                 ,"het jaarlijks familieuitstapje volgende week is"
                 ,"mijn goudvis in brand staat"
                 ,"het morgen de bowlingavond van mijn parkiet is"
                 ,"ik de hond nog in het park moet zoeken"
                 ,"morgen de jaarlijkse hinkelwedstrijd in het dorp is"
                 ,"ik mijn steenpuist nog uit moet knijpen"
                 ,"mijn psychiater mij daar nog niet toe in staat acht"
                 ,"ik anders de weg niet meer terug vind");

    return sprintf('%s omdat %s.', $wat[rand(scalar(@wat))], $waarom[rand(scalar(@waarom))]);
}

sub smoes_help
{
    return "Geef een random onzinnige smoes: smoes\n";
}

1;