Function Prompt {
$time=([datetime]'12/25/2011'-(get-date)).ToString().Substring(0,11)
$text="[**Christmas in $($time)**]"
$text.tocharArray() |foreach {
if ((Get-Random -min 1 -max 10) -gt 5) {
 $color="RED"
 } 
else {
 $color="GREEN"
}
write-host $_ -nonewline -foregroundcolor $color
}
Write (" PS " + (Get-Location) + "> ")
} #end function