how do I turn a real into and array of Integers?

[ToddAndMargo via perl6-users]

Hi All,

Without going into why (it is a secret), how do I turn

> my $x = sqrt 2
1.4142135623730951

into an array of integers?
@y[0] = 1
@y[1] = 4
@y[2] = 1
@y[3] = 4
@y[4] = 2
@y[5] = 1

etc.


Many thanks,
-T