Add-PSSnapin microsoft.sharepoint.powershell
function CreateSPLists()
{
    $sites = Get-SPSite
    if($sites.count -eq 0)
    {
        Write-Warning "There is no site available."
        CreateSPLists
    }
    else
    {
        Write-Host "Choose the site:" -ForegroundColor Yellow
        for($i=0;$i -lt $sites.count;$i++)
        {
            $tip = "["+$i+"]."+$sites[$i].url
            Write-Host $tip
        }
        $choice = Read-Host "Enter the number before"
        $tip = "You chose "+$choice+". "+"The site you chose is '"+$sites[[int]$choice].url+"'"
        Write-Host $tip -ForegroundColor Green
        Write-Host "Choose the web:" -ForegroundColor Yellow
        $webs = $sites[[int]$choice].AllWebs
        for($i=0;$i -lt $webs.count;$i++)
        {
            $tip = "["+$i+"]."+$webs[$i].url
            Write-Host $tip
        }
        $choice = Read-Host "Enter the number before"
        $tip = "You chose "+$choice+". "+"The web you chose is '"+$webs[[int]$choice].url+"'"
        Write-Host $tip -ForegroundColor Green
        $amount = Read-Host "How many lists do you want to create"
        $titleEp = Read-Host "Give an example of the list title, such as 'tylan'"
        $web = $webs[[int]$choice]
        for($i=1;$i -le $amount;$i++)
        {
            $ran = Get-Random 10000
            $titleEp = $ran.toString()+$titleEp+$i.toString()
            $web.Lists.Add($titleEp,"",$web.ListTemplates["Custom List"])
        }
        Write-Host "List(s) has(have) been created successfully."
        $choice = Read-Host "Press 'c' to continue"
        if($choice -eq "c")
        {
            CreateSPLists
        }
    }
}
CreateSPLists